Cleanup module pathing

src/Dodge/Data/Machine/Sensor.hs

@@ -0,0 +1,40 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Dodge.Data.Machine.Sensor where
+
+import Control.Lens
+import Data.Aeson
+import Data.Aeson.TH
+import Dodge.Data.Item.Combine
+import Dodge.Data.Damage.Type
+
+data Sensor
+    = NoSensor
+    | DamageSensor
+        { _sensToggle :: Bool
+        , _sensAmount :: Int
+        , _sensType :: DamageType
+        }
+    | ProximitySensor
+        { _proxStatus :: CloseToggle
+        , _proxDist :: Float
+        , _proxRequirement :: ProximityRequirement
+        , _sensToggle :: Bool
+        }
+    deriving (Eq, Ord, Show, Read)
+
+data ProximityRequirement
+    = RequireHealth {_proxReqMinHealth :: Int}
+    | RequireEquipment {_proxReqEquipment :: ItemBaseType}
+    | RequireImpossible
+    deriving (Eq, Ord, Show, Read)
+
+data CloseToggle = NotClose | IsClose
+    deriving (Eq, Ord, Show, Read)
+
+makeLenses ''Sensor
+makeLenses ''ProximityRequirement
+deriveJSON defaultOptions ''Sensor
+deriveJSON defaultOptions ''ProximityRequirement
+deriveJSON defaultOptions ''CloseToggle