describeEvent PlayLand

MedeaMelana · Mar 15, 2013 · e560f32 · e560f32
1 parent 8eac0d1
commit e560f32
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Magic/Description.hs b/Magic/Description.hs
@@ -209,6 +209,7 @@ describeEvent e =
         "Player " <> sh p <> " adds " <> describeManaPool pool <> " to their mana pool"
       Did (SpendFromManaPool p pool) ->
         "Player " <> sh p <> " spends " <> describeManaPool pool <> " from their mana pool"
+      Did (PlayLand p _) -> "Player " <> sh p <> " plays a land"
       Did (LoseGame p) -> "Player " <> sh p <> " loses"
       Did (WinGame p) -> "Player " <> sh p <> " wins the game"
       Did (CeaseToExist r) -> sh r <> " ceases to exist"