Fixed a small parser bug involving variant

2009-04-03 15:34:33 +00:00 · 2009-04-03 15:34:33 +00:00 · 0d63eeb400
commit 0d63eeb400
parent b9cbcf0902
1 changed files with 1 additions and 2 deletions
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@ -1584,8 +1584,7 @@ caseInput
 variant :: OccParser (A.Structured A.Variant)
 variant
    =   do m <- md
-           tl <- taggedList
-           eol
+           tl <- tryVX taggedList eol
           indent
           p <- process
           outdent