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

Fix abbreviation parsing

Browse Source
This commit is contained in:
Adam Sampson 2007-04-26 02:25:37 +00:00
parent 5e7c9403cc
commit 51c83f4e94
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fco2/Parse.hs
View File

@ -1098,9 +1098,8 @@ abbreviation
valIsAbbrev :: OccParser A.Specification valIsAbbrev :: OccParser A.Specification
valIsAbbrev valIsAbbrev
= do m <- md = do m <- md
sVAL (n, t, e) <- do { n <- tryXVX sVAL newVariableName sIS; e <- expression; sColon; eol; t <- typeOfExpression e; return (n, t, e) }
(n, t, e) <- do { (n, e) <- tryVXV newVariableName sIS expression; sColon; eol; t <- typeOfExpression e; return (n, t, e) } <|> do { (s, n) <- tryXVVX sVAL specifier newVariableName sIS; e <- expressionOfType s; sColon; eol; return (n, s, e) }
<|> do { s <- specifier; n <- newVariableName; sIS; e <- expressionOfType s; sColon; eol; return (n, s, e) }
return $ A.Specification m n $ A.IsExpr m A.ValAbbrev t e return $ A.Specification m n $ A.IsExpr m A.ValAbbrev t e
<?> "VAL IS abbreviation" <?> "VAL IS abbreviation"