Enable LineBuffering
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:51:46 +0000 (22:51 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:51:46 +0000 (22:51 +0000)
Partty.hs

index 8ad9aa9..9bfdaea 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -98,6 +98,8 @@ type NightMonad d =                          ReaderT ParttyState (StateT d IO)
 runPartty :: String -> Int -> String -> String -> DayCallback d -> NightCallback d -> d -> IO ()
 runPartty host port username password dcb ncb initialData = do 
        h <- connectTo host (PortNumber (fromIntegral port))
+       hSetBuffering h LineBuffering
+       putStrLn $ "Connected to " ++ host
        InternalMessage Welcome <- parseIncomingMessage `liftM` hGetLine h
        hPutStrLn h $ unwords ["login", username, password]
        InternalMessage (PlayerJoined myName) <- parseIncomingMessage `liftM` hGetLine h