Stub updateState
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:37:26 +0000 (22:37 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:37:26 +0000 (22:37 +0000)
Partty.hs

index 517b603..ddb1323 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -157,13 +157,16 @@ runner h dcb ncb = fix $ \loop ps d -> do
 getNextUserMessage :: Handle -> ParttyState -> IO (Either DayMessage NightMessage, ParttyState)
 getNextUserMessage h ps = do
        line <- hGetLine h
-       let e = parseIncomingMessage line
-       let ps' = undefined {- updateState -} e ps
-       case e of
+       let msg = parseIncomingMessage line
+       let ps' = updateState msg ps
+       case msg of
                InternalMessage ue -> getNextUserMessage h ps'
                DayMessage dm -> return (Left dm, ps')
                NightMessage nm -> return (Right nm, ps')
 
+updateState :: IncomingMessage -> ParttyState -> ParttyState
+updateState msg ps = ps -- TODO: this is a stub
+
 parseIncomingMessage :: String -> IncomingMessage
 parseIncomingMessage msg = case id of
        71 -> InternalMessage (Welcome)