Mark unimplemented state fields
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:24:04 +0000 (00:24 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:24:04 +0000 (00:24 +0000)
Partty.hs

index a697dce..e17248a 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -120,10 +120,10 @@ runPartty host port username password dcb ncb initialData = do
        let initialState = ParttyState
                { psMyName      = myId
                , psDay         = 0
-               , psPlayerInfo  = empty
-               , psPartyHistory= []
+               , psPlayerInfo  = error "psPlayerInfo not implemented"
+               , psPartyHistory= error "psPartyHistory not implemented"
                , psPlace       = startPlace
-               , psPlayers     = []
+               , psPlayers     = error "psPlayers not implemented"
                }
 
        -- The rest of the events are handled in the regular loop. Run the initial event