Attempt to make CWorld correct instance of Store

src/Dodge/Data/Block.hs

@@ -7,6 +7,7 @@ module Dodge.Data.Block (
     module Dodge.Data.PathGraph,
 ) where
 
+import LinearHelp
 import Color
 import Control.Lens
 import Data.Aeson
@@ -16,6 +17,8 @@ import Dodge.Data.Material
 import Dodge.Data.PathGraph
 import Geometry
 import Shape.Data
+import TH.Derive
+import Data.Store
 
 data Block = Block
     { _blID :: Int
@@ -48,3 +51,6 @@ makeLenses ''Block
 deriveJSON defaultOptions ''Block
 deriveJSON defaultOptions ''BlockDraw
 deriveJSON defaultOptions ''BlSh
+$($(derive [d| instance Deriving (Store Block) |]))
+$($(derive [d| instance Deriving (Store BlockDraw) |]))
+$($(derive [d| instance Deriving (Store BlSh) |]))