Working compilation with some Flat instances

2022-08-21 10:25:00 +01:00
parent b227b1e957
commit 386a2b4732
1 changed files with 6 additions and 3 deletions
@@ -45,14 +45,16 @@ data Machine = Machine
    , _mcCloseSound :: Maybe SoundID
    , _mcWidth :: Float
    }
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read, Generic)
+    --hderiving (Eq, Show, Read, Generic, Flat)

 data MachineType
    = McStatic
    | McTerminal
    | McSensor Sensor
    | McTurret Turret
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read, Generic)
+    --hderiving (Eq, Show, Read, Generic, Flat)

 data Turret = Turret
    { _tuWeapon :: Item
@@ -60,7 +62,8 @@ data Turret = Turret
    , _tuFireTime :: Int
    , _tuDir :: Float
    }
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read, Generic)
+    --hderiving (Eq, Show, Read, Generic, Flat)

 makeLenses ''Machine
 makeLenses ''Turret