Cleanup

2024-09-27 23:10:01 +01:00
parent 6c3d0d5def
commit d1690ed3ac
10 changed files with 124 additions and 194 deletions
@@ -6,9 +6,9 @@ import qualified IntMapHelp as IM
 import Control.Lens

 updateLinearShockwave :: LinearShockwave -> World -> World
-updateLinearShockwave lw w
-    | t < 1 = w & cWorld . lWorld . linearShockwaves %~ IM.delete lwid
-    | otherwise = w & cWorld . lWorld . linearShockwaves . ix lwid . lwTimer -~ 1
+updateLinearShockwave lw
+    | t < 1 = cWorld . lWorld . linearShockwaves %~ IM.delete lwid
+    | otherwise = cWorld . lWorld . linearShockwaves . ix lwid . lwTimer -~ 1
  where
    lwid = _lwID lw
    t = _lwTimer lw