Refactor doors

2022-07-24 20:36:27 +01:00
parent 2c1bc67a51
commit d6a94ec4bc
25 changed files with 186 additions and 135 deletions
@@ -4,7 +4,6 @@ module Dodge.Data.RadarBlip where
 import Color
 import Geometry
 import Control.Lens
-
 data RadarBlip = RadarBlip
    { _rbColor      :: Color
    , _rbTime       :: Int
@@ -12,5 +11,5 @@ data RadarBlip = RadarBlip
    , _rbRad        :: Float
    , _rbPos        :: Point2
    }
-
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''RadarBlip