From db9148a76b247c03d1046bcfd71b9eaedddaeb2b Mon Sep 17 00:00:00 2001
From: Correl Roush <correl@gmail.com>
Date: Mon, 5 Mar 2012 19:58:03 -0500
Subject: [PATCH] Cleaned up the mana parser lookahead rules

---
 ManaParser.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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