about summary refs log tree commit diff
path: root/test/Xanthous/GameSpec.hs
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2019-09-02T14·36-0400
committerGriffin Smith <root@gws.fyi>2019-09-02T14·52-0400
commit18551cdf30c0a13bce40fae9be829e5318612e71 (patch)
treeabb2c73133a4ae99852bd5865c78b4c301943d05 /test/Xanthous/GameSpec.hs
parentadb3b74c0c3a3bffa0d47f52036fde3623f859f7 (diff)
Add a previous message command
Add a "previous message" command, triggered via ctrl+p.

I attempted here to get the message area to still take up a row of space
post-hiding the message, but failed - should revisit that at some point
Diffstat (limited to 'test/Xanthous/GameSpec.hs')
-rw-r--r--test/Xanthous/GameSpec.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Xanthous/GameSpec.hs b/test/Xanthous/GameSpec.hs
index 1f1cc2e4d55e..9319399ac25f 100644
--- a/test/Xanthous/GameSpec.hs
+++ b/test/Xanthous/GameSpec.hs
@@ -15,8 +15,8 @@ test = testGroup "Xanthous.Game"
   [ testGroup "positionedCharacter"
     [ testProperty "lens laws" $ isLens positionedCharacter
     , testCase "updates the position of the character" $ do
-      let initialGame = getInitialState
-          initialPos = initialGame ^. characterPosition
+      initialGame <- getInitialState
+      let initialPos = initialGame ^. characterPosition
           updatedGame = initialGame & characterPosition %~ move Down
           updatedPos = updatedGame ^. characterPosition
       updatedPos @?= move Down initialPos