Separate and reify laser beams

src/Dodge/Data/Laser.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Laser
+    where
+import Color
+import Geometry.Data
+import Control.Lens
+data LaserStart = LaserStart
+    { _lpDamage :: Int
+    , _lpPhaseV :: Float
+    , _lpPos :: Point2
+    , _lpDir :: Float
+    , _lpColor :: Color
+    }
+
+data Laser = Laser
+    { _laColor  :: Color
+    , _laPoints :: [Point2]
+    }
+makeLenses ''Laser
+makeLenses ''LaserStart

src/Dodge/Data/PressPlate.hs

@@ -16,4 +16,5 @@ data PressPlate = PressPlate
     , _ppID :: Int
     , _ppText :: String
     }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''PressPlate