From f7328a130081fe12593cd0787b225be6d3bb2371 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@gmail.com>
Date: Sun, 8 Dec 2024 08:22:23 -0800
Subject: [PATCH] unused extension

---
 solutions/src/2024/08.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/solutions/src/2024/08.hs b/solutions/src/2024/08.hs
index 95271f1..544bcf8 100644
--- a/solutions/src/2024/08.hs
+++ b/solutions/src/2024/08.hs
@@ -1,4 +1,4 @@
-{-# Language QuasiQuotes, ImportQualifiedPost #-}
+{-# Language ImportQualifiedPost #-}
 {-|
 Module      : Main
 Description : Day 8 solution
@@ -63,8 +63,8 @@ main =
 -- that fit inside a bounding box predicate.
 nodeLine :: (Coord -> Bool) -> Coord -> Coord -> [Coord]
 nodeLine p a b =
-   takeWhile p (iterate (step +) a) ++
-   takeWhile p (iterate (subtract step) (a - step))
+    takeWhile p (iterate (step +) a) ++
+    takeWhile p (iterate (subtract step) (a - step))
   where
     C dy dx                  = a - b
     com | dx == 0 || dy == 0 = 1