diff options
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@list.erl | 18 | ||||
| -rw-r--r-- | gen/src/gleam@result.erl | 5 |
2 files changed, 13 insertions, 10 deletions
diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl index c33dab2..3e6d01d 100644 --- a/gen/src/gleam@list.erl +++ b/gen/src/gleam@list.erl @@ -24,7 +24,7 @@ contains(List, Elem) -> head(List) -> case List of [] -> - {error, nil}; + gleam@result:none(); [X | _] -> {ok, X} @@ -33,7 +33,7 @@ head(List) -> tail(List) -> case List of [] -> - {error, nil}; + gleam@result:none(); [_ | Xs] -> {ok, Xs} @@ -172,7 +172,7 @@ fold_right(List, Initial, Fun) -> find(Haystack, IsDesired) -> case Haystack of [] -> - {error, nil}; + gleam@result:none(); [X | Rest] -> case IsDesired(X) of @@ -187,7 +187,7 @@ find(Haystack, IsDesired) -> find_map(Haystack, Fun) -> case Haystack of [] -> - {error, nil}; + gleam@result:none(); [X | Rest] -> case Fun(X) of @@ -258,19 +258,19 @@ intersperse(List, Elem) -> [X] -> [X]; - [X | Rest] -> - [X, Elem | intersperse(Rest, Elem)] + [X1 | Rest] -> + [X1, Elem | intersperse(Rest, Elem)] end. at(List, Index) -> case Index < 0 of true -> - {error, nil}; + gleam@result:none(); false -> case List of [] -> - {error, nil}; + gleam@result:none(); [X | Rest] -> case Index =:= 0 of @@ -396,5 +396,5 @@ key_find(KeywordList, DesiredKey) -> {ok, Value}; false -> - {error, nil} + gleam@result:none() end end). diff --git a/gen/src/gleam@result.erl b/gen/src/gleam@result.erl index 3aeae12..2484f56 100644 --- a/gen/src/gleam@result.erl +++ b/gen/src/gleam@result.erl @@ -1,7 +1,7 @@ -module(gleam@result). -compile(no_auto_import). --export([is_ok/1, is_error/1, map/2, map_error/2, flatten/1, then/2, unwrap/2]). +-export([is_ok/1, is_error/1, map/2, map_error/2, flatten/1, then/2, unwrap/2, none/0]). is_ok(Result) -> case Result of @@ -65,3 +65,6 @@ unwrap(Result, Default) -> {error, _} -> Default end. + +none() -> + {error, nil}. |