+ 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,
+ DC.Optional user_config_path ]
+
+ cfg_access_secret <- DC.lookup cfg "access-secret"
+ cfg_access_token <- DC.lookup cfg "access-token"