From 7a68416c24cc766b9487334d3a0bee12081c1fb3 Mon Sep 17 00:00:00 2001
From: Daniele Fucini <dfucini@gmail.com>
Date: Fri, 5 Dec 2025 09:04:23 +0100
Subject: [PATCH] Fix indentation

---
 src/Day02.hs | 28 ++++++++++++++--------------
 src/Day03.hs |  6 +++---
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/src/Day02.hs b/src/Day02.hs
index 862d761..7d79dee 100644
--- a/src/Day02.hs
+++ b/src/Day02.hs
@@ -1,6 +1,6 @@
 module Day02
   ( day02_1,
-    day02_2
+    day02_2,
   )
 where
 
@@ -9,25 +9,25 @@ import Data.List.Split (splitOn)
 
 sumInvalid :: [Int] -> Int
 sumInvalid = foldl addInvalid 0
-    where
-        addInvalid acc n
-            | odd (length (show n)) = acc
-            | let l2 = length (show n) `div` 2, take l2 (show n) == drop l2 (show n) = acc + n
-            | otherwise = acc
+  where
+    addInvalid acc n
+      | odd (length (show n)) = acc
+      | let l2 = length (show n) `div` 2, take l2 (show n) == drop l2 (show n) = acc + n
+      | otherwise = acc
 
 sumInvalid' :: [Int] -> Int
 sumInvalid' = foldl addInvalid 0
-    where addInvalid acc n
-            | let s = drop 1 $ show n ++ show n, show n `isInfixOf` take (length s - 1) s = acc + n
-            | otherwise = acc
-            
+  where
+    addInvalid acc n
+      | let s = drop 1 $ show n ++ show n, show n `isInfixOf` take (length s - 1) s = acc + n
+      | otherwise = acc
 
 getRange :: String -> [Int]
-getRange r = [read (takeWhile (/= '-') r)..read $ drop 1 (dropWhile (/= '-') r)]
+getRange r = [read (takeWhile (/= '-') r) .. read $ drop 1 (dropWhile (/= '-') r)]
 
 parseInput :: IO [Int]
 parseInput = do
-    concatMap getRange . splitOn "," <$> readFile "input/day2.txt"
+  concatMap getRange . splitOn "," <$> readFile "input/day2.txt"
 
 day02_1 :: IO ()
 day02_1 = do
@@ -35,7 +35,7 @@ day02_1 = do
   let result = sumInvalid values
   putStrLn $
     "Day 2, Puzzle 1 solution: "
-        ++ show result
+      ++ show result
 
 day02_2 :: IO ()
 day02_2 = do
@@ -43,4 +43,4 @@ day02_2 = do
   let result = sumInvalid' values
   putStrLn $
     "Day 2, Puzzle 1 solution: "
-        ++ show result
+      ++ show result
diff --git a/src/Day03.hs b/src/Day03.hs
index fc4adb4..843438e 100644
--- a/src/Day03.hs
+++ b/src/Day03.hs
@@ -1,16 +1,16 @@
 module Day03
   ( day03_1,
-    day03_2
+    day03_2,
   )
 where
 
-getBankJoltage :: String -> Int -> String -> Int 
+getBankJoltage :: String -> Int -> String -> Int
 getBankJoltage value 0 _ = read value
 getBankJoltage value n bank =
   let l = length bank
       bank' = take (l - n + 1) bank
       x = maximum bank'
-   in getBankJoltage (value ++ [x]) (n - 1) (drop 1 (dropWhile (/= x) bank)) 
+   in getBankJoltage (value ++ [x]) (n - 1) (drop 1 (dropWhile (/= x) bank))
 
 getTotalJoltage :: [String] -> Int -> Int
 getTotalJoltage banks n = sum $ map (getBankJoltage "" n) banks