Cleanup

src/Dodge/Data/FloorItem.hs

@@ -6,14 +6,12 @@
 module Dodge.Data.FloorItem where
 
 import Flat
-import LinearHelp
+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, Generic, Flat)