Attempt to make CWorld correct instance of Store

src/Dodge/Data/RadarSweep.hs

@@ -6,11 +6,14 @@ module Dodge.Data.RadarSweep (
     module Dodge.Data.ObjectType,
 ) where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.ObjectType
 import Geometry.Data
+import TH.Derive
+import Data.Store
 
 data RadarSweep = RadarSweep
     { _rsPos :: Point2
@@ -22,3 +25,4 @@ data RadarSweep = RadarSweep
 
 makeLenses ''RadarSweep
 deriveJSON defaultOptions ''RadarSweep
+$($(derive [d| instance Deriving (Store RadarSweep) |]))