Reordeing of code
[darcs-mirror-haskell-partty.git] / 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