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.Flare where
 import Color
 import Geometry
 import Control.Lens
-
 data Flare
    = MuzFlare 
        { _flarePoly   :: [Point2]
@@ -18,5 +17,5 @@ data Flare
        , _flareTran3  :: Point3
        , _flareTime   :: Int
        }
-
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''Flare