Tweak clouds

src/Dodge/Data/Cloud.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.Cloud where
 
+import Dodge.Data.Material
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -26,14 +27,12 @@ data Cloud = Cloud
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data CloudType
-    = SmokeCloud
-    | FlamerSmokeCloud
+    = --SmokeCloud
+     FlamerSmokeCloud
     | RocketCloud
     | CryoReleaseCloud
     | GasCloud
-    | StoneDust
-    | DirtDust
-    | BloodCloud
+    | Dust Material
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''Cloud