diff options
Diffstat (limited to 'dev-erlang/lager/files/3.2.0-0001-Support-typed-records-newly-exposed-in-OTP-19.patch')
-rw-r--r-- | dev-erlang/lager/files/3.2.0-0001-Support-typed-records-newly-exposed-in-OTP-19.patch | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/dev-erlang/lager/files/3.2.0-0001-Support-typed-records-newly-exposed-in-OTP-19.patch b/dev-erlang/lager/files/3.2.0-0001-Support-typed-records-newly-exposed-in-OTP-19.patch deleted file mode 100644 index b9ade5f5698f..000000000000 --- a/dev-erlang/lager/files/3.2.0-0001-Support-typed-records-newly-exposed-in-OTP-19.patch +++ /dev/null @@ -1,55 +0,0 @@ -From d35670e01a3c6f9f9bcb3150217d26cc92513586 Mon Sep 17 00:00:00 2001 -From: =?UTF-8?q?Johannes=20Wei=C3=9Fl?= <jargon@molb.org> -Date: Sun, 21 Feb 2016 14:22:28 +0100 -Subject: [PATCH 1/5] Support typed records newly exposed in OTP 19 - -Otherwise `lager_transform` fails after https://github.com/erlang/otp/commit/de9012628a6b0e97d2f1325bf2f72817f69f84ee - -The error message is: - - test/pr_nested_record_test.erl: error in parse transform 'lager_transform': {function_clause, - [{lager_transform, - '-walk_ast/2-fun-0-', - [{typed_record_field, - {record_field,5, - {atom,5,field1}}, - {type,5,term,[]}}], - [{file, - "src/lager_transform.erl"}, - {line,62}]}, ---- - src/lager_transform.erl | 13 ++++++++----- - 1 file changed, 8 insertions(+), 5 deletions(-) - -diff --git a/src/lager_transform.erl b/src/lager_transform.erl -index 7648c46..8cea5a3 100644 ---- a/src/lager_transform.erl -+++ b/src/lager_transform.erl -@@ -59,16 +59,19 @@ walk_ast(Acc, [{function, Line, Name, Arity, Clauses}|T]) -> - walk_ast([{function, Line, Name, Arity, - walk_clauses([], Clauses)}|Acc], T); - walk_ast(Acc, [{attribute, _, record, {Name, Fields}}=H|T]) -> -- FieldNames = lists:map(fun({record_field, _, {atom, _, FieldName}}) -> -- FieldName; -- ({record_field, _, {atom, _, FieldName}, _Default}) -> -- FieldName -- end, Fields), -+ FieldNames = lists:map(fun record_field_name/1, Fields), - stash_record({Name, FieldNames}), - walk_ast([H|Acc], T); - walk_ast(Acc, [H|T]) -> - walk_ast([H|Acc], T). - -+record_field_name({record_field, _, {atom, _, FieldName}}) -> -+ FieldName; -+record_field_name({record_field, _, {atom, _, FieldName}, _Default}) -> -+ FieldName; -+record_field_name({typed_record_field, Field, _Type}) -> -+ record_field_name(Field). -+ - walk_clauses(Acc, []) -> - lists:reverse(Acc); - walk_clauses(Acc, [{clause, Line, Arguments, Guards, Body}|T]) -> --- -2.8.3 - |