Ad rudimentary hslogger logging.

[dead/htsn.git] / src / OptionalConfiguration.hs

diff --git a/src/OptionalConfiguration.hs b/src/OptionalConfiguration.hs
index f636a17e2d623104dc2b06ea4983a9ff09c81d74..de2e97d892c31af6ab4e630118df94af7f1f099c 100644 (file)
--- a/src/OptionalConfiguration.hs
+++ b/src/OptionalConfiguration.hs
@@ -26,7 +26,7 @@ import System.Directory (getHomeDirectory)
 import System.FilePath ( (</>) )
 import System.IO.Error (catchIOError)
 
-import Terminal (report_error)
+import Logging (log_error)
 import TSN.FeedHosts (FeedHosts(..))
 
 
@@ -101,7 +101,7 @@ from_rc = do
   -- not serve much purpose. It could also be a security risk (visible
   -- password) if the admin screws up.
   home <- catchIOError getHomeDirectory (\e -> do
-                                           report_error (show e)
+                                           log_error (show e)
                                            return "$(HOME)")
   let user_config_path = home </> ".htsnrc"
   cfg <- DC.load [ DC.Optional user_config_path ]