From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Tue, 18 Jun 2013 19:56:52 +0000 (-0400)
Subject: Tweak oneshot parser
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=69c0bbb118ffd6755e1c55f476b04c084f7a40b8;p=dyna2

Tweak oneshot parser

This should give better error reporting.
---

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