-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, lazy_unwrap/2, unwrap_error/2, unwrap_both/1, nil_error/1, 'or'/2, lazy_or/2, all/1, replace/2, replace_error/2, values/1]).

-spec is_ok({ok, any()} | {error, any()}) -> boolean().
is_ok(Result) ->
    case Result of
        {error, _@1} ->
            false;

        {ok, _@2} ->
            true
    end.

-spec is_error({ok, any()} | {error, any()}) -> boolean().
is_error(Result) ->
    case Result of
        {ok, _@1} ->
            false;

        {error, _@2} ->
            true
    end.

-spec map({ok, AVV} | {error, AVW}, fun((AVV) -> AVZ)) -> {ok, AVZ} |
    {error, AVW}.
map(Result, Fun) ->
    case Result of
        {ok, X} ->
            {ok, Fun(X)};

        {error, E} ->
            {error, E}
    end.

-spec map_error({ok, AWC} | {error, AWD}, fun((AWD) -> AWG)) -> {ok, AWC} |
    {error, AWG}.
map_error(Result, Fun) ->
    case Result of
        {ok, X} ->
            {ok, X};

        {error, Error} ->
            {error, Fun(Error)}
    end.

-spec flatten({ok, {ok, AWJ} | {error, AWK}} | {error, AWK}) -> {ok, AWJ} |
    {error, AWK}.
flatten(Result) ->
    case Result of
        {ok, X} ->
            X;

        {error, Error} ->
            {error, Error}
    end.

-spec then({ok, AWR} | {error, AWS}, fun((AWR) -> {ok, AWV} | {error, AWS})) -> {ok,
                                                                                 AWV} |
    {error, AWS}.
then(Result, Fun) ->
    case Result of
        {ok, X} ->
            Fun(X);

        {error, E} ->
            {error, E}
    end.

-spec unwrap({ok, AXA} | {error, any()}, AXA) -> AXA.
unwrap(Result, Default) ->
    case Result of
        {ok, V} ->
            V;

        {error, _@1} ->
            Default
    end.

-spec lazy_unwrap({ok, AXE} | {error, any()}, fun(() -> AXE)) -> AXE.
lazy_unwrap(Result, Default) ->
    case Result of
        {ok, V} ->
            V;

        {error, _@1} ->
            Default()
    end.

-spec unwrap_error({ok, any()} | {error, AXJ}, AXJ) -> AXJ.
unwrap_error(Result, Default) ->
    case Result of
        {ok, _@1} ->
            Default;

        {error, E} ->
            E
    end.

-spec unwrap_both({ok, AXM} | {error, AXM}) -> AXM.
unwrap_both(Result) ->
    case Result of
        {ok, A} ->
            A;

        {error, A@1} ->
            A@1
    end.

-spec nil_error({ok, AXP} | {error, any()}) -> {ok, AXP} | {error, nil}.
nil_error(Result) ->
    map_error(Result, fun(_) -> nil end).

-spec 'or'({ok, AXV} | {error, AXW}, {ok, AXV} | {error, AXW}) -> {ok, AXV} |
    {error, AXW}.
'or'(First, Second) ->
    case First of
        {ok, _@1} ->
            First;

        {error, _@2} ->
            Second
    end.

-spec lazy_or({ok, AYD} | {error, AYE}, fun(() -> {ok, AYD} | {error, AYE})) -> {ok,
                                                                                 AYD} |
    {error, AYE}.
lazy_or(First, Second) ->
    case First of
        {ok, _@1} ->
            First;

        {error, _@2} ->
            Second()
    end.

-spec all(list({ok, AYL} | {error, AYM})) -> {ok, list(AYL)} | {error, AYM}.
all(Results) ->
    gleam@list:try_map(Results, fun(X) -> X end).

-spec replace({ok, any()} | {error, AYU}, AYX) -> {ok, AYX} | {error, AYU}.
replace(Result, Value) ->
    case Result of
        {ok, _@1} ->
            {ok, Value};

        {error, Error} ->
            {error, Error}
    end.

-spec replace_error({ok, AZA} | {error, any()}, AZE) -> {ok, AZA} | {error, AZE}.
replace_error(Result, Error) ->
    case Result of
        {ok, X} ->
            {ok, X};

        {error, _@1} ->
            {error, Error}
    end.

-spec values(list({ok, AZH} | {error, any()})) -> list(AZH).
values(Results) ->
    gleam@list:filter_map(Results, fun(R) -> R end).