unused extension

glguy · Dec 8, 2024 · f7328a1 · f7328a1
1 parent 9155d5e
commit f7328a1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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