diff options
| author | Louis Pilfold <louis@lpil.uk> | 2019-06-30 11:53:09 +0100 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2019-06-30 11:53:09 +0100 |
| commit | 02fd6d96e60d1a578193744a7799178755e37fde (patch) | |
| tree | a4fab0130b082798569d7fbfd5d115a7adb6d030 /gen | |
| parent | 8c1557dd906e32ea65d26977c465d1f93a5026d6 (diff) | |
| download | gleam_stdlib-02fd6d96e60d1a578193744a7799178755e37fde.tar.gz gleam_stdlib-02fd6d96e60d1a578193744a7799178755e37fde.zip | |
Relax result:map_error
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}), |