Add -Wno-x-partial GHC option

2015/day01/day01.hs

@@ -1,4 +1,4 @@
-import Aoc ( aocMain )
+import Aoc
 
 parseFile :: [String] -> [Char]
 parseFile lines = let [line] = lines in line

2015/day04/day04.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 import Aoc
 import Crypto.Hash.MD5 ( hash )
 import Data.ByteString.Char8 ( pack )

2015/day08/day08.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 import Aoc
 
 part1 :: [String] -> Int

2015/day10/day10.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 import Aoc
 import Data.List ( group, sort )
 
@@ -11,4 +13,4 @@ part1 x = (length after40, after40)
 part2 :: p -> String -> Int
 part2 _ after40 = length (iterate step after40 !! 10) -- only 10 more needed
 
-main = aocMain' single part1 part2
+main = aocMain' single part1 part2

2015/day11/day11.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 import Aoc
 import Data.Char ( ord, chr )
 import Data.List ( group, nub )

2015/day12/day12.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 import Aoc
 import Data.Char ( isDigit )
 import Control.Arrow ( first, second )

2015/day13/day13.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 import Aoc
 import Data.List.Split ( splitOn )
 import Data.List ( nub )

2015/day15/day15.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 import Aoc
 import Data.List ( transpose )
 import Data.Bifunctor ( bimap )

2024/day01/day01.hs

@@ -1,6 +1,8 @@
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
+import Aoc
 import Data.List ( sort, group )
 import Data.Maybe ( fromMaybe )
-import Aoc ( aocMain )
 
 parseFile :: [String] -> ([Int], [Int])
 parseFile lines = unzip [(a, b) | line <- lines, let [a, b] = map read $ words line]

2024/day02/day02.hs

@@ -1,4 +1,6 @@
-import Aoc ( aocMain )
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
+import Aoc
 
 parseFile :: [String] -> [[Int]]
 parseFile = map (map read . words)

aoc.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-x-partial #-}
+
 module Aoc where
 
 aocMain' :: (Show p, Show a) => ([String] -> p) -> (p -> (a, c)) -> (p -> c -> a) -> IO ()