diff --git a/app/Main.hs b/app/Main.hs index b0465b2..fb2bdc2 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -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