diff options
| author | Louis Pilfold <louis@lpil.uk> | 2020-01-14 11:47:31 +0000 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2020-01-14 11:47:31 +0000 |
| commit | c74e1a0898890e92ab450312910f97ed9e028ab9 (patch) | |
| tree | 1b76683a50ac04fb3704684c798000beb95b5b9e /gen | |
| parent | 36957584a74a2e299971e0c00ff9e03d03d5a205 (diff) | |
| download | gleam_stdlib-c74e1a0898890e92ab450312910f97ed9e028ab9.tar.gz gleam_stdlib-c74e1a0898890e92ab450312910f97ed9e028ab9.zip | |
Type annotations for gleam/list
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@list.erl | 11 | ||||
| -rw-r--r-- | gen/test/gleam@list_test.erl | 2 |
2 files changed, 7 insertions, 6 deletions
diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl index 1e19592..c33dab2 100644 --- a/gen/src/gleam@list.erl +++ b/gen/src/gleam@list.erl @@ -368,8 +368,8 @@ do_split(List, N, Taken) -> end end. -split(List, Target) -> - do_split(List, Target, []). +split(List, Index) -> + do_split(List, Index, []). do_split_while(List, F, Acc) -> case List of @@ -389,10 +389,11 @@ do_split_while(List, F, Acc) -> split_while(List, Predicate) -> do_split_while(List, Predicate, []). -key_find(Haystack, Needle) -> - find_map(Haystack, fun(P) -> case gleam@pair:first(P) =:= Needle of +key_find(KeywordList, DesiredKey) -> + find_map(KeywordList, fun(Keyword) -> {Key, Value} = Keyword, + case Key =:= DesiredKey of true -> - {ok, gleam@pair:second(P)}; + {ok, Value}; false -> {error, nil} diff --git a/gen/test/gleam@list_test.erl b/gen/test/gleam@list_test.erl index 42588da..99f6ec0 100644 --- a/gen/test/gleam@list_test.erl +++ b/gen/test/gleam@list_test.erl @@ -108,7 +108,7 @@ find_map_test() -> {ok, 4}; _ -> - {error, 0} + {error, nil} end end, gleam@expect:equal(gleam@list:find_map([1, 2, 3], F), {ok, 4}), gleam@expect:equal(gleam@list:find_map([1, 3, 2], F), {ok, 4}), |