Format files

src/Day1.hs

@@ -4,7 +4,9 @@ import qualified Data.IntSet as DIS
 import Data.Maybe (mapMaybe)
 
 type Target = Int
+
 type Expenses = [Int]
+
 type Expenses' = DIS.IntSet
 
 day1 :: IO ()
@@ -27,7 +29,7 @@ fixExpenseReport' :: Target -> Int -> Expenses' -> Maybe Int
 fixExpenseReport' t 1 es = if DIS.member t es then Just t else Nothing
 fixExpenseReport' t c es =
   let foo x = (* x) <$> fixExpenseReport' (t - x) (c -1) (DIS.delete x es)
-        bar = mapMaybe foo (DIS.toList es) in
-    case bar of
+      bar = mapMaybe foo (DIS.toList es)
+   in case bar of
         [] -> Nothing
         (x : _) -> Just x

src/Day2.hs

@@ -2,18 +2,22 @@
 
 module Day2 (day2) where
 
-import qualified Data.Text as T
 import qualified Data.Attoparsec.Text as P
 import Data.List (elemIndices)
+import qualified Data.Text as T
 
 type Max = Int
+
 type Min = Int
+
 type Letter = Char
+
 type Validator = Policy -> String -> Bool
 
-data Policy = Policy { lBound :: Min
-                     , uBound :: Max
-                     , letter :: Letter
+data Policy = Policy
+  { lBound :: Min,
+    uBound :: Max,
+    letter :: Letter
   }
 
 parserPolicy :: P.Parser Policy
@@ -28,8 +32,8 @@ parserPolicy = do
 
 validatePolicy :: Validator
 validatePolicy p s =
-    let l = length $ filter (== letter p) s in
-    l >= lBound p && l <= uBound p
+  let l = length $ filter (== letter p) s
+   in l >= lBound p && l <= uBound p
 
 validateLine :: Validator -> String -> Bool
 validateLine v s =
@@ -46,9 +50,8 @@ validateCorrectPolicy :: Validator
 validateCorrectPolicy p s =
   let index1 = lBound p - 1
       index2 = uBound p - 1
-        indices = elemIndices (letter p) s in
-        xor (index1 `elem` indices) (index2 `elem` indices)
-
+      indices = elemIndices (letter p) s
+   in xor (index1 `elem` indices) (index2 `elem` indices)
 
 day2 :: IO ()
 day2 = do