Remove some deriving clauses

This commit is contained in:
2022-08-22 10:56:53 +01:00
parent c9c3d8f392
commit 054ec84fcd
6 changed files with 33 additions and 22 deletions
+3 -3
View File
@@ -19,14 +19,14 @@ data RightButtonOptions
, _opAllocateEquipment :: AllocateEquipment
, _opActivateEquipment :: ActivateEquipment
}
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data ActivateEquipment
= ActivateEquipment {_activateEquipment :: Int}
| DeactivateEquipment {_deactivateEquipment :: Int}
| ActivateDeactivateEquipment {_activateEquipment :: Int, _deactivateEquipment :: Int}
| NoChangeActivateEquipment
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data AllocateEquipment
= DoNotMoveEquipment
@@ -49,7 +49,7 @@ data AllocateEquipment
| RemoveEquipment
{ _allocOldPos :: EquipPosition
}
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
makeLenses ''RightButtonOptions
makeLenses ''AllocateEquipment