Hlinting

2021-04-27 11:45:43 +02:00
parent f8351fb150
commit 64b5b9e2a5
34 changed files with 974 additions and 761 deletions
@@ -52,8 +52,10 @@ triLootRoom w h = pure $ Room
        ]
    base = rectNSWE 20 (-80) (-20) 20

+{- Create a random room with one entrance containing given creatures and items.
+ -}
 lootRoom :: RandomGen g => [Creature] -> [Item] -> State g Room
 lootRoom crs itms = do
    let w = 300
        h = 700
-    fmap (replacePutID 0 (map PutCrit crs) . replacePutID 2 (map PutFlIt itms)) $ triLootRoom w h
+    replacePutID 0 (map PutCrit crs) . replacePutID 2 (map PutFlIt itms) <$> triLootRoom w h