diff options
Diffstat (limited to 'src/Xanthous/Game/Arbitrary.hs')
| -rw-r--r-- | src/Xanthous/Game/Arbitrary.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xanthous/Game/Arbitrary.hs b/src/Xanthous/Game/Arbitrary.hs index e8f9ae22c4..090eba634d 100644 --- a/src/Xanthous/Game/Arbitrary.hs +++ b/src/Xanthous/Game/Arbitrary.hs @@ -18,11 +18,11 @@ import qualified Xanthous.Data.EntityMap as EntityMap instance Arbitrary GameState where arbitrary = do - char <- arbitrary @Character + chr <- arbitrary @Character charPos <- arbitrary _messageHistory <- arbitrary (_characterEntityID, _entities) <- arbitrary <&> - EntityMap.insertAtReturningID charPos (SomeEntity char) + EntityMap.insertAtReturningID charPos (SomeEntity chr) _revealedPositions <- fmap setFromList . sublistOf $ EntityMap.positions _entities _randomGen <- mkStdGen <$> arbitrary let _promptState = NoPrompt -- TODO |