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

[hs] Migrate 2019_01

Browse source
This commit is contained in:
Joscha 2020-12-06 11:24:29 +00:00
parent 55bc09948b
commit 3e82db1f0c
3 changed files with 22 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
hs/app/Main.hs
View file

@ -5,6 +5,7 @@ import Control.Monad
import Options.Applicative
import Aoc.Day (Day (..), Year (..))
import qualified Aoc.Y2019 as Y2019
import qualified Aoc.Y2020 as Y2020
lpad :: a -> Int -> [a] -> [a]
@ -28,7 +29,8 @@ dayToParser (DayFile f) = f <$> strArgument (metavar "INPUTFILE")
parser :: Parser (IO ())
parser = yearsToParser
[ Y2020.year
[ Y2019.year
, Y2020.year
]
opts :: ParserInfo (IO ())