edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2025-01-06 21:28:25 +03:00
Code Issues Projects Releases Wiki Activity

Add support for multi-parameter blocks

Browse Source 
Fixes #109
This commit is contained in:
Ohad Kammar 2019-10-22 19:45:00 +03:00
parent a6d1d1b305
commit 2e41a3941f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Idris/Parser.idr
View File

@ -994,10 +994,11 @@ paramDecls fname indents
keyword "parameters"
commit
symbol "("
ps <- some (do x <- unqualifiedName
symbol ":"
ty <- typeExpr pdef fname indents
pure (UN x, ty))
ps <- sepBy (symbol ",")
(do x <- unqualifiedName
symbol ":"
ty <- typeExpr pdef fname indents
pure (UN x, ty))
symbol ")"
ds <- assert_total (nonEmptyBlock (topDecl fname))
end <- location