- 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)")
+