Add more deriving clauses

2022-07-25 09:26:41 +01:00
parent c3a5b9d5be
commit d62e14cdb5
8 changed files with 22 additions and 13 deletions
@@ -13,11 +13,13 @@ data RightButtonOptions
        ,_opAllocateEquipment :: AllocateEquipment
        ,_opActivateEquipment :: ActivateEquipment
        }
+  deriving (Eq,Ord,Show,Read)
 data ActivateEquipment
    = ActivateEquipment {_activateEquipment :: Int }
    | DeactivateEquipment {_deactivateEquipment :: Int}
    | ActivateDeactivateEquipment {_activateEquipment :: Int ,_deactivateEquipment :: Int}
    | NoChangeActivateEquipment
+  deriving (Eq,Ord,Show,Read)
 data AllocateEquipment 
    = DoNotMoveEquipment
    | PutOnEquipment
@@ -39,6 +41,7 @@ data AllocateEquipment
    | RemoveEquipment
        { _allocOldPos  :: EquipPosition
        }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''RightButtonOptions
 makeLenses ''AllocateEquipment
 makeLenses ''ActivateEquipment