X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FOptionalConfiguration.hs;h=17c7191dead04be9265ec82e91604a730034ebb0;hp=fca9e58eca283abfa8d45912a71dfee3baa03b39;hb=c9a905e0ab69317448f261377ab9031fb83443b4;hpb=15fd6f764f88f79424d7caaba564e57df564b532

diff --git a/src/OptionalConfiguration.hs b/src/OptionalConfiguration.hs
index fca9e58..17c7191 100644
--- a/src/OptionalConfiguration.hs
+++ b/src/OptionalConfiguration.hs
@@ -113,12 +113,13 @@ instance Monoid OptionalCfg where
 --
 from_rc :: IO OptionalCfg
 from_rc = do
-  etc  <- catchIOError getSysconfDir (\e -> do
-                                        hPutStrLn stderr (show e)
-                                        return "/etc")
-  home <- catchIOError getHomeDirectory (\e -> do
-                                           hPutStrLn stderr (show e)
-                                           return "$(HOME)")
+  etc  <- catchIOError
+            getSysconfDir (\e -> do hPutStrLn stderr ("ERROR: " ++ (show e))
+                                    return "/etc")
+  home <- catchIOError
+            getHomeDirectory (\e -> do hPutStrLn stderr ("ERROR: " ++ (show e))
+                                       return "$(HOME)")
+
   let global_config_path = etc </> "halcyonrc"
   let user_config_path = home </> ".halcyonrc"
   cfg <- DC.load [ DC.Optional global_config_path,