@@ -91,7 +91,9 @@ tuple start =
91 rightParen
91 rightParen
92 end <- getPosition
92 end <- getPosition
93 let args = map (\n -> Text.pack ("v" ++ show n)) [ 1 .. arity ]
93 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)
96 , do spaces
98 , do spaces
97 (entry, _, space) <- expression
99 (entry, _, space) <- expression