Permalink
Browse files

Renamed willDie -> willMoveToGraveyard

  • Loading branch information...
1 parent 2e4e640 commit 4b8165f5c2bee569c09d25a9f1e56ec2338dda0e @MedeaMelana committed Nov 5, 2012
Showing with 4 additions and 4 deletions.
  1. +2 −2 Engine.hs
  2. +2 −2 Utils.hs
View
@@ -298,7 +298,7 @@ collectSBAs = execWriterT $ do
-- [704.5f]
let hasNonPositiveToughness = maybe False (<= 0) (get toughness o)
- when hasNonPositiveToughness $ tell [willDie i o]
+ when hasNonPositiveToughness $ tell [willMoveToGraveyard i o]
-- [704.5g]
-- [704.5h]
@@ -311,7 +311,7 @@ collectSBAs = execWriterT $ do
-- [704.5i]
when (o `hasTypes` planeswalkerType && countCountersOfType Loyalty o == 0) $
- tell [willDie i o]
+ tell [willMoveToGraveyard i o]
-- TODO [704.5j]
-- TODO [704.5k]
View
@@ -111,5 +111,5 @@ hasTypes o t = t `isObjectTypesSubsetOf` _types o
countCountersOfType :: CounterType -> Object -> Int
countCountersOfType ty o = length (filter (== ty) (get counters o))
-willDie :: Id -> Object -> OneShotEffect
-willDie i o = WillMoveObject (Battlefield, i) (Graveyard (get owner o)) o
+willMoveToGraveyard :: Id -> Object -> OneShotEffect
+willMoveToGraveyard i o = WillMoveObject (Battlefield, i) (Graveyard (get owner o)) o

0 comments on commit 4b8165f

Please sign in to comment.