Prop reification/splitting

src/Dodge/Data/LinearShockwave.hs

@@ -0,0 +1,13 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.LinearShockwave where
+import Geometry.Data
+import Control.Lens
+data LinearShockwave = LinearShockwave
+    { _lwPos :: Point2
+    , _lwID :: Int
+    , _lwPoints :: [(Point2,Point2)]
+    , _lwTimer :: Int
+    }
+  deriving (Eq,Ord,Show,Read)
+makeLenses ''LinearShockwave