Fix lookupDefault

1 files changed, 3 insertions, 2 deletions

diff --git a/Data/ConfigManager.hs b/Data/ConfigManager.hs
index edc2e93..038276e 100644
--- a/Data/ConfigManager.hs
+++ b/Data/ConfigManager.hs
@@ -35,6 +35,7 @@ import Control.Monad (join)
 import Data.Text (Text)
 import qualified Data.Text as T
 import qualified Data.HashMap.Strict as M
+import Data.Maybe (fromMaybe)
 
 import qualified Data.ConfigManager.Reader as R
 import Data.ConfigManager.Types
@@ -52,8 +53,8 @@ lookup name config = join . fmap (readMaybe . T.unpack) $ M.lookup name (hashMap
 -- | Lookup for the value associated to a name and return the default value if
 -- no binding exists with the given name.
 
-lookupDefault :: Value -> Name -> Config -> Value
-lookupDefault defaultValue name config = M.lookupDefault defaultValue name (hashMap config)
+lookupDefault :: Read a => a -> Name -> Config -> a
+lookupDefault defaultValue name config = fromMaybe defaultValue $ lookup name config
 
 -- $format
 --