advent-of-code-2022/src/Lib.hs

module Lib
    ( someFunc
    ) where

import Day1 (day1)
import Day2 (day2)
import Day3 (day3)
import Day4 (day4)
import Day5 (day5)
import Day6 (day6)
import Day7 (day7)
import Day8 (day8)
import Day9 (day9)
import Day10 (day10)
import Day11 (day11)
import Day12 (day12)

days :: [IO ()]
days = [day1, day2, day3, day4, day5, day6, day7, day8, day9, day10, day11, day12]

sep :: IO ()
sep = putStrLn "---------"

someFunc :: IO ()
someFunc = mapM_ (>> sep) days