Go back to JSON encoding

src/Dodge/Data/Laser.hs

@@ -5,9 +5,6 @@
 
 module Dodge.Data.Laser where
 
-import TH.Derive
-import Data.Store
-import Data.Binary
 import Flat
 import Color
 import Control.Lens
@@ -19,7 +16,6 @@ data LaserType
     = DamageLaser {_laserTypeDamage :: Int}
     | TargetLaser
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store LaserType) |]))
 
 data LaserStart = LaserStart
     { _lpPhaseV :: Float
@@ -29,7 +25,6 @@ data LaserStart = LaserStart
     , _lpType :: LaserType
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store LaserStart ) |]))
 
 data Laser = Laser
     { _laColor :: Color
@@ -37,7 +32,6 @@ data Laser = Laser
     , _laType :: LaserType
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store Laser ) |]))
 
 makeLenses ''Laser
 makeLenses ''LaserStart