dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

sugar on lambdas

Browse Source
This commit is contained in:
Steve Dunham
2024-06-25 13:57:41 -07:00
parent d2fbd15b4a
commit 0cad438f4d
2 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
eg/ex.newt
View File

@@ -11,9 +11,8 @@ id = \ a => \ x => x
List : U -> U List : U -> U
List = \ A => (L : U) -> L -> (A -> L -> L) -> L List = \ A => (L : U) -> L -> (A -> L -> L) -> L
-- need more sugar for lambdas
nil : (A L : U) -> L -> (A -> L -> L) -> L nil : (A L : U) -> L -> (A -> L -> L) -> L
nil = \ A => \ L => \ n => \ f => n nil = \ A L n f => n
Bool : U Bool : U

5
src/Lib/Parser.idr
View File

@@ -141,11 +141,10 @@ lamExpr : Parser Raw
lamExpr = do lamExpr = do
keyword "\\" keyword "\\"
commit commit
(icit, name, ty) <- pLetArg args <- some pLetArg
keyword "=>" keyword "=>"
scope <- typeExpr scope <- typeExpr
-- TODO optional type pure $ foldr (\(icit, name, ty), sc => RLam name icit sc) scope args
pure $ RLam name icit scope
pPattern : Parser Pattern pPattern : Parser Pattern
pPattern pPattern