Actually generate AST for tuple functions
commite5093cd42ed3230fa20c54d44c3b52381026b8e8
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateSun 4 Dec 2016, 16:15 (10 years ago)
parentadcea86
src/Parse/Expression.hs+3−1
@@ -91,7 +91,9 @@ tuple start =
9191 rightParen
9292 end <- getPosition
9393 let args = map (\n -> Text.pack ("v" ++ show n)) [ 1 .. arity ]
94− return (A.at start end (error "TODO" args))
94+ let ann x = A.at start end x
95+ let result = ann (Src.tuple (map (ann . Src.var) args))
96+ return (foldr (mkLambda start end) result args)
9597
9698 , do spaces
9799 (entry, _, space) <- expression