import System.IO.Error ( catchIOError )
import System.Log ( Priority(..) )
-import Logging ( log_error ) -- Can't import report_error from Main
-import Terminal ( display_error ) -- 'cause of circular imports.
-import TSN.FeedHosts ( FeedHosts(..) )
+import FeedHosts ( FeedHosts(..) )
+import Network.Services.TSN.Report ( report_error )
-- Derive standalone instances of Data and Typeable for Priority. This
from_rc :: IO OptionalConfiguration
from_rc = do
etc <- catchIOError getSysconfDir (\e -> do
- display_error (show e)
- log_error (show e)
+ report_error (show e)
return "/etc")
home <- catchIOError getHomeDirectory (\e -> do
- display_error (show e)
- log_error (show e)
+ report_error (show e)
return "$(HOME)")
let global_config_path = etc </> "htsnrc"
let user_config_path = home </> ".htsnrc"