Attempt to make CWorld correct instance of Store

src/Dodge/Data/Door.hs

@@ -8,6 +8,7 @@ module Dodge.Data.Door (
     module Dodge.Data.WorldEffect,
 ) where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -16,6 +17,8 @@ import Dodge.Data.MountedObject
 import Dodge.Data.PathGraph
 import Dodge.Data.WorldEffect
 import Geometry.Data
+import TH.Derive
+import Data.Store
 
 data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
     deriving (Eq, Ord, Show, Read)
@@ -50,3 +53,6 @@ makeLenses ''Door
 deriveJSON defaultOptions ''DoorStatus
 deriveJSON defaultOptions ''PushSource
 deriveJSON defaultOptions ''Door
+$($(derive [d| instance Deriving (Store DoorStatus) |]))
+$($(derive [d| instance Deriving (Store PushSource) |]))
+$($(derive [d| instance Deriving (Store Door) |]))