Improve static bullets

src/Dodge/Data/PosEvent.hs

@@ -0,0 +1,14 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.PosEvent where
+import Geometry.Data
+import Control.Lens
+
+data PosEventType = SparkSpawner
+
+data PosEvent = PosEvent
+    { _pvType   :: PosEventType
+    , _pvTimer  :: Int
+    , _pvPos    :: Point2
+    }
+makeLenses ''PosEvent