Corrected a try, so that we don't mistake a CHAN type for a CHAN TYPE type

2009-03-31 11:50:24 +00:00 · 2009-03-31 11:50:24 +00:00 · 334d22acd8
commit 334d22acd8
parent dbc3b97343
1 changed files with 1 additions and 2 deletions
--- 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