Refactor clouds

src/Dodge/Data/Cloud.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Cloud where
 
-import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -20,7 +19,7 @@ data Cloud = Cloud
     , _clVel :: Point3
 --    , _clPict :: CloudDraw
 --    , _clRad :: Float
-    , _clAlt :: Float
+--    , _clAlt :: Float
     , _clTimer :: Int
     , _clType :: CloudType
     }
@@ -33,6 +32,8 @@ data CloudType
     | CryoReleaseCloud
     | GasCloud
     | StoneDust
+    | DirtDust
+    | BloodCloud
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''Cloud