Refactor machines

src/Dodge/Data/GenParams.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.GenParams
+    where
+import Color
+import Dodge.Data.Damage.Type
+import Control.Lens
+import qualified Data.Map.Strict as M
+newtype GenParams = GenParams
+    { _sensorCoding :: M.Map DamageType (PaletteColor,DecorationShape)
+    }
+  deriving (Eq,Ord,Show,Read)
+data DecorationShape = PLUS | SQUARE | CIRCLE | THREELINES
+  deriving (Eq,Ord,Enum,Show,Read)
+makeLenses ''GenParams