From 69c0bbb118ffd6755e1c55f476b04c084f7a40b8 Mon Sep 17 00:00:00 2001 From: Nathaniel Wesley Filardo Date: Tue, 18 Jun 2013 15:56:52 -0400 Subject: [PATCH] Tweak oneshot parser This should give better error reporting. --- src/Dyna/ParserHS/OneshotDriver.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Dyna/ParserHS/OneshotDriver.hs b/src/Dyna/ParserHS/OneshotDriver.hs index 3ce581d..b1b4cdd 100644 --- a/src/Dyna/ParserHS/OneshotDriver.hs +++ b/src/Dyna/ParserHS/OneshotDriver.hs @@ -205,7 +205,7 @@ oneshotDynaParser :: (DeltaParsing m, LookAheadParsing m) oneshotDynaParser aggs = (postProcess =<<) $ flip runStateT defPCS $ optional (dynaWhiteSpace (someSpace)) - *> many (try $ do + *> many (do mr <- nextRule aggs case mr of Nothing -> return Nothing -- 2.50.1