Remove equality derivation for hud elements

2023-01-15 12:38:06 +00:00
parent a50e2ff406
commit 17734738f6
4 changed files with 7 additions and 5 deletions
@@ -16,7 +16,7 @@ data HUDElement
        { _subInventory :: SubInventory
        }
    | DisplayCarte
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data SubInventory
    = NoSubInventory
@@ -25,7 +25,7 @@ data SubInventory
        , _subInvRegexInput :: Bool}
    | LockedInventory
    | DisplayTerminal {_termID :: Int}
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data HUD = HUD
    { _hudElement :: HUDElement