Attempt to make CWorld correct instance of Store

src/Dodge/Data/Beam.hs

@@ -8,6 +8,8 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
+import TH.Derive
+import Data.Store
 
 {- | Linear beams. Last only one frame.
  - Can interact with one another in a limited manner
@@ -54,3 +56,7 @@ deriveJSON defaultOptions ''BeamType
 deriveJSON defaultOptions ''Beam
 deriveJSON defaultOptions ''BeamDraw
 deriveJSON defaultOptions ''BeamCombineType
+$($(derive [d| instance Deriving (Store BeamType) |]))
+$($(derive [d| instance Deriving (Store Beam) |]))
+$($(derive [d| instance Deriving (Store BeamDraw) |]))
+$($(derive [d| instance Deriving (Store BeamCombineType) |]))