Attempt to make CWorld correct instance of Store

src/Dodge/Data/Creature/Perception.hs

@@ -26,6 +26,8 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.FloatFunction
 import qualified IntMapHelp as IM
+import TH.Derive
+import Data.Store
 
 data Perception = Perception
     { _cpVigilance :: Vigilance
@@ -75,3 +77,9 @@ deriveJSON defaultOptions ''Audition
 deriveJSON defaultOptions ''Vigilance
 deriveJSON defaultOptions ''Attention
 deriveJSON defaultOptions ''Awareness
+$($(derive [d| instance Deriving (Store Perception) |]))
+$($(derive [d| instance Deriving (Store Vision) |]))
+$($(derive [d| instance Deriving (Store Audition) |]))
+$($(derive [d| instance Deriving (Store Vigilance) |]))
+$($(derive [d| instance Deriving (Store Attention) |]))
+$($(derive [d| instance Deriving (Store Awareness) |]))