about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--src/Xanthous/Generators/LevelContents.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xanthous/Generators/LevelContents.hs b/src/Xanthous/Generators/LevelContents.hs
index 117860405ac3..5f83a83a3b6e 100644
--- a/src/Xanthous/Generators/LevelContents.hs
+++ b/src/Xanthous/Generators/LevelContents.hs
@@ -76,7 +76,7 @@ randomDoors cells = do
       and [tl, t, tr, b] && (and . fmap not) [l, r]
 
 randomCreatures :: MonadRandom m => Cells -> m (EntityMap Creature)
-randomCreatures = randomEntities Creature.newWithType (0.0007, 0.003)
+randomCreatures = randomEntities Creature.newWithType (0.0007, 0.002)
 
 tutorialMessage :: MonadRandom m
   => Cells