-module(outcome).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([context/2, new_problem/1, outcome/1, map_error/2, remove_problem/1, pretty_print/2, print_line/2]).
-export_type([problem/1]).

-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.

-type problem(FVR) :: {problem, FVR, list(binary())}.

-file("src/outcome.gleam", 18).
-spec push_to_stack(list(binary()), binary()) -> list(binary()).
push_to_stack(Stack, Entry) ->
    [Entry | Stack].

-file("src/outcome.gleam", 40).
-spec problem_context(problem(FWF), binary()) -> problem(FWF).
problem_context(Problem, Value) ->
    _record = Problem,
    {problem,
        erlang:element(2, _record),
        push_to_stack(erlang:element(3, Problem), Value)}.

-file("src/outcome.gleam", 33).
?DOC(
    " Add context to a Problem.\n"
    " This will add a context entry to the stack.\n"
    "\n"
    " ## Example\n"
    "\n"
    " ```gleam\n"
    " Error(\"Something went wrong\")\n"
    " |> outcome.outcome\n"
    " |> outcome.context(\"In find user function\")\n"
    " ```\n"
).
-spec context({ok, FVZ} | {error, problem(FWA)}, binary()) -> {ok, FVZ} |
    {error, problem(FWA)}.
context(Outcome, Context) ->
    gleam@result:map_error(
        Outcome,
        fun(_capture) -> problem_context(_capture, Context) end
    ).

-file("src/outcome.gleam", 66).
?DOC(
    " Create a `Problem`\n"
    " Use this if you need the `Problem` type only.\n"
    " Usually you will use `outcome` instead.\n"
    "\n"
    " ## Example\n"
    "\n"
    " ```gleam\n"
    " outcome.new_problem(\"Something went wrong\")\n"
    " ```\n"
).
-spec new_problem(FWO) -> problem(FWO).
new_problem(Error) ->
    {problem, Error, []}.

-file("src/outcome.gleam", 52).
?DOC(
    " Convert `Result(a, e)` to `Result(a, Problem(e))`\n"
    "\n"
    " ## Example\n"
    "\n"
    " ```gleam\n"
    " Error(\"Something went wrong\")\n"
    " |> outcome.outcome\n"
    " ```\n"
).
-spec outcome({ok, FWI} | {error, FWJ}) -> {ok, FWI} | {error, problem(FWJ)}.
outcome(Result) ->
    gleam@result:map_error(Result, fun new_problem/1).

-file("src/outcome.gleam", 78).
-spec problem_map_error(problem(FWW), fun((FWW) -> FWW)) -> problem(FWW).
problem_map_error(Problem, Mapper) ->
    _record = Problem,
    {problem, Mapper(erlang:element(2, Problem)), erlang:element(3, _record)}.

-file("src/outcome.gleam", 71).
?DOC(" Map the error value\n").
-spec map_error({ok, FWQ} | {error, problem(FWR)}, fun((FWR) -> FWR)) -> {ok,
        FWQ} |
    {error, problem(FWR)}.
map_error(Outcome, Mapper) ->
    gleam@result:map_error(
        Outcome,
        fun(_capture) -> problem_map_error(_capture, Mapper) end
    ).

-file("src/outcome.gleam", 94).
?DOC(
    " Remove the `Problem` wrapping in the error value\n"
    "\n"
    " ## Example\n"
    "\n"
    " ```gleam\n"
    " let outcome = Error(\"Fail\") |> outcome.outcome\n"
    "\n"
    " outcome.remove_problem(outcome) == Error(\"Fail\")\n"
    " ```\n"
).
-spec remove_problem({ok, FWZ} | {error, problem(FXA)}) -> {ok, FWZ} |
    {error, FXA}.
remove_problem(Outcome) ->
    _pipe = Outcome,
    gleam@result:map_error(
        _pipe,
        fun(Problem) -> erlang:element(2, Problem) end
    ).

-file("src/outcome.gleam", 178).
-spec stack_to_lines(list(binary())) -> list(binary()).
stack_to_lines(Stack) ->
    _pipe = Stack,
    lists:reverse(_pipe).

-file("src/outcome.gleam", 156).
-spec pretty_print_with_joins(
    problem(FXJ),
    binary(),
    binary(),
    fun((FXJ) -> binary())
) -> binary().
pretty_print_with_joins(Problem, Join_current, Join_stack, To_s) ->
    Current = To_s(erlang:element(2, Problem)),
    Stack = <<Join_current/binary,
        (begin
            _pipe = erlang:element(3, Problem),
            _pipe@1 = stack_to_lines(_pipe),
            gleam@string:join(_pipe@1, Join_stack)
        end)/binary>>,
    Stack@1 = case erlang:element(3, Problem) of
        [] ->
            <<""/utf8>>;

        _ ->
            Stack
    end,
    <<Current/binary, Stack@1/binary>>.

-file("src/outcome.gleam", 128).
?DOC(
    " Pretty print a Problem, including the stack.\n"
    " The latest problem appears at the top of the stack.\n"
    "\n"
    " ## Example\n"
    "\n"
    " ```gleam\n"
    " let result = Error(\"Something went wrong\")\n"
    " |> outcome.outcome\n"
    " |> outcome.context(\"In find user function\")\n"
    " |> outcome.context(\"More context\")\n"
    "\n"
    " case result {\n"
    "   Error(problem) ->\n"
    "     outcome.pretty_print(function.identity)\n"
    "\n"
    "   Ok(_) -> todo\n"
    " }\n"
    " ```\n"
    "\n"
    " ```\n"
    " Something went wrong\n"
    "\n"
    " stack:\n"
    "  In find user function\n"
    "  More context\n"
    " ```\n"
).
-spec pretty_print(problem(FXF), fun((FXF) -> binary())) -> binary().
pretty_print(Problem, To_s) ->
    pretty_print_with_joins(
        Problem,
        <<"\n\nstack:\n  "/utf8>>,
        <<"\n  "/utf8>>,
        To_s
    ).

-file("src/outcome.gleam", 152).
?DOC(
    " Print problem in one line\n"
    "\n"
    " ## Example\n"
    "\n"
    " ```gleam\n"
    " let result = Error(\"Something went wrong\")\n"
    " |> outcome.outcome\n"
    " |> outcome.context(\"In find user function\")\n"
    "\n"
    " case result {\n"
    "   Error(problem) ->\n"
    "     outcome.print_line(function.identity)\n"
    "\n"
    "   Ok(_) -> todo\n"
    " }\n"
    " ```\n"
    "\n"
    " ```\n"
    " Something went wrong < In find user function\n"
    " ```\n"
).
-spec print_line(problem(FXH), fun((FXH) -> binary())) -> binary().
print_line(Problem, To_s) ->
    pretty_print_with_joins(Problem, <<" < "/utf8>>, <<" < "/utf8>>, To_s).