From db50deea9692b8aca8d4e277c3e2455fcf97717a Mon Sep 17 00:00:00 2001
From: Natty <natty.sh.git@gmail.com>
Date: Tue, 12 Dec 2023 00:11:31 +0100
Subject: [PATCH] Cosmetics

---
 day10b/src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/day10b/src/Main.hs b/day10b/src/Main.hs
index 8aec12e..5ad2452 100644
--- a/day10b/src/Main.hs
+++ b/day10b/src/Main.hs
@@ -47,7 +47,7 @@ main = do
         <$> (($ start) <$> ([first, second] <*> [(-1 +), (1 +)])) 
 
   let path = 
-        ((start, 0b1111) :)
+        ((start, pipeStart) :)
         . takeWhile ((/= start) . fst) 
         . tail 
         $ iterate (head . filter ((/= 0) . snd) . findAdj) (start, pipeStart)