Parse unit expressions
commitc2c350689a7800b36157614f4a1772bdd810e488
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateSun 4 Dec 2016, 19:50 (10 years ago)
parentb567022
src/Parse/Expression.hs+4
@@ -86,6 +86,10 @@ tuple start =
8686 return $ mkLambda start end "x" $ mkLambda start end "y" $
8787 A.at start end (Src.Binop [(x, A.at start end op)] y)
8888
89+ , do rightParen
90+ end <- getPosition
91+ return (A.at start end (Src.tuple []))
92+
8993 , do comma
9094 arity <- chompCommas 2
9195 rightParen