From 9d1e4362f78ab0a0b1a0007aaa38c6cc94c0a62d Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 21 Mar 2016 10:29:21 +0100
Subject: Add an example

---
 Data/ConfigManager/Reader.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Data/ConfigManager/Reader.hs')

diff --git a/Data/ConfigManager/Reader.hs b/Data/ConfigManager/Reader.hs
index c2f75a7..d422996 100644
--- a/Data/ConfigManager/Reader.hs
+++ b/Data/ConfigManager/Reader.hs
@@ -43,8 +43,8 @@ go fileDir (Right config) expr =
     Binding name value ->
       return . Right . Config $ M.insert name value (hashMap config)
     Import requirement path -> do
-      eitherConfig <- readConfig requirement (fileDir </> path)
-      case eitherConfig of
+      configOrError <- readConfig requirement (fileDir </> path)
+      case configOrError of
         Left errorMessage ->
           return . Left $ errorMessage
         Right importedConfig ->
-- 
cgit v1.2.3