aboutsummaryrefslogtreecommitdiffstats
path: root/lib/dialyzer/test/small_SUITE_data/src/lists_key_bug.erl
blob: d7cbc27a4d9a4f75ac68c597e6981a75bf00a21d (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
-module(lists_key_bug).

%% OTP-15570

-export([t/1]).

t(V) ->
    K = key(V),
    case lists:keyfind(K, 1, [{<<"foo">>, bar}]) of
        false ->
            a;
        {_, _} ->
            b
    end.

key(1) ->
    3;
key(2) ->
    <<"foo">>.