Cleanup

2022-03-25 12:00:35 +00:00
parent cb9bdf9c55
commit a07647d89d
5 changed files with 44 additions and 46 deletions
@@ -62,7 +62,7 @@ updateLamp h i cr w
        & creatures . at cid .~ Nothing
    | otherwise = w 
        & lightSources . ix i . lsParam . lsPos .~ addZ h cpos
-        & creatures . ix cid %~ (snd . doDamage)
+        & doDamage cr
  where
    cpos = _crPos cr
    cid  = _crID cr