More strictifiiiying

2021-07-30 01:25:11 +02:00
parent 2d8b27746c
commit 7b7fd302d8
37 changed files with 459 additions and 448 deletions
@@ -110,7 +110,7 @@ updateTriggers w
        & creatures . ix 0 .~ cr
    | otherwise = w
  where
-    cr = _creatures w IM.! 0 & crPos .~ (0,0)
+    cr = _creatures w IM.! 0 & crPos .~ (V2 0 0)

 updateSoundQueue :: World -> World
 updateSoundQueue = set soundQueue [] . set sounds M.empty