From 2b3e1fc86585df732266771ddaa5c3b11f3fa914 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 8 Apr 2016 10:14:33 +0200
Subject: Use Configured typeclass for lookupDefault instead of Read typeclass

---
 Data/ConfigManager.hs | 4 ++--
 config-manager.cabal  | 2 +-
 2 files changed, 3 insertions(+), 3 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 =
diff --git a/config-manager.cabal b/config-manager.cabal
index 0541f83..4874772 100644
--- a/config-manager.cabal
+++ b/config-manager.cabal
@@ -1,5 +1,5 @@
 name:                  config-manager
-version:               0.2.0.0
+version:               0.3.0.0
 synopsis:              Configuration management
 description:
   A configuration management library which supports:
-- 
cgit v1.2.3