X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;fp=src%2FMain.hs;h=2b0b5b920db4acefd161c2c069ec127695f6483d;hb=2a3c20fe95f2b695547bf0e14246e6c05e36f360;hp=02b42ff09b2f5b58b3357147d03a5679e43f606b;hpb=431c2a85ca0fc6be25d6ef35447c6f4ccf54b34c;p=dead%2Fhtsn.git

diff --git a/src/Main.hs b/src/Main.hs
index 02b42ff..2b0b5b9 100644
--- 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: "