This commit is contained in:
George Thomas 2025-12-02 10:46:06 +00:00
parent 72b0132058
commit 6e8b5dff01

View File

@ -36,7 +36,9 @@ puzzleTest p =
BL.fromStrict . encodeUtf8 . pp.solve <$> input
where
pt = show p.number
parseFile fp = either (fail . ("parse failure: " <>) . errorBundlePretty) pure . runParser (p.parser <* eof) fp =<< T.readFile fp
parseFile fp =
either (fail . ("parse failure: " <>) . errorBundlePretty) pure . runParser (p.parser <* eof) fp
=<< T.readFile fp
data Puzzle input = Puzzle
{ number :: Word