diff options
Diffstat (limited to 'Data')
| -rw-r--r-- | Data/ConfigManager.hs | 4 |
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 = |