From 334d22acd8dcdde4b9abc6440aa84e767e8b82b6 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Tue, 31 Mar 2009 11:50:24 +0000
Subject: [PATCH] Corrected a try, so that we don't mistake a CHAN type for a
 CHAN TYPE type

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

diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index d94b90c..f5504d0 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -1114,8 +1114,7 @@ definition
              <|> do { n <- newRecordName; eol; indent; rec <- structuredType; outdent; sColon; eol;
                   return (A.Specification m n rec, RecordName) }
     <|> do m <- md
-           rm <- recMode sCHAN >>* fst
-           sTYPE
+           rm <- tryVX (recMode sCHAN) sTYPE >>* fst
            n <- newChanBundleName
            eol
            indent