core: Add replaceError method

2025-01-24 22:17:58 -05:00 · 2025-01-24 22:17:58 -05:00 · 9b12ebcf00
commit 9b12ebcf00
parent 5e5ede87b4
1 changed files with 6 additions and 0 deletions
--- a/src/Parser/Interface.md
+++ b/src/Parser/Interface.md
@ -69,6 +69,12 @@ guardMaybe message x = do
  Just x <- x
    | _ => throwParseError message
  pure x
+
+export
+replaceError : (message : String) -> Parser (a -> Parser b)
+replaceError message = do
+  state <- save
+  pure (\_ => throw $ MkParseError state message)
 ```

 ## Running a parser