Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -7,8 +7,8 @@ import Control.Lens

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