Parse a full card list

2012-03-05 15:04:37 -05:00 · 2012-03-05 15:04:37 -05:00 · 04b4c0e451
commit 04b4c0e451
parent fc0d0eb1d6
1 changed files with 4 additions and 0 deletions
--- 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