diff options
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@result.erl | 4 | ||||
| -rw-r--r-- | gen/test/gleam@result_test.erl | 5 |
2 files changed, 5 insertions, 4 deletions
diff --git a/gen/src/gleam@result.erl b/gen/src/gleam@result.erl index 77c5a57..3aeae12 100644 --- a/gen/src/gleam@result.erl +++ b/gen/src/gleam@result.erl @@ -32,8 +32,8 @@ map(Result, Fun) -> map_error(Result, Fun) -> case Result of - {ok, _} -> - Result; + {ok, X} -> + {ok, X}; {error, Error} -> {error, Fun(Error)} diff --git a/gen/test/gleam@result_test.erl b/gen/test/gleam@result_test.erl index e246694..baf030f 100644 --- a/gen/test/gleam@result_test.erl +++ b/gen/test/gleam@result_test.erl @@ -21,8 +21,9 @@ map_test() -> map_error_test() -> gleam@expect:equal(gleam@result:map_error({ok, 1}, fun(X) -> X + 1 end), {ok, 1}), - gleam@expect:equal(gleam@result:map_error({error, 1}, fun(X) -> X + 1 end), - {error, 2}). + gleam@expect:equal(gleam@result:map_error({error, 1}, + fun(X) -> {<<"ok">>, X + 1} end), + {error, {<<"ok">>, 2}}). flatten_test() -> gleam@expect:equal(gleam@result:flatten({ok, {ok, 1}}), {ok, 1}), |