@@ -32,14 +32,14 @@ falseTerm = do { t FALSE; return $ Boolean False }
33listTerm = (do { t LBRACKET; start <- expr; t DOT2; end <- expr; t RBRACKET
33listTerm = (do { t LBRACKET; start <- expr; t DOT2; end <- expr; t RBRACKET
34 ; return $ Range start end }) +|+
34 ; return $ Range start end }) +|+
35− (do { t LBRACKET; es <- sepBy (t COMMA) expr; t RBRACKET
35+ (do { t LBRACKET; es <- sepBy (t COMMA) expr; t RBRACKET
36− ; return $ list es })
36+ ; return $ list es })
38parensTerm = (do { t LPAREN; op <- anyOp; t RPAREN
38parensTerm = (do { t LPAREN; op <- anyOp; t RPAREN
39 ; return . Lambda "x" . Lambda "y" $
39 ; return . Lambda "x" . Lambda "y" $
40 Binop op (Var "x") (Var "y") }) +|+
40 Binop op (Var "x") (Var "y") }) +|+
41− (do { t LPAREN; es <- sepBy (t COMMA) expr; t RPAREN
41+ (do { t LPAREN; es <- sepBy (t COMMA) expr; t RPAREN
42− ; return $ case es of { [e] -> e; _ -> tuple es } })
42+ ; return $ case es of { [e] -> e; _ -> tuple es } })
44term = select [ numTerm
44term = select [ numTerm