Remove equality derivation for hud elements
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -8,7 +8,6 @@ import qualified Data.Map.Strict as M
|
||||
import Dodge.Data.CWorld
|
||||
import Geometry.Data
|
||||
import SDL (MouseButton, Scancode)
|
||||
import qualified Data.Text as T
|
||||
|
||||
data PressType = InitialPress
|
||||
| ShortPress
|
||||
|
||||
@@ -18,7 +18,6 @@ import Control.Lens
|
||||
--import qualified Data.Map.Strict as M
|
||||
import Data.Preload
|
||||
import Data.Sequence (Seq (..))
|
||||
import qualified Data.Text as T
|
||||
import Dodge.Data.Config
|
||||
import Dodge.Data.World
|
||||
import Loop.Data
|
||||
|
||||
Reference in New Issue
Block a user