Remove generic and flat instances

src/Dodge/Data/FloorItem.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.FloorItem where
 
-import Flat
 import LinearHelp ()
 import Control.Lens
 import Data.Aeson
@@ -14,7 +13,7 @@ import Dodge.Data.Item
 import Geometry.Data
 
 data FloorItem = FlIt {_flIt :: Item, _flItPos :: Point2, _flItRot :: Float, _flItID :: Int}
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read) --Generic, Flat)
 
 makeLenses ''FloorItem
 deriveJSON defaultOptions ''FloorItem