4
4
5
5
-module (elli_proplists ).
6
6
7
- -export ([get_value_ci /2 ,
8
- get_all_values_ci /2 ]).
7
+ -export ([get_value_ci /2 ,
8
+ get_all_values_ci /2 ]).
9
9
10
10
% %
11
11
get_value_ci (_Key , []) ->
12
- undefined ;
12
+ undefined ;
13
13
get_value_ci (Key , [{K , Value }|Rest ]) ->
14
- case elli_bstr :is_equal_ci (Key , K ) of
15
- true ->
16
- Value ;
17
- false ->
18
- get_value_ci (Key , Rest )
19
- end .
14
+ case elli_bstr :is_equal_ci (Key , K ) of
15
+ true ->
16
+ Value ;
17
+ false ->
18
+ get_value_ci (Key , Rest )
19
+ end .
20
20
21
21
22
22
% %
@@ -25,11 +25,11 @@ get_all_values_ci(Key, Proplist) ->
25
25
26
26
27
27
get_all_values_ci1 (_Key , [], Acc ) ->
28
- lists :reverse (Acc );
28
+ lists :reverse (Acc );
29
29
get_all_values_ci1 (Key , [{K , Value }|Rest ], Acc ) ->
30
- case elli_bstr :is_equal_ci (Key , K ) of
31
- true ->
32
- get_all_values_ci1 (Key , Rest , [Value |Acc ]);
33
- false ->
34
- get_all_values_ci1 (Key , Rest , Acc )
35
- end .
30
+ case elli_bstr :is_equal_ci (Key , K ) of
31
+ true ->
32
+ get_all_values_ci1 (Key , Rest , [Value |Acc ]);
33
+ false ->
34
+ get_all_values_ci1 (Key , Rest , Acc )
35
+ end .
0 commit comments