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

Fixed the type of a range to at least be a list

Browse Source
This commit is contained in:
Neil Brown 2008-03-19 17:34:12 +00:00
parent 839d92546b
commit 05866457e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
frontends/ParseRain.hs
View File

@ -215,8 +215,8 @@ literal = do {lr <- stringLiteral ; return $ A.Literal (findMeta lr) (A.List A.B
<?> "literal" <?> "literal"
range :: RainParser A.Expression range :: RainParser A.Expression
range = try $ do {m <- sLeftQ ; begin <- integerLiteral; sDots ; end <- integerLiteral ; range = try $ do {m <- sLeftQ ; begin <- literal; sDots ; end <- literal ;
sRightQ ; return $ A.ExprConstr m $ A.RangeConstr m A.Any begin end} sRightQ ; return $ A.ExprConstr m $ A.RangeConstr m (A.List A.Any) begin end}
expression :: RainParser A.Expression expression :: RainParser A.Expression
expression expression