sugar on lambdas

2024-06-25 13:57:41 -07:00
parent d2fbd15b4a
commit 0cad438f4d
2 changed files with 3 additions and 5 deletions
--- a/src/Lib/Parser.idr
+++ b/src/Lib/Parser.idr
@@ -141,11 +141,10 @@ lamExpr : Parser Raw
 lamExpr = do
  keyword "\\"
  commit
-  (icit, name, ty) <- pLetArg
+  args <- some pLetArg
  keyword "=>"
  scope <- typeExpr
-  -- TODO optional type
-  pure $ RLam name icit scope
+  pure $ foldr (\(icit, name, ty), sc => RLam name icit sc) scope args

 pPattern : Parser Pattern
 pPattern