Attempt to make CWorld correct instance of Store
This commit is contained in:
@@ -10,6 +10,8 @@ import Data.Aeson.TH
|
||||
import Dodge.Data.ArcStep
|
||||
import Dodge.Data.Beam
|
||||
import Geometry.Data
|
||||
import TH.Derive
|
||||
import Data.Store
|
||||
|
||||
data ItemParams
|
||||
= NoParams
|
||||
@@ -113,3 +115,9 @@ deriveJSON defaultOptions ''PreviousArcEffect
|
||||
deriveJSON defaultOptions ''GunBarrels
|
||||
deriveJSON defaultOptions ''Nozzle
|
||||
deriveJSON defaultOptions ''BarrelSpread
|
||||
$($(derive [d| instance Deriving (Store ItemParams) |]))
|
||||
$($(derive [d| instance Deriving (Store ShrinkGunStatus) |]))
|
||||
$($(derive [d| instance Deriving (Store PreviousArcEffect) |]))
|
||||
$($(derive [d| instance Deriving (Store GunBarrels) |]))
|
||||
$($(derive [d| instance Deriving (Store Nozzle) |]))
|
||||
$($(derive [d| instance Deriving (Store BarrelSpread) |]))
|
||||
|
||||
Reference in New Issue
Block a user