diff options
Diffstat (limited to 'users/grfn/xanthous/src/Xanthous/Generators/Level/LevelContents.hs')
| -rw-r--r-- | users/grfn/xanthous/src/Xanthous/Generators/Level/LevelContents.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/Generators/Level/LevelContents.hs b/users/grfn/xanthous/src/Xanthous/Generators/Level/LevelContents.hs index 7582ae2758..3cad569336 100644 --- a/users/grfn/xanthous/src/Xanthous/Generators/Level/LevelContents.hs +++ b/users/grfn/xanthous/src/Xanthous/Generators/Level/LevelContents.hs @@ -100,7 +100,7 @@ tutorialMessage cells characterPosition = do randomEntities :: forall entity raw m. (MonadRandom m, RawType raw) - => (raw -> entity) + => (raw -> m entity) -> (Float, Float) -> Cells -> m (EntityMap entity) @@ -114,7 +114,7 @@ randomEntities newWithType sizeRange cells = entities <- for [0..numEntities] $ const $ do pos <- randomPosition cells raw <- choose raws - let entity = newWithType raw + entity <- newWithType raw pure (pos, entity) pure $ _EntityMap # entities |