aboutsummaryrefslogtreecommitdiffstats
path: root/lib/syntax_tools/src/merl.erl
diff options
context:
space:
mode:
authorRichard Carlsson <[email protected]>2015-05-12 10:48:45 +0200
committerRichard Carlsson <[email protected]>2015-05-22 12:43:53 +0200
commit279fe010040ad1e09f67a509596cf4227afe658d (patch)
treea840eaa1ff0dc0547d3b7b36d7b6fb81cce3d56b /lib/syntax_tools/src/merl.erl
parent5b5fa217dc72f9d3dd679d59c8bab262d5ce8da2 (diff)
downloadotp-279fe010040ad1e09f67a509596cf4227afe658d.tar.gz
otp-279fe010040ad1e09f67a509596cf4227afe658d.tar.bz2
otp-279fe010040ad1e09f67a509596cf4227afe658d.zip
Make merl compatible with OTP 18.0
Diffstat (limited to 'lib/syntax_tools/src/merl.erl')
-rw-r--r--lib/syntax_tools/src/merl.erl13
1 files changed, 1 insertions, 12 deletions
diff --git a/lib/syntax_tools/src/merl.erl b/lib/syntax_tools/src/merl.erl
index 1e7ccc525a..690306c17b 100644
--- a/lib/syntax_tools/src/merl.erl
+++ b/lib/syntax_tools/src/merl.erl
@@ -300,7 +300,7 @@
%% while a flat string or binary represents source code containing newlines.
-type text() :: string() | binary() | [string()] | [binary()].
--type location() :: erl_scan:location().
+-type location() :: erl_anno:location().
%% ------------------------------------------------------------------------
@@ -1162,15 +1162,6 @@ subtrees(T) ->
[erl_syntax:receive_expr_clauses(T), [E],
erl_syntax:receive_expr_action(T)]
end;
- record_access ->
- case erl_syntax:record_access_type(T) of
- none ->
- [[erl_syntax:record_access_argument(T)], [],
- [erl_syntax:record_access_field(T)]];
- R ->
- [[erl_syntax:record_access_argument(T)], [R],
- [erl_syntax:record_access_field(T)]]
- end;
record_expr ->
case erl_syntax:record_expr_argument(T) of
none ->
@@ -1199,8 +1190,6 @@ make_tree(clause, [P, [], B]) -> erl_syntax:clause(P, none, B);
make_tree(clause, [P, [G], B]) -> erl_syntax:clause(P, G, B);
make_tree(receive_expr, [C, [], _A]) -> erl_syntax:receive_expr(C);
make_tree(receive_expr, [C, [E], A]) -> erl_syntax:receive_expr(C, E, A);
-make_tree(record_access, [[E], [], [F]]) -> erl_syntax:record_access(E, F);
-make_tree(record_access, [[E], [T], [F]]) -> erl_syntax:record_access(E, T, F);
make_tree(record_expr, [[], [T], F]) -> erl_syntax:record_expr(T, F);
make_tree(record_expr, [[E], [T], F]) -> erl_syntax:record_expr(E, T, F);
make_tree(record_field, [[N], []]) -> erl_syntax:record_field(N);