Prop reification/splitting

src/Dodge/LinearShockwave/Update.hs

@@ -0,0 +1,16 @@
+module Dodge.LinearShockwave.Update
+    where
+import Dodge.Data
+import qualified IntMapHelp as IM
+
+import Control.Lens
+
+updateLinearShockwave :: LinearShockwave -> World -> World
+updateLinearShockwave lw w
+    | t < 1 = w & linearShockwaves %~ IM.delete lwid
+    | otherwise = w & linearShockwaves . ix lwid . lwTimer -~ 1
+  where
+    lwid = _lwID lw
+    t = _lwTimer lw
+
+