Start work on clouds, damage, sensors

2025-06-06 22:53:41 +01:00
parent d2d4642380
commit 7bee1549bf
25 changed files with 325 additions and 312 deletions
@@ -5,15 +5,15 @@

 module Dodge.Data.GenParams where

+import Dodge.Data.Machine.Sensor.Type
 import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.Map.Strict as M
-import Dodge.Data.Damage.Type

 newtype GenParams = GenParams
-    { _sensorCoding :: M.Map DamageType (PaletteColor, DecorationShape)
+    { _sensorCoding :: M.Map SensorType (PaletteColor, DecorationShape)
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)