Remove Smoke datatype

src/Dodge/Update.hs

@@ -30,7 +30,6 @@ update w
                      $ updateLightSources
                      $ zoneClouds
                      $ updateClouds
-                     $ updateSmoke
                      $ updateCreatures 
                      $ updateBlocks -- $ zoning 
                      $ updateSeenWalls 
@@ -71,9 +70,6 @@ updateLightSources w = set tempLightSources (catMaybes tlss) w'
 
 updateParticles w = IM.foldr' _ptUpdate w $ _projectiles w
 
-updateSmoke :: World -> World
-updateSmoke w = w & smoke %~ mapMaybe (\s -> _smUpdate s s)
-
 updateParticles' :: World -> World
 updateParticles' w = set particles' (catMaybes ps) w'
     where (w',ps) = mapAccumR (\a b -> _ptUpdate' b a b) w $ _particles' w
@@ -145,7 +141,6 @@ clClSpringVel :: Cloud -> World -> Cloud -> Point2 -> Point2
 clClSpringVel a w b v 
     | ida == idb = v
     | dist pa pb < radDist = v +.+ 0.1 *.* (safeNormalizeV (pa -.- pb))
---    | dist pa pb < radDist = v +.+ 0.1 *.* (safeNormalizeV (pa -.- pb))
     | otherwise = v
     where ida = _clID a
           idb = _clID b