Remove generic and flat instances

src/Dodge/Data/HUD.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.HUD where
 
-import Flat
 import LinearHelp ()
 import Control.Lens
 import Data.Aeson
@@ -15,7 +14,7 @@ import Geometry.Data
 data HUDElement
     = DisplayInventory {_subInventory :: SubInventory}
     | DisplayCarte
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data SubInventory
     = NoSubInventory
@@ -24,7 +23,7 @@ data SubInventory
     | InspectInventory
     | LockedInventory
     | DisplayTerminal {_termID :: Int}
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data HUD = HUD
     { _hudElement :: HUDElement
@@ -32,7 +31,7 @@ data HUD = HUD
     , _carteZoom :: Float
     , _carteRot :: Float
     }
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''HUD
 makeLenses ''HUDElement