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'