Add file, fix lamp doDamage space leak

src/Dodge/Creature/State.hs

@@ -79,22 +79,24 @@ dropByState cr w = foldr (copyItemToFloor cr) w is
 setOldPos :: Creature -> Creature
 setOldPos cr = set crOldPos (_crPos cr) cr
 
-{- 
+{- |
 Given a creature and a velocity, applies friction to that creature and evaluates a 
 velocity to carry across frames.
 -}
 crFriction :: Creature -> Point2 -> Point2
 crFriction cr vel = (0,0)
 
+{- | In order to force a list, apply with seq -}
+forceSpine :: [a] -> ()
+forceSpine = foldr (const id) ()
+
 doDamage :: Creature -> Creature
-doDamage cr = set (crState . crDamage) [] $ over (crState . crPastDamage) (take 20 . (dams :) )
-                                            damagedCr
+doDamage cr = set (crState . crDamage) [] 
+    $ over (crState . crPastDamage) (f . take 20 . (dams :) ) damagedCr
   where 
+    f l = seq (forceSpine l) l
     dams = _crDamage $ _crState cr
-    startHP = _crHP cr
     damagedCr = snd $ (_crApplyDamage cr) dams cr
-    afterHP = _crHP damagedCr
-    hpLost = startHP - afterHP  -- note this can be negative 
 
 sumDamage :: Creature -> DamageType -> Int -> Int
 sumDamage cr dm x = x + _dmAmount dm