From 7d90db6c4c182a08b46cd605186b397f4ce69298 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sat, 7 Jun 2025 10:07:31 +0100
Subject: [PATCH] Add file

---
 src/Dodge/Cloud.hs                    | 13 +++++++++++++
 src/Dodge/Data/Machine/Sensor/Type.hs | 19 +++++++++++++++++++
 2 files changed, 32 insertions(+)
 create mode 100644 src/Dodge/Cloud.hs
 create mode 100644 src/Dodge/Data/Machine/Sensor/Type.hs

diff --git a/src/Dodge/Cloud.hs b/src/Dodge/Cloud.hs
new file mode 100644
index 000000000..40a082c2a
--- /dev/null
+++ b/src/Dodge/Cloud.hs
@@ -0,0 +1,13 @@
+module Dodge.Cloud where
+
+import Dodge.Data.Cloud
+
+cRad :: Cloud -> Float
+cRad cl = case _clType cl of
+    SmokeCloud -> 0
+    FlamerSmokeCloud -> 6
+    RocketCloud -> 15
+    StoneDust -> 15
+    CryoReleaseCloud -> 10
+    GasCloud -> 15
+
diff --git a/src/Dodge/Data/Machine/Sensor/Type.hs b/src/Dodge/Data/Machine/Sensor/Type.hs
new file mode 100644
index 000000000..e8b885fe3
--- /dev/null
+++ b/src/Dodge/Data/Machine/Sensor/Type.hs
@@ -0,0 +1,19 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Data.Machine.Sensor.Type
+    where
+import Data.Aeson
+import Data.Aeson.TH
+
+data SensorType 
+    = LaserSensor
+    | ElectricSensor
+    | ThermalSensor
+    | PhysicalSensor
+    deriving (Eq,Ord,Show,Read,Bounded,Enum)
+
+deriveJSON defaultOptions ''SensorType
+instance ToJSONKey SensorType
+instance FromJSONKey SensorType