X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-18.git;a=blobdiff_plain;f=src%2Fadvent07%2Fadvent07.hs;h=ffc374d99f8407d41dcf7fc903f726513dfcc248;hp=ce3d05eaf5e93c172fa169d664a13dc680f75b16;hb=f6a9e3c532bad81bab7aa5dc378fc78cb3e3c8c7;hpb=6f3df090da6984a5d0ef26380ac22308a4cc6428

diff --git a/src/advent07/advent07.hs b/src/advent07/advent07.hs
index ce3d05e..ffc374d 100644
--- 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 =