diff --git a/ManaParser.hs b/ManaParser.hs index 15ddbf8..d4acb12 100644 --- a/ManaParser.hs +++ b/ManaParser.hs @@ -5,10 +5,10 @@ import Text.ParserCombinators.Parsec mana :: Parser Cost mana = do - colorless' <- (many colorless) - colored' <- (many colored) - hybrid' <- (manyTill hybrid $ try $ lookAhead $ many phyrexian) - phyrexian' <- (many phyrexian) + colorless' <- many colorless + colored' <- many colored + hybrid' <- many $ try hybrid + phyrexian' <- many $ try phyrexian return $ Cost (colorless' ++ colored') hybrid' phyrexian' standard :: Parser Standard