Successfully push proximity sensor parameters into data

2022-06-07 10:34:59 +01:00
parent 14acd2ee6a
commit 5117fb2a1a
5 changed files with 42 additions and 39 deletions
@@ -993,9 +993,9 @@ data Sensor = NoSensor
        }
  deriving (Eq,Ord)
 data ProximityRequirement
-    = HasHealth {_proxReqMinHealth :: Int}
-    | HasEquipment {_proxReqEquipment :: CombineType}
-    | HasBottom
+    = RequireHealth {_proxReqMinHealth :: Int}
+    | RequireEquipment {_proxReqEquipment :: CombineType}
+    | RequireImpossible
  deriving (Eq,Ord,Show)
 data CloseToggle = NotClose | IsClose
  deriving (Eq,Ord)