Improve sensor terminal messages

src/Dodge/Data/Machine/Sensor.hs

@@ -3,7 +3,7 @@
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module Dodge.Data.Machine.Sensor (module Dodge.Data.Machine.Sensor) where
+module Dodge.Data.Machine.Sensor where
 
 import Control.Lens
 import Data.Aeson
@@ -18,7 +18,6 @@ data SensorType
     | PhysicalSensor
     deriving (Eq, Ord, Show, Read, Bounded, Enum)
 
-
 data DamageSensor = DamSensor
     { _sensAmount :: Int
     , _sensType :: SensorType
@@ -27,10 +26,10 @@ data DamageSensor = DamSensor
 
 data ProximitySensor = ProxSensor
     { _proxSensorType :: ProximitySensorType
-    , _proxToggle :: Bool
+    , _proxToggle :: Maybe Bool
     }
 
-data ProximitySensorType 
+data ProximitySensorType
     = SensorWithRequirement ProximityRequirement
     | NoItemZone [Point2]