From 0d63eeb4002224d66b9407159ae5b80f11df1edc Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Fri, 3 Apr 2009 15:34:33 +0000
Subject: [PATCH] Fixed a small parser bug involving variant

---
 frontends/ParseOccam.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index e61d43f..3490d54 100644
--- 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