Reordeing of code
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:29:15 +0000 (23:29 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:29:15 +0000 (23:29 +0000)
Partty.hs

index 4fafbef..a8ebcac 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -187,8 +187,7 @@ getNextUserMessage h ps = do
                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
+-- Message parsing
 
 parseIncomingMessage :: String -> IncomingMessage
 parseIncomingMessage msg = case id of
@@ -241,6 +240,11 @@ sendClientMessage h msg = do putStrLn $ "Client says: " ++ (show msg)
         toString (Tell player (Liar other))      = unwords ["liar",     show player, show other]
         toString (Tell player (NoLiar other))    = unwords ["recommand",show player, show other]
 
+-- Bookkeeping
+
+updateState :: IncomingMessage -> ParttyState -> ParttyState
+updateState msg ps = ps -- TODO: this is a stub
+
 
 -- Convenience functions for accessing the state