From 72b0132058004a7ce0c9605c7d69343529c451f6 Mon Sep 17 00:00:00 2001 From: George Thomas Date: Tue, 2 Dec 2025 10:45:45 +0000 Subject: [PATCH] Show parse errors --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index 4f3cb37..b0465b2 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -36,7 +36,7 @@ puzzleTest p = BL.fromStrict . encodeUtf8 . pp.solve <$> input where pt = show p.number - parseFile fp = maybe (fail "parse failure") pure . parseMaybe (p.parser <* eof) =<< 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