Cleanup

src/Dodge/Data/Machine/Sensor.hs

@@ -3,6 +3,8 @@
 
 module Dodge.Data.Machine.Sensor where
 
+import Dodge.Data.GenParams
+import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -10,11 +12,11 @@ import Dodge.Data.Item.Combine
 import Dodge.Data.Damage.Type
 
 data Sensor
-    = NoSensor
-    | DamageSensor
+    = DamageSensor
         { _sensToggle :: Bool
         , _sensAmount :: Int
         , _sensType :: DamageType
+        , _sensDraw :: (PaletteColor, DecorationShape)
         }
     | ProximitySensor
         { _proxStatus :: CloseToggle