diff options
Diffstat (limited to 'src/Erebos/Discovery.hs')
| -rw-r--r-- | src/Erebos/Discovery.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Erebos/Discovery.hs b/src/Erebos/Discovery.hs index 2c1d409..51997fd 100644 --- a/src/Erebos/Discovery.hs +++ b/src/Erebos/Discovery.hs @@ -1,4 +1,5 @@ {-# LANGUAGE CPP #-} +{-# LANGUAGE OverloadedStrings #-} module Erebos.Discovery ( DiscoveryService(..), @@ -109,7 +110,7 @@ instance Storable DiscoveryService where DiscoveryConnectionResponse conn -> storeConnection "response" conn where - storeConnection ctype DiscoveryConnection {..} = do + storeConnection (ctype :: Text) DiscoveryConnection {..} = do storeText "connection" $ ctype either (storeRawRef "source") (storeRawWeak "source") dconnSource either (storeRawRef "target") (storeRawWeak "target") dconnTarget @@ -147,7 +148,7 @@ instance Storable DiscoveryService where , loadConnection "response" DiscoveryConnectionResponse ] where - loadConnection ctype ctor = do + loadConnection (ctype :: Text) ctor = do ctype' <- loadText "connection" guard $ ctype == ctype' dconnSource <- msum |