Attempt to make CWorld correct instance of Store

src/Dodge/Data/Machine.hs

@@ -11,6 +11,7 @@ module Dodge.Data.Machine (
     module Dodge.Data.GenParams,
 ) where
 
+import LinearHelp
 import Color
 import Control.Lens
 import Data.Aeson
@@ -25,6 +26,8 @@ import Dodge.Data.Material
 import Dodge.Data.ObjectType
 import Geometry.Data
 import Sound.Data
+import TH.Derive
+import Data.Store
 
 data Machine = Machine
     { _mcID :: Int
@@ -64,3 +67,6 @@ makePrisms ''MachineType
 deriveJSON defaultOptions ''Machine
 deriveJSON defaultOptions ''MachineType
 deriveJSON defaultOptions ''Turret
+$($(derive [d| instance Deriving (Store Machine) |]))
+$($(derive [d| instance Deriving (Store MachineType) |]))
+$($(derive [d| instance Deriving (Store Turret) |]))