about summary refs log tree commit diff
path: root/src/Xanthous/Game/State.hs
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2019-12-23T23·10-0500
committerGriffin Smith <root@gws.fyi>2019-12-23T23·20-0500
commit13516911366a484ee5484166520133e056010515 (patch)
treed7618f2062ad93a3800b0b4e20b45e22ad88faa6 /src/Xanthous/Game/State.hs
parent32421916e09dc56d91707af10474644276712fc5 (diff)
Don't send the welcome message when loading
Don't re-send the welcome message when loading the game if it's already
been sent. This is done by just tracking whether or not we've sent it as
a boolean in the game state, which may be a bit of a hack but should be fine
Diffstat (limited to 'src/Xanthous/Game/State.hs')
-rw-r--r--src/Xanthous/Game/State.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Xanthous/Game/State.hs b/src/Xanthous/Game/State.hs
index d8a0f0b32077..0ba7b2744a80 100644
--- a/src/Xanthous/Game/State.hs
+++ b/src/Xanthous/Game/State.hs
@@ -11,6 +11,7 @@ module Xanthous.Game.State
   , messageHistory
   , randomGen
   , activePanel
+  , sentWelcome
   , promptState
   , characterEntityID
   , GamePromptState(..)
@@ -405,6 +406,7 @@ data GameState = GameState
   , _characterEntityID :: !EntityID
   , _messageHistory    :: !MessageHistory
   , _randomGen         :: !StdGen
+  , _sentWelcome       :: Bool
 
     -- | The active panel displayed in the UI, if any
   , _activePanel       :: !(Maybe Panel)
@@ -425,6 +427,8 @@ instance Eq GameState where
     , gs ^. revealedPositions
     , gs ^. characterEntityID
     , gs ^. messageHistory
+    , gs ^. sentWelcome
+    , gs ^. activePanel
     )
 
 --------------------------------------------------------------------------------