aboutsummaryrefslogtreecommitdiffstats
path: root/lib/dialyzer/src/dialyzer_typesig.erl
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2015-01-16 10:26:44 +0100
committerHans Bolinder <[email protected]>2015-03-10 10:48:28 +0100
commit854ee8bdef9d2dde4184927e4848973e242eb69d (patch)
tree2d98f6c229fda9df0af83692888bf89a1681ce0d /lib/dialyzer/src/dialyzer_typesig.erl
parent4037296294670e7a9bb2a3c1cdbd0236cbc15807 (diff)
downloadotp-854ee8bdef9d2dde4184927e4848973e242eb69d.tar.gz
otp-854ee8bdef9d2dde4184927e4848973e242eb69d.tar.bz2
otp-854ee8bdef9d2dde4184927e4848973e242eb69d.zip
[dialyzer] Fix the conversion of forms to types
In particular fix handling of records.
Diffstat (limited to 'lib/dialyzer/src/dialyzer_typesig.erl')
-rw-r--r--lib/dialyzer/src/dialyzer_typesig.erl4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/dialyzer/src/dialyzer_typesig.erl b/lib/dialyzer/src/dialyzer_typesig.erl
index 217d238712..1737bfd3a9 100644
--- a/lib/dialyzer/src/dialyzer_typesig.erl
+++ b/lib/dialyzer/src/dialyzer_typesig.erl
@@ -2,7 +2,7 @@
%%-----------------------------------------------------------------------
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2006-2014. All Rights Reserved.
+%% Copyright Ericsson AB 2006-2015. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
@@ -3264,7 +3264,7 @@ lookup_record(Records, Tag, Arity) ->
{ok, Fields} ->
RecType =
t_tuple([t_from_term(Tag)|
- [FieldType || {_FieldName, FieldType} <- Fields]]),
+ [FieldType || {_FieldName, _Abstr, FieldType} <- Fields]]),
{ok, RecType};
error ->
error