suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Neil Brown 2009-03-31 11:50:24 +00:00
parent dbc3b97343
commit 334d22acd8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
frontends/ParseOccam.hs
View File

@ -1114,8 +1114,7 @@ definition
<|> do { n <- newRecordName; eol; indent; rec <- structuredType; outdent; sColon; eol; <|> do { n <- newRecordName; eol; indent; rec <- structuredType; outdent; sColon; eol;
return (A.Specification m n rec, RecordName) } return (A.Specification m n rec, RecordName) }
<|> do m <- md <|> do m <- md
rm <- recMode sCHAN >>* fst rm <- tryVX (recMode sCHAN) sTYPE >>* fst
sTYPE
n <- newChanBundleName n <- newChanBundleName
eol eol
indent indent