Move from store to flat

src/Dodge/Data/Laser.hs

@@ -1,8 +1,11 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module Dodge.Data.Laser where
 
+import Flat
 import Color
 import Control.Lens
 import Data.Aeson
@@ -14,7 +17,7 @@ import Data.Store
 data LaserType
     = DamageLaser {_laserTypeDamage :: Int}
     | TargetLaser
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data LaserStart = LaserStart
     { _lpPhaseV :: Float
@@ -23,14 +26,14 @@ data LaserStart = LaserStart
     , _lpColor :: Color
     , _lpType :: LaserType
     }
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data Laser = Laser
     { _laColor :: Color
     , _laPoints :: [Point2]
     , _laType :: LaserType
     }
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 makeLenses ''Laser
 makeLenses ''LaserStart
@@ -38,6 +41,3 @@ makeLenses ''LaserType
 deriveJSON defaultOptions ''LaserType
 deriveJSON defaultOptions ''LaserStart
 deriveJSON defaultOptions ''Laser
-$($(derive [d| instance Deriving (Store LaserType) |]))
-$($(derive [d| instance Deriving (Store LaserStart) |]))
-$($(derive [d| instance Deriving (Store Laser) |]))