Skip to content
Browse files

Renamed Counter -> CounterType

  • Loading branch information...
1 parent 5a369f4 commit 133bcf895dcf021d05db7bbae70269c707456eee @MedeaMelana committed
Showing with 3 additions and 3 deletions.
  1. +3 −3 Types.hs
View
6 Types.hs
@@ -85,7 +85,7 @@ data Object = Object
, _timestamp :: Timestamp
-- , _triggeredAbilities :: Event -> Magic ()
, _staticAbilities :: Bag StaticAbility
- , _counters :: Bag Counter
+ , _counters :: Bag CounterType
, _effects :: [World -> World]
}
@@ -100,7 +100,7 @@ data Zone = Library | Hand | Stack { _resolve :: Magic () }
data TapStatus = Untapped | Tapped
deriving (Eq, Ord, Show, Read, Enum, Bounded)
-data Counter
+data CounterType
= Charge
| Plus1Plus1
| Minus1Minus1
@@ -176,7 +176,7 @@ data Cost
| Sacrifice (Object -> Bool)
| SacrificeSpecific (Ref Object)
| ExileCost (Object -> Bool)
- | RemoveCounter (Ref Object) Counter
+ | RemoveCounter (Ref Object) CounterType
data StaticAbility
= Flying

0 comments on commit 133bcf8

Please sign in to comment.
Something went wrong with that request. Please try again.