diff options
| author | Joris | 2016-03-21 10:29:21 +0100 |
|---|---|---|
| committer | Joris | 2016-03-21 10:30:28 +0100 |
| commit | 9d1e4362f78ab0a0b1a0007aaa38c6cc94c0a62d (patch) | |
| tree | 258621fe15270397c0d40ff80ffa307bfcb802ee /Data/ConfigManager | |
| parent | 565e67e9492a9dbd9ab5130938a29823f5146bcb (diff) | |
Add an example
Diffstat (limited to 'Data/ConfigManager')
| -rw-r--r-- | Data/ConfigManager/Reader.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 -> |