@@ -32,14 +32,14 @@ falseTerm = do { t FALSE; return $ Boolean False }
3232
3333listTerm = (do { t LBRACKET; start <- expr; t DOT2; end <- expr; t RBRACKET
3434 ; return $ Range start end }) +|+
35− (do { t LBRACKET; es <- sepBy (t COMMA) expr; t RBRACKET
36− ; return $ list es })
35+ (do { t LBRACKET; es <- sepBy (t COMMA) expr; t RBRACKET
36+ ; return $ list es })
3737
3838parensTerm = (do { t LPAREN; op <- anyOp; t RPAREN
3939 ; return . Lambda "x" . Lambda "y" $
4040 Binop op (Var "x") (Var "y") }) +|+
41− (do { t LPAREN; es <- sepBy (t COMMA) expr; t RPAREN
42− ; return $ case es of { [e] -> e; _ -> tuple es } })
41+ (do { t LPAREN; es <- sepBy (t COMMA) expr; t RPAREN
42+ ; return $ case es of { [e] -> e; _ -> tuple es } })
4343
4444term = select [ numTerm
4545 , strTerm