about summary refs log tree commit diff
path: root/test/Xanthous/GameSpec.hs
diff options
context:
space:
mode:
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