Refactor doors

2022-07-24 20:36:27 +01:00
parent 2c1bc67a51
commit d6a94ec4bc
25 changed files with 186 additions and 135 deletions
@@ -5,10 +5,11 @@ import Geometry.Data
 import Control.Lens

 data PosEventType = SparkSpawner
-
+  deriving (Eq,Ord,Show,Read)
 data PosEvent = PosEvent
    { _pvType   :: PosEventType
    , _pvTimer  :: Int
    , _pvPos    :: Point2
    }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''PosEvent