Attempt to make CWorld correct instance of Store
This commit is contained in:
@@ -20,6 +20,8 @@ import Dodge.Data.Item.HeldUse
|
||||
import Dodge.Data.Item.Use.Consumption
|
||||
import Dodge.Data.Item.Use.Equipment
|
||||
import Dodge.Data.Item.HeldDelay
|
||||
import TH.Derive
|
||||
import Data.Store
|
||||
|
||||
data ItemUse
|
||||
= HeldUse
|
||||
@@ -80,3 +82,8 @@ deriveJSON defaultOptions ''ItemUse
|
||||
deriveJSON defaultOptions ''AimParams
|
||||
deriveJSON defaultOptions ''AimStance
|
||||
deriveJSON defaultOptions ''ItZoom
|
||||
|
||||
$($(derive [d| instance Deriving (Store ItemUse) |]))
|
||||
$($(derive [d| instance Deriving (Store AimParams) |]))
|
||||
$($(derive [d| instance Deriving (Store AimStance) |]))
|
||||
$($(derive [d| instance Deriving (Store ItZoom) |]))
|
||||
|
||||
Reference in New Issue
Block a user