Day 8

[advent-of-code-18.git] / src / advent07 / advent07.hs

diff --git a/src/advent07/advent07.hs b/src/advent07/advent07.hs
index ce3d05eaf5e93c172fa169d664a13dc680f75b16..ffc374d99f8407d41dcf7fc903f726513dfcc248 100644 (file)
--- a/src/advent07/advent07.hs
+++ b/src/advent07/advent07.hs
@@ -147,8 +147,9 @@ suffixP = symb " can begin."
 
 linkFileP = many linkP
 
-linkP = pairify <$> prefixP <*> upperChar <* infixP <*> upperChar <* suffixP 
-    where pairify _ a b = (a, b)
+-- linkP = pairify <$> prefixP <*> upperChar <* infixP <*> upperChar <* suffixP 
+--     where pairify _ a b = (a, b)
+linkP = (,) <$> (prefixP *> upperChar <* infixP) <*> upperChar <* suffixP 
 
 successfulParse :: Text -> [Link]
 successfulParse input =