correlr/magic
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Parse a full card list

Browse source
This commit is contained in:
Correl Roush 2012-03-05 15:04:37 -05:00
parent fc0d0eb1d6
commit 04b4c0e451
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
CardParser.hs
View file

@ -27,6 +27,10 @@ test_scheme = unlines $ [ "A Display of My Dark Power"
, "ARC-C" , "ARC-C"
] ]
card_list :: Parser [Card]
card_list = sepBy card $ string "\n\n"
card :: Parser Card card :: Parser Card
card = do card = do
name' <- line name' <- line