Store login name
[darcs-mirror-haskell-partty.git] / Partty.hs
index 66e8c66..c57d996 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -102,6 +102,7 @@ data PlayerInformation = PlayerInformation
 
 data ParttyState = ParttyState
        { psMyName      :: Player
+       , psLoginName   :: String
        , psDay         :: Day
        , psPlayerInfo  :: Map Player PlayerInformation
        , psPartyHistory:: [(Day,Place)]
@@ -151,6 +152,7 @@ runPartty host port username password dcb ncb initialData = do
 
        let initialState = ParttyState
                { psMyName      = myId
+               , psLoginName   = username
                , psDay         = 0
                , psPlayerInfo  = error "psPlayerInfo not implemented"
                , psPartyHistory= error "psPartyHistory not implemented"