Tidying

diff --git a/advent01/Main.hs b/advent01/Main.hs
index b3047598d8bddd31ab8c930e6e0305dc98a797ca..8ba212e73e4031f19f28a1a70875815130e27cc5 100644 (file)
--- a/advent01/Main.hs
+++ b/advent01/Main.hs
@@ -1,7 +1,6 @@
 -- Writeup at https://work.njae.me.uk/2023/12/01/advent-of-code-2023-day-01/
 
 import AoC
--- import Data.Char
 import Data.List
 import qualified Data.MultiSet as MS
 
@@ -10,11 +9,10 @@ main =
   do  dataFileName <- getDataFileName
       text <- readFile dataFileName
       let pairs = fmap readPair $ lines text
-      print pairs
       print $ part1 pairs
       print $ part2 pairs
 
-part1 :: [(Int, Int)] -> Int
+part1, part2 :: [(Int, Int)] -> Int
 part1 pairs = sum $ zipWith absDiff (sort lefts) (sort rights)
   where (lefts, rights) = unzip pairs
         absDiff a b = abs (a - b)

diff --git a/adventofcode24.cabal b/adventofcode24.cabal
index 8126db189fe9e620cca63e7c0b425ed707d6dda6..f922676e08e28f7f446eca89b4fd6b681cb0fb4a 100644 (file)
--- a/adventofcode24.cabal
+++ b/adventofcode24.cabal
@@ -16,6 +16,9 @@ extra-doc-files:    CHANGELOG.md
 common warnings
     ghc-options: -Wall
 
+common common-modules
+    other-modules: AoC    
+
 common common-extensions
   default-extensions:     AllowAmbiguousTypes
                         , ApplicativeDo
@@ -70,6 +73,6 @@ executable adventofcode24
     default-language: GHC2021
 
 executable advent01
-  import: warnings, common-extensions, build-directives
+  import: warnings, common-extensions, build-directives, common-modules
   main-is: advent01/Main.hs
   build-depends: multiset