Attempt to make CWorld correct instance of Store

src/Dodge/Data/FloorItem.hs

@@ -3,14 +3,18 @@
 
 module Dodge.Data.FloorItem where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Item
 import Geometry.Data
+import TH.Derive
+import Data.Store
 
 data FloorItem = FlIt {_flIt :: Item, _flItPos :: Point2, _flItRot :: Float, _flItID :: Int}
     deriving (Eq, Show, Read)
 
 makeLenses ''FloorItem
 deriveJSON defaultOptions ''FloorItem
+$($(derive [d| instance Deriving (Store FloorItem) |]))