Attempt to make CWorld correct instance of Store

2022-08-20 15:53:37 +01:00
parent e1a555ea02
commit 8571ab9254
89 changed files with 570 additions and 19 deletions
@@ -3,6 +3,7 @@

 module Dodge.Data.Machine.Sensor where

+import LinearHelp
 import Dodge.Data.GenParams
 import Color
 import Control.Lens
@@ -10,6 +11,8 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Item.Combine
 import Dodge.Data.Damage.Type
+import TH.Derive
+import Data.Store

 data Sensor
    = DamageSensor
@@ -41,3 +44,6 @@ makeLenses ''ProximityRequirement
 deriveJSON defaultOptions ''Sensor
 deriveJSON defaultOptions ''ProximityRequirement
 deriveJSON defaultOptions ''CloseToggle
+$($(derive [d| instance Deriving (Store Sensor) |]))
+$($(derive [d| instance Deriving (Store ProximityRequirement) |]))
+$($(derive [d| instance Deriving (Store CloseToggle) |]))