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

Fixed direction specifiers in the LHS of a RETYPES confusing the parser

Browse Source
This commit is contained in:
Neil Brown 2009-04-14 11:12:44 +00:00
parent f257100ba8
commit 71267f12d5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
frontends/ParseOccam.hs
View File

@ -1288,11 +1288,12 @@ retypesAbbrev
eol
return (A.Specification m n $ A.Retypes m am s v, VariableName, normalName)
<|> do m <- md
(s, n) <- tryVVX channelSpecifier newChannelName retypesReshapes
(s, (d,n)) <- tryVVX channelSpecifier (maybeDirected newChannelName) retypesReshapes
c <- directedChannel
sColon
eol
return (A.Specification m n $ A.Retypes m A.Abbrev s c, ChannelName, normalName)
s' <- d s
return (A.Specification m n $ A.Retypes m A.Abbrev s' c, ChannelName, normalName)
<|> do m <- md
(am, s, n) <- tryVVVX valAbbrevMode dataSpecifier newVariableName retypesReshapes
e <- expression