Tweak oneshot parser

This should give better error reporting.

diff --git a/src/Dyna/ParserHS/OneshotDriver.hs b/src/Dyna/ParserHS/OneshotDriver.hs
index 3ce581ddbc961715d52ba76ae23c77f470fb4378..b1b4cdd6499693b28235e36e92e681ac03c1b5bf 100644 (file)
--- 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