Garmelon/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[hs] Solve 2020_03

Browse source
This commit is contained in:
Joscha 2020-12-03 11:49:24 +00:00
parent 7183f49a6b
commit 23636d3fc0
4 changed files with 56 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
hs/src/Aoc/Day.hs
View file

@ -1,5 +1,6 @@
module Aoc.Day
( Day(..)
, runDay
, dayPure
, dayFile
, dayString
@ -19,6 +20,11 @@ data Day
= DayPure String (IO ())
| DayFile String (FilePath -> IO ())
-- | Helper function for trying out days in ghci.
runDay :: Day -> FilePath -> IO ()
runDay (DayPure _ f) _ = f
runDay (DayFile _ f) p = f p
dayPure :: String -> IO () -> Day
dayPure = DayPure