--
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,