Hlint pass

2021-07-12 12:44:43 +02:00
parent 75254cd3e4
commit ac66b4b9d6
8 changed files with 85 additions and 96 deletions
@@ -161,6 +161,9 @@ checkEndGame w
    | _crHP (you w) < 1 = haltSound $ w {_menuLayers = [GameOverMenu]}
    | otherwise         = w

+--updateClouds :: World -> World
+--updateClouds = (clouds .~ IM.empty) . (cloudsZone .~ IM.empty)
+
 updateClouds :: World -> World
 updateClouds w = IM.foldr' updateCloud w $ _clouds w