adventOfCode-2022/executable/Main.hs

import AoC.Day1 as Day1

main :: IO ()
main = do
  putStrLn "Hello World!"
  input <- readFile "./input/day1.txt"
  putStrLn $ show $ Day1.solveA input
  putStrLn $ show $ Day1.solveB input