Show parse errors

2025-12-02 10:45:45 +00:00 · 2025-12-02 10:45:45 +00:00 · 72b0132058
commit 72b0132058
parent 9ca3840d5f
1 changed files with 1 additions and 1 deletions
--- 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