Retain umask after daemonizing.

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

diff --git a/src/Main.hs b/src/Main.hs
index 02b42ff09b2f5b58b3357147d03a5679e43f606b..2b0b5b920db4acefd161c2c069ec127695f6483d 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -198,6 +198,7 @@ log_in cfg h = do
     else do
       send_cred h (password cfg)
       _ <- recv_line h -- "The Sports Network"
+      report_info $ "Logged in as " ++ (username cfg) ++ "."
       return ()
   where
     username_prompt = "Username: "