Remove some deriving clauses

src/Dodge/Data/FloorItem.hs

@@ -12,7 +12,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