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
+5 -3
View File
@@ -27,16 +27,18 @@ data Sensor
, _proxRequirement :: ProximityRequirement
, _sensToggle :: Bool
}
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data ProximityRequirement
= RequireHealth {_proxReqMinHealth :: Int}
| RequireEquipment {_proxReqEquipment :: ItemBaseType}
| RequireImpossible
deriving (Eq, Ord, Show, Read) --Generic, Flat)
deriving (Show)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data CloseToggle = NotClose | IsClose
deriving (Eq, Ord, Show, Read) --Generic, Flat)
deriving (Show)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
makeLenses ''Sensor
makeLenses ''ProximityRequirement