Use Configured typeclass for lookupDefault instead of Read typeclass

1 files changed, 2 insertions, 2 deletions

diff --git a/Data/ConfigManager.hs b/Data/ConfigManager.hs
index 1afe1fb..d597149 100644
--- a/Data/ConfigManager.hs
+++ b/Data/ConfigManager.hs
@@ -63,7 +63,7 @@ lookup name config =
 -- | Lookup for the value associated to a name and return the default value if
 -- no binding exists with the given name.
 
-lookupDefault :: Read a => a -> Name -> Config -> a
+lookupDefault :: Configured a => a -> Name -> Config -> a
 lookupDefault defaultValue name config = foldl (flip const) defaultValue $ lookup name config
 
 -- $format
@@ -122,7 +122,7 @@ lookupDefault defaultValue name config = foldl (flip const) defaultValue $ looku
 -- >   , mailFrom :: String
 -- >   , currency :: String
 -- >   , expiration :: DiffTime
--- >   } deriving (Read, Eq, Show)
+-- >   } deriving (Eq, Show)
 -- >
 -- > getConfig :: IO (Either Text Conf)
 -- > getConfig =