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

Cleaned up the mana parser lookahead rules

Browse source
This commit is contained in:
Correl Roush 2012-03-05 19:58:03 -05:00
parent 2a02c96f2f
commit db9148a76b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ManaParser.hs
View file

@ -5,10 +5,10 @@ import Text.ParserCombinators.Parsec
mana :: Parser Cost mana :: Parser Cost
mana = do mana = do
colorless' <- (many colorless) colorless' <- many colorless
colored' <- (many colored) colored' <- many colored
hybrid' <- (manyTill hybrid $ try $ lookAhead $ many phyrexian) hybrid' <- many $ try hybrid
phyrexian' <- (many phyrexian) phyrexian' <- many $ try phyrexian
return $ Cost (colorless' ++ colored') hybrid' phyrexian' return $ Cost (colorless' ++ colored') hybrid' phyrexian'
standard :: Parser Standard standard :: Parser Standard