Broken: refactor terminals

This commit is contained in:
2022-07-25 00:45:15 +01:00
parent d1bf49319a
commit d219d8d889
25 changed files with 505 additions and 364 deletions
+3 -3
View File
@@ -17,13 +17,13 @@ data Sensor = NoSensor
, _proxRequirement :: ProximityRequirement
, _sensToggle :: Bool
}
deriving (Eq,Ord)
deriving (Eq,Ord,Show,Read)
data ProximityRequirement
= RequireHealth {_proxReqMinHealth :: Int}
| RequireEquipment {_proxReqEquipment :: ItemBaseType}
| RequireImpossible
deriving (Eq,Ord,Show)
deriving (Eq,Ord,Show,Read)
data CloseToggle = NotClose | IsClose
deriving (Eq,Ord,Show)
deriving (Eq,Ord,Show,Read)
makeLenses ''Sensor
makeLenses ''ProximityRequirement