Permalink
Browse files

Fixed BasicLands

  • Loading branch information...
1 parent f265fc9 commit 05d87ea9f0f885c13cef8ea9aa1dfa075b4ccc24 @MedeaMelana committed Nov 7, 2012
Showing with 4 additions and 3 deletions.
  1. +3 −2 BasicLands.hs
  2. +1 −1 Makefile
View
@@ -6,6 +6,7 @@ import Core
import Labels
import Predicates
import Utils
+import Types
import Control.Applicative
import Data.Label.PureM
@@ -35,7 +36,7 @@ playLand rSource rActivator = ClosedAbility
_ -> return False
, _manaCost = mempty
, _additionalCosts = []
- , _effect = SpecialAction (return [WillSimpleEffect (PlayLand rSource)])
+ , _effect = SpecialAction (return [Will (PlayLand rSource)])
}
tapToAddMana :: Maybe Color -> Ability
@@ -47,7 +48,7 @@ tapToAddMana mc rSource rActivator = ClosedAbility
, _manaCost = mempty
, _additionalCosts = []
-- TODO require cost: tap self
- , _effect = SpecialAction (return [WillSimpleEffect (AddToManaPool rActivator mc)])
+ , _effect = SpecialAction (return [Will (AddToManaPool rActivator mc)])
}
checkObject :: ObjectRef -> (Object -> Bool) -> View Bool
View
@@ -1,5 +1,5 @@
run:
- ghci -Wall Engine M12
+ ghci -Wall Engine M12 BasicLands
docs:
cabal haddock

0 comments on commit 05d87ea

Please sign in to comment.