Remove some deriving clauses

This commit is contained in:
2022-08-22 10:37:24 +01:00
parent df905ce2cc
commit c9c3d8f392
7 changed files with 113 additions and 18 deletions
+3 -3
View File
@@ -43,7 +43,7 @@ data Machine = Machine
, _mcCloseSound :: Maybe SoundID
, _mcWidth :: Float
}
deriving (Eq, Show, Read) --, Generic)
--deriving (Eq, Show, Read) --, Generic)
--hderiving (Eq, Show, Read) --Generic, Flat)
data MachineType
@@ -51,7 +51,7 @@ data MachineType
| McTerminal
| McSensor Sensor
| McTurret Turret
deriving (Eq, Show, Read) --, Generic)
--deriving (Eq, Show, Read) --, Generic)
--hderiving (Eq, Show, Read) --Generic, Flat)
data Turret = Turret
@@ -60,7 +60,7 @@ data Turret = Turret
, _tuFireTime :: Int
, _tuDir :: Float
}
deriving (Eq, Show, Read) --, Generic)
--deriving (Eq, Show, Read) --, Generic)
--hderiving (Eq, Show, Read) --Generic, Flat)
makeLenses ''Machine