From 04b4c0e4510211edebf51a0915903d47740ee65e Mon Sep 17 00:00:00 2001
From: Correl Roush <croush@coredial.com>
Date: Mon, 5 Mar 2012 15:04:37 -0500
Subject: [PATCH] Parse a full card list

---
 CardParser.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/CardParser.hs b/CardParser.hs
index b8d35b3..b9deb2e 100644
--- a/CardParser.hs
+++ b/CardParser.hs
@@ -27,6 +27,10 @@ test_scheme = unlines $ [ "A Display of My Dark Power"
                         , "ARC-C"
                         ]
 
+card_list :: Parser [Card]
+card_list = sepBy card $ string "\n\n"
+
+
 card :: Parser Card
 card = do
     name' <- line