Mark unimplemented state fields

diff --git a/Partty.hs b/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