Hit tanks will die now.

2010-03-18 09:22:21 +01:00 · 2010-03-18 09:22:21 +01:00 · 736ad91b32
commit 736ad91b32
parent 5c34cd6941
3 changed files with 7 additions and 5 deletions
--- a/src/Tank.hs
+++ b/src/Tank.hs
@ -14,4 +14,5 @@ data Tank = Tank
          , tankBulletSpeed   :: !Micro
          , tankBulletBounces :: !Int
          , tankBulletsLeft   :: !Int
-          } deriving Show
+          , tankLife          :: !Int
+          } deriving (Eq, Show)