diff options
author | Hans Bolinder <[email protected]> | 2016-07-04 15:11:36 +0200 |
---|---|---|
committer | Hans Bolinder <[email protected]> | 2016-07-04 15:11:36 +0200 |
commit | be5630d6fccb564272c206baefdbfa235d9a38a7 (patch) | |
tree | 4c7808b06fb087c7ef11eea4d741f111be21ee72 | |
parent | f1691991f0617f7bc0d2b58a4f0ad9410c2e8442 (diff) | |
parent | 7ec57c5e01c5a826467a324610c668ae4a5128ae (diff) | |
download | otp-be5630d6fccb564272c206baefdbfa235d9a38a7.tar.gz otp-be5630d6fccb564272c206baefdbfa235d9a38a7.tar.bz2 otp-be5630d6fccb564272c206baefdbfa235d9a38a7.zip |
Merge branch 'maint'
* maint:
edoc: Provide a slightly better fix for unmatched returns
-rw-r--r-- | lib/edoc/src/edoc_tags.erl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/edoc/src/edoc_tags.erl b/lib/edoc/src/edoc_tags.erl index 9e2e41e902..93f423b906 100644 --- a/lib/edoc/src/edoc_tags.erl +++ b/lib/edoc/src/edoc_tags.erl @@ -213,8 +213,10 @@ filter_tags([#tag{name = N, line = L} = T | Ts], Tags, Where, Ts1) -> true -> filter_tags(Ts, Tags, Where, [T | Ts1]); false -> - [warning(L, Where, "tag @~s not recognized.", [N]) || - Where =/= no], + case Where of + no -> ok; + _ -> warning(L, Where, "tag @~s not recognized.", [N]) + end, filter_tags(Ts, Tags, Where, Ts1) end; filter_tags([], _, _, Ts) -> @@ -451,7 +453,7 @@ check_type(#tag{line = L, data = Data}, P0, Ls, Ts) -> check_type(#t_def{type = Type}, P, Ls, Ts) -> check_type(Type, P, Ls, Ts); check_type(#t_type{name = Name, args = Args}, P, Ls, Ts) -> - _ = check_used_type(Name, Args, P, Ls), + check_used_type(Name, Args, P, Ls), check_types3(Args++Ts, P, Ls); check_type(#t_var{}, P, Ls, Ts) -> check_types3(Ts, P, Ls); @@ -503,7 +505,8 @@ check_used_type(#t_name{name = N, module = Mod}=Name, Args, P, LocalTypes) -> false -> #parms{warn = W, line = L, file = File} = P, %% true = ets:insert(DT, TypeName), - [type_warning(L, File, "missing type", N, NArgs) || W] + _ = [type_warning(L, File, "missing type", N, NArgs) || W], + ok end. type_warning(Line, File, S, N, NArgs) -> |