errorful parser

2024-01-22 09:55:58 -07:00
parent 1a881399ab
commit 5a659d22dd
4 changed files with 71 additions and 20 deletions
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -161,7 +161,7 @@ mkProgram ds = do
    pure $ RlpProgram (associate pt <$> ds)

 parseError :: Located RlpToken -> P a
-parseError = error . show
+parseError (Located ((l,c),s) t) = addFatal RlpParErrUnknown

 mkInfixD :: Assoc -> Int -> Name -> P PartialDecl'
 mkInfixD a p n = do