From 2a02c96f2fddce2a3aac3828b72a5e7785ed1ab5 Mon Sep 17 00:00:00 2001 From: Correl Roush Date: Mon, 5 Mar 2012 18:06:22 -0500 Subject: [PATCH] Added a lookahead to fix errors parsing hybrid / phryexian mana --- ManaParser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ManaParser.hs b/ManaParser.hs index 56b17c2..15ddbf8 100644 --- a/ManaParser.hs +++ b/ManaParser.hs @@ -7,7 +7,7 @@ mana :: Parser Cost mana = do colorless' <- (many colorless) colored' <- (many colored) - hybrid' <- (many hybrid) + hybrid' <- (manyTill hybrid $ try $ lookAhead $ many phyrexian) phyrexian' <- (many phyrexian) return $ Cost (colorless' ++ colored') hybrid' phyrexian'