X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FMain.hs;h=f36e2ba502d743e2d9d9f2665d366df385730a16;hb=a8abe8f8e85662f544235f1d0a43524e5077078a;hp=0182e38196db034cb52b070e61ac8042c2d2e210;hpb=8c69c28e5ab5ef5a5ed64411e1213e504a6a309e;p=dead%2Fhtsn.git

diff --git a/src/Main.hs b/src/Main.hs
index 0182e38..f36e2ba 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -189,7 +189,7 @@ log_in cfg h = do
 
 connect_and_loop :: Configuration -> String -> IO ()
 connect_and_loop cfg host = do
-  report_info $ "Connecting to " ++ host ++ "..."
+  report_info $ "Connecting to " ++ host ++ "."
   bracket acquire_handle release_handle action
   return ()
   where