Move day1 function to src/Day1.hs

AdventOfCode2020.cabal

@@ -17,11 +17,13 @@ maintainer:          gael@depreeuw.dev
 extra-source-files:  CHANGELOG.md, README.md
 
 library
-  exposed-modules:     Day1
+  exposed-modules:     Day1, Day2
   -- other-modules:
   -- other-extensions:
   build-depends:       base ^>=4.13.0.0
                      , containers ^>=0.6.4.1
+                     , text ^>=1.2.4.0
+                     , attoparsec ^>=0.13.2.4
   hs-source-dirs:      src
   default-language:    Haskell2010
 

Main.hs

@@ -1,15 +1,6 @@
 module Main where
 
-import qualified Day1 (fixExpenseReport)
-
-day1 :: IO ()
-day1 = do
-  r <- readFile "./input/day1"
-  putStr "[Day 1-1] fix: "
-  print . Day1.fixExpenseReport 2020 2 . fmap read . lines $ r
-  putStr "[Day 1-2] fix: "
-  print . Day1.fixExpenseReport 2020 3 . fmap read . lines $ r
-
+import Day1 (day1)
 
 main :: IO ()
 main = do

src/Day1.hs

@@ -1,4 +1,4 @@
-module Day1 (fixExpenseReport) where
+module Day1 (day1) where
 
 import qualified Data.IntSet as DIS
 import Data.Maybe (mapMaybe)
@@ -7,6 +7,14 @@ type Target = Int
 type Expenses = [Int]
 type Expenses' = DIS.IntSet
 
+day1 :: IO ()
+day1 = do
+  r <- readFile "./input/day1"
+  putStr "[Day 1-1] fix: "
+  print . fixExpenseReport 2020 2 . fmap read . lines $ r
+  putStr "[Day 1-2] fix: "
+  print . fixExpenseReport 2020 3 . fmap read . lines $ r
+
 -- Turn the list into an IntSet. For each element in the set, look up the
 -- number in the set to make it 2020. If found, return the multiplication of
 -- the two numbers.