Cleanup

src/Dodge/Flame.hs

@@ -46,7 +46,7 @@ expireAndDamageFL :: (Flame -> Point2 -> [Damage])
     -> World
     -> (World, Maybe Flame)
 expireAndDamageFL fdm bt things w = case runIdentity $ S.head_ things of
-    Nothing -> (w, mvFlame bt)
+    Nothing -> (w, Just $ bt & flTimer -~ 1)
     Just x -> (doDamagesFL fdm x bt w, Nothing)
 doDamagesFL :: (Flame -> Point2 -> [Damage])
     -> (Point2, Either Creature Wall)
@@ -110,10 +110,6 @@ flDamageInArea crt wlt pt w = damwls damcrs
         $ wlsNearPoint p w'
     hiteff = expireAndDamageFL (simpleDamFL FLAMING 1) pt
 
-mvFlame :: Flame -> Maybe Flame
-mvFlame pt = Just $ pt
-    & flTimer -~ 1
-
 flFlicker :: Flame -> World -> World
 flFlicker pt 
     | _flTimer pt `mod` 7 == 0 = tempLightSources