Remove Smoke datatype

src/Dodge/Data.hs

@@ -50,7 +50,6 @@ data World = World
                 , _cloudsZone       :: IM.IntMap (IM.IntMap (IM.IntMap Cloud))
                 , _projectiles      :: IM.IntMap Projectile
                 , _particles'       :: ![Particle']
-                , _smoke            :: [Smoke]
                 , _walls            :: !(IM.IntMap Wall)
                 , _wallsZone        :: (IM.IntMap (IM.IntMap (IM.IntMap Wall)))
                 , _forceFields      :: IM.IntMap ForceField
@@ -497,16 +496,6 @@ data DamageType = Piercing {_dmAmount :: Int , _dmFrom :: Point2 , _dmAt :: Poin
 
 data Either3 a b c = E3x1 a | E3x2 b | E3x3 c
 
-data Smoke = 
-    Smoke
-        { _smPos    :: Point2
-        , _smRad    :: Float
-        , _smColor  :: Color
-        , _smUpdate :: Smoke -> Maybe Smoke
-        , _smPs     :: [Point2]
-        , _smTime   :: Int
-        }
-
 data WLID = WLID { _wlIDx :: Int, _wlIDy :: Int, _wlIDid :: Int}
 
 data Wall 
@@ -637,7 +626,6 @@ makeLenses ''FloorItem
 makeLenses ''Projectile
 makeLenses ''Particle'
 makeLenses ''Wall
-makeLenses ''Smoke
 makeLenses ''ForceField
 makeLenses ''FFState
 makeLenses ''PressPlate