skill-universe 1.1.0

package/build/dev/javascript/gleeunit/gleeunit/should.mjs

@@ -0,0 +1,135 @@
+import * as $option from "../../gleam_stdlib/gleam/option.mjs";
+import { None, Some } from "../../gleam_stdlib/gleam/option.mjs";
+import * as $string from "../../gleam_stdlib/gleam/string.mjs";
+import { Ok, Error, toList, makeError, isEqual } from "../gleam.mjs";
+
+const FILEPATH = "src/gleeunit/should.gleam";
+
+export function equal(a, b) {
+  let $ = isEqual(a, b);
+  if ($) {
+    return undefined;
+  } else {
+    throw makeError(
+      "panic",
+      FILEPATH,
+      "gleeunit/should",
+      10,
+      "equal",
+      $string.concat(
+        toList([
+          "\n",
+          $string.inspect(a),
+          "\nshould equal\n",
+          $string.inspect(b),
+        ]),
+      ),
+      {}
+    )
+  }
+}
+
+export function not_equal(a, b) {
+  let $ = !isEqual(a, b);
+  if ($) {
+    return undefined;
+  } else {
+    throw makeError(
+      "panic",
+      FILEPATH,
+      "gleeunit/should",
+      23,
+      "not_equal",
+      $string.concat(
+        toList([
+          "\n",
+          $string.inspect(a),
+          "\nshould not equal\n",
+          $string.inspect(b),
+        ]),
+      ),
+      {}
+    )
+  }
+}
+
+export function be_ok(a) {
+  if (a instanceof Ok) {
+    let value = a[0];
+    return value;
+  } else {
+    throw makeError(
+      "panic",
+      FILEPATH,
+      "gleeunit/should",
+      35,
+      "be_ok",
+      $string.concat(toList(["\n", $string.inspect(a), "\nshould be ok"])),
+      {}
+    )
+  }
+}
+
+export function be_error(a) {
+  if (a instanceof Error) {
+    let error = a[0];
+    return error;
+  } else {
+    throw makeError(
+      "panic",
+      FILEPATH,
+      "gleeunit/should",
+      42,
+      "be_error",
+      $string.concat(toList(["\n", $string.inspect(a), "\nshould be error"])),
+      {}
+    )
+  }
+}
+
+export function be_some(a) {
+  if (a instanceof Some) {
+    let value = a[0];
+    return value;
+  } else {
+    throw makeError(
+      "panic",
+      FILEPATH,
+      "gleeunit/should",
+      49,
+      "be_some",
+      $string.concat(toList(["\n", $string.inspect(a), "\nshould be some"])),
+      {}
+    )
+  }
+}
+
+export function be_none(a) {
+  if (a instanceof None) {
+    return undefined;
+  } else {
+    throw makeError(
+      "panic",
+      FILEPATH,
+      "gleeunit/should",
+      56,
+      "be_none",
+      $string.concat(toList(["\n", $string.inspect(a), "\nshould be none"])),
+      {}
+    )
+  }
+}
+
+export function be_true(actual) {
+  let _pipe = actual;
+  return equal(_pipe, true);
+}
+
+export function be_false(actual) {
+  let _pipe = actual;
+  return equal(_pipe, false);
+}
+
+export function fail() {
+  return be_true(false);
+}

package/build/dev/javascript/gleeunit/gleeunit.erl

@@ -0,0 +1,89 @@
+-module(gleeunit).
+-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
+-define(FILEPATH, "src/gleeunit.gleam").
+-export([main/0]).
+-export_type([atom_/0, encoding/0, report_module_name/0, gleeunit_progress_option/0, eunit_option/0]).
+
+-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 atom_() :: any().
+
+-type encoding() :: utf8.
+
+-type report_module_name() :: gleeunit_progress.
+
+-type gleeunit_progress_option() :: {colored, boolean()}.
+
+-type eunit_option() :: verbose |
+    no_tty |
+    {report, {report_module_name(), list(gleeunit_progress_option())}} |
+    {scale_timeouts, integer()}.
+
+-file("src/gleeunit.gleam", 42).
+-spec gleam_to_erlang_module_name(binary()) -> binary().
+gleam_to_erlang_module_name(Path) ->
+    case gleam_stdlib:string_ends_with(Path, <<".gleam"/utf8>>) of
+        true ->
+            _pipe = Path,
+            _pipe@1 = gleam@string:replace(
+                _pipe,
+                <<".gleam"/utf8>>,
+                <<""/utf8>>
+            ),
+            gleam@string:replace(_pipe@1, <<"/"/utf8>>, <<"@"/utf8>>);
+
+        false ->
+            _pipe@2 = Path,
+            _pipe@3 = gleam@string:split(_pipe@2, <<"/"/utf8>>),
+            _pipe@4 = gleam@list:last(_pipe@3),
+            _pipe@5 = gleam@result:unwrap(_pipe@4, Path),
+            gleam@string:replace(_pipe@5, <<".erl"/utf8>>, <<""/utf8>>)
+    end.
+
+-file("src/gleeunit.gleam", 18).
+-spec do_main() -> nil.
+do_main() ->
+    Options = [verbose,
+        no_tty,
+        {report, {gleeunit_progress, [{colored, true}]}},
+        {scale_timeouts, 10}],
+    Result = begin
+        _pipe = gleeunit_ffi:find_files(
+            <<"**/*.{erl,gleam}"/utf8>>,
+            <<"test"/utf8>>
+        ),
+        _pipe@1 = gleam@list:map(_pipe, fun gleam_to_erlang_module_name/1),
+        _pipe@2 = gleam@list:map(
+            _pipe@1,
+            fun(_capture) -> erlang:binary_to_atom(_capture, utf8) end
+        ),
+        gleeunit_ffi:run_eunit(_pipe@2, Options)
+    end,
+    Code = case Result of
+        {ok, _} ->
+            0;
+
+        {error, _} ->
+            1
+    end,
+    erlang:halt(Code).
+
+-file("src/gleeunit.gleam", 13).
+?DOC(
+    " Find and run all test functions for the current project using Erlang's EUnit\n"
+    " test framework, or a custom JavaScript test runner.\n"
+    "\n"
+    " Any Erlang or Gleam function in the `test` directory with a name ending in\n"
+    " `_test` is considered a test function and will be run.\n"
+    "\n"
+    " A test that panics is considered a failure.\n"
+).
+-spec main() -> nil.
+main() ->
+    do_main().

package/build/dev/javascript/gleeunit/gleeunit.mjs

@@ -0,0 +1,62 @@
+import * as $list from "../gleam_stdlib/gleam/list.mjs";
+import * as $result from "../gleam_stdlib/gleam/result.mjs";
+import * as $string from "../gleam_stdlib/gleam/string.mjs";
+import { CustomType as $CustomType } from "./gleam.mjs";
+import { main as do_main } from "./gleeunit_ffi.mjs";
+
+class Utf8 extends $CustomType {}
+
+class GleeunitProgress extends $CustomType {}
+
+class Colored extends $CustomType {
+  constructor($0) {
+    super();
+    this[0] = $0;
+  }
+}
+
+class Verbose extends $CustomType {}
+
+class NoTty extends $CustomType {}
+
+class Report extends $CustomType {
+  constructor($0) {
+    super();
+    this[0] = $0;
+  }
+}
+
+class ScaleTimeouts extends $CustomType {
+  constructor($0) {
+    super();
+    this[0] = $0;
+  }
+}
+
+function gleam_to_erlang_module_name(path) {
+  let $ = $string.ends_with(path, ".gleam");
+  if ($) {
+    let _pipe = path;
+    let _pipe$1 = $string.replace(_pipe, ".gleam", "");
+    return $string.replace(_pipe$1, "/", "@");
+  } else {
+    let _pipe = path;
+    let _pipe$1 = $string.split(_pipe, "/");
+    let _pipe$2 = $list.last(_pipe$1);
+    let _pipe$3 = $result.unwrap(_pipe$2, path);
+    return $string.replace(_pipe$3, ".erl", "");
+  }
+}
+
+/**
+ * Find and run all test functions for the current project using Erlang's EUnit
+ * test framework, or a custom JavaScript test runner.
+ *
+ * Any Erlang or Gleam function in the `test` directory with a name ending in
+ * `_test` is considered a test function and will be run.
+ *
+ * A test that panics is considered a failure.
+ */
+export function main() {
+  return do_main();
+}

package/build/dev/javascript/gleeunit/gleeunit@internal@gleam_panic.erl

@@ -0,0 +1,56 @@
+-module(gleeunit@internal@gleam_panic).
+-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
+-define(FILEPATH, "src/gleeunit/internal/gleam_panic.gleam").
+-export([from_dynamic/1]).
+-export_type([gleam_panic/0, panic_kind/0, assert_kind/0, asserted_expression/0, expression_kind/0]).
+
+-if(?OTP_RELEASE >= 27).
+-define(MODULEDOC(Str), -moduledoc(Str)).
+-define(DOC(Str), -doc(Str)).
+-else.
+-define(MODULEDOC(Str), -compile([])).
+-define(DOC(Str), -compile([])).
+-endif.
+
+?MODULEDOC(false).
+
+-type gleam_panic() :: {gleam_panic,
+        binary(),
+        binary(),
+        binary(),
+        binary(),
+        integer(),
+        panic_kind()}.
+
+-type panic_kind() :: todo |
+    panic |
+    {let_assert,
+        integer(),
+        integer(),
+        integer(),
+        integer(),
+        gleam@dynamic:dynamic_()} |
+    {assert, integer(), integer(), integer(), assert_kind()}.
+
+-type assert_kind() :: {binary_operator,
+        binary(),
+        asserted_expression(),
+        asserted_expression()} |
+    {function_call, list(asserted_expression())} |
+    {other_expression, asserted_expression()}.
+
+-type asserted_expression() :: {asserted_expression,
+        integer(),
+        integer(),
+        expression_kind()}.
+
+-type expression_kind() :: {literal, gleam@dynamic:dynamic_()} |
+    {expression, gleam@dynamic:dynamic_()} |
+    unevaluated.
+
+-file("src/gleeunit/internal/gleam_panic.gleam", 49).
+?DOC(false).
+-spec from_dynamic(gleam@dynamic:dynamic_()) -> {ok, gleam_panic()} |
+    {error, nil}.
+from_dynamic(Data) ->
+    gleeunit_gleam_panic_ffi:from_dynamic(Data).

package/build/dev/javascript/gleeunit/gleeunit@internal@reporting.erl

@@ -0,0 +1,343 @@
+-module(gleeunit@internal@reporting).
+-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
+-define(FILEPATH, "src/gleeunit/internal/reporting.gleam").
+-export([new_state/0, test_skipped/3, test_passed/1, finished/1, eunit_missing/0, test_failed/4]).
+-export_type([state/0]).
+
+-if(?OTP_RELEASE >= 27).
+-define(MODULEDOC(Str), -moduledoc(Str)).
+-define(DOC(Str), -doc(Str)).
+-else.
+-define(MODULEDOC(Str), -compile([])).
+-define(DOC(Str), -compile([])).
+-endif.
+
+?MODULEDOC(false).
+
+-type state() :: {state, integer(), integer(), integer()}.
+
+-file("src/gleeunit/internal/reporting.gleam", 15).
+?DOC(false).
+-spec new_state() -> state().
+new_state() ->
+    {state, 0, 0, 0}.
+
+-file("src/gleeunit/internal/reporting.gleam", 207).
+?DOC(false).
+-spec bold(binary()) -> binary().
+bold(Text) ->
+    <<<<"\x{001b}[1m"/utf8, Text/binary>>/binary, "\x{001b}[22m"/utf8>>.
+
+-file("src/gleeunit/internal/reporting.gleam", 211).
+?DOC(false).
+-spec cyan(binary()) -> binary().
+cyan(Text) ->
+    <<<<"\x{001b}[36m"/utf8, Text/binary>>/binary, "\x{001b}[39m"/utf8>>.
+
+-file("src/gleeunit/internal/reporting.gleam", 191).
+?DOC(false).
+-spec code_snippet(gleam@option:option(bitstring()), integer(), integer()) -> binary().
+code_snippet(Src, Start, End) ->
+    _pipe = begin
+        gleam@result:'try'(
+            gleam@option:to_result(Src, nil),
+            fun(Src@1) ->
+                gleam@result:'try'(
+                    gleam_stdlib:bit_array_slice(Src@1, Start, End - Start),
+                    fun(Snippet) ->
+                        gleam@result:'try'(
+                            gleam@bit_array:to_string(Snippet),
+                            fun(Snippet@1) ->
+                                Snippet@2 = <<<<<<(cyan(<<" code"/utf8>>))/binary,
+                                            ": "/utf8>>/binary,
+                                        Snippet@1/binary>>/binary,
+                                    "\n"/utf8>>,
+                                {ok, Snippet@2}
+                            end
+                        )
+                    end
+                )
+            end
+        )
+    end,
+    gleam@result:unwrap(_pipe, <<""/utf8>>).
+
+-file("src/gleeunit/internal/reporting.gleam", 215).
+?DOC(false).
+-spec yellow(binary()) -> binary().
+yellow(Text) ->
+    <<<<"\x{001b}[33m"/utf8, Text/binary>>/binary, "\x{001b}[39m"/utf8>>.
+
+-file("src/gleeunit/internal/reporting.gleam", 202).
+?DOC(false).
+-spec test_skipped(state(), binary(), binary()) -> state().
+test_skipped(State, Module, Function) ->
+    gleam_stdlib:print(
+        <<<<<<<<"\n"/utf8, Module/binary>>/binary, "."/utf8>>/binary,
+                Function/binary>>/binary,
+            (yellow(<<" skipped"/utf8>>))/binary>>
+    ),
+    {state,
+        erlang:element(2, State),
+        erlang:element(3, State),
+        erlang:element(4, State) + 1}.
+
+-file("src/gleeunit/internal/reporting.gleam", 219).
+?DOC(false).
+-spec green(binary()) -> binary().
+green(Text) ->
+    <<<<"\x{001b}[32m"/utf8, Text/binary>>/binary, "\x{001b}[39m"/utf8>>.
+
+-file("src/gleeunit/internal/reporting.gleam", 66).
+?DOC(false).
+-spec test_passed(state()) -> state().
+test_passed(State) ->
+    gleam_stdlib:print(green(<<"."/utf8>>)),
+    {state,
+        erlang:element(2, State) + 1,
+        erlang:element(3, State),
+        erlang:element(4, State)}.
+
+-file("src/gleeunit/internal/reporting.gleam", 223).
+?DOC(false).
+-spec red(binary()) -> binary().
+red(Text) ->
+    <<<<"\x{001b}[31m"/utf8, Text/binary>>/binary, "\x{001b}[39m"/utf8>>.
+
+-file("src/gleeunit/internal/reporting.gleam", 19).
+?DOC(false).
+-spec finished(state()) -> integer().
+finished(State) ->
+    case State of
+        {state, 0, 0, 0} ->
+            gleam_stdlib:println(<<"\nNo tests found!"/utf8>>),
+            1;
+
+        {state, _, 0, 0} ->
+            Message = <<<<"\n"/utf8,
+                    (erlang:integer_to_binary(erlang:element(2, State)))/binary>>/binary,
+                " passed, no failures"/utf8>>,
+            gleam_stdlib:println(green(Message)),
+            0;
+
+        {state, _, _, 0} ->
+            Message@1 = <<<<<<<<"\n"/utf8,
+                            (erlang:integer_to_binary(erlang:element(2, State)))/binary>>/binary,
+                        " passed, "/utf8>>/binary,
+                    (erlang:integer_to_binary(erlang:element(3, State)))/binary>>/binary,
+                " failures"/utf8>>,
+            gleam_stdlib:println(red(Message@1)),
+            1;
+
+        {state, _, 0, _} ->
+            Message@2 = <<<<<<<<"\n"/utf8,
+                            (erlang:integer_to_binary(erlang:element(2, State)))/binary>>/binary,
+                        " passed, 0 failures, "/utf8>>/binary,
+                    (erlang:integer_to_binary(erlang:element(4, State)))/binary>>/binary,
+                " skipped"/utf8>>,
+            gleam_stdlib:println(yellow(Message@2)),
+            1;
+
+        {state, _, _, _} ->
+            Message@3 = <<<<<<<<<<<<"\n"/utf8,
+                                    (erlang:integer_to_binary(
+                                        erlang:element(2, State)
+                                    ))/binary>>/binary,
+                                " passed, "/utf8>>/binary,
+                            (erlang:integer_to_binary(erlang:element(3, State)))/binary>>/binary,
+                        " failures, "/utf8>>/binary,
+                    (erlang:integer_to_binary(erlang:element(4, State)))/binary>>/binary,
+                " skipped"/utf8>>,
+            gleam_stdlib:println(red(Message@3)),
+            1
+    end.
+
+-file("src/gleeunit/internal/reporting.gleam", 89).
+?DOC(false).
+-spec eunit_missing() -> {ok, any()} | {error, nil}.
+eunit_missing() ->
+    Message = <<(bold(red(<<"Error"/utf8>>)))/binary,
+        ": EUnit libraries not found.
+
+Your Erlang installation seems to be incomplete. If you installed Erlang using
+a package manager ensure that you have installed the full Erlang
+distribution instead of a stripped-down version.
+"/utf8>>,
+    gleam_stdlib:print_error(Message),
+    {error, nil}.
+
+-file("src/gleeunit/internal/reporting.gleam", 227).
+?DOC(false).
+-spec grey(binary()) -> binary().
+grey(Text) ->
+    <<<<"\x{001b}[90m"/utf8, Text/binary>>/binary, "\x{001b}[39m"/utf8>>.
+
+-file("src/gleeunit/internal/reporting.gleam", 100).
+?DOC(false).
+-spec format_unknown(binary(), binary(), gleam@dynamic:dynamic_()) -> binary().
+format_unknown(Module, Function, Error) ->
+    erlang:list_to_binary(
+        [<<(grey(<<<<Module/binary, "."/utf8>>/binary, Function/binary>>))/binary,
+                "\n"/utf8>>,
+            <<"An unexpected error occurred:\n"/utf8>>,
+            <<"\n"/utf8>>,
+            <<<<"  "/utf8, (gleam@string:inspect(Error))/binary>>/binary,
+                "\n"/utf8>>]
+    ).
+
+-file("src/gleeunit/internal/reporting.gleam", 183).
+?DOC(false).
+-spec inspect_value(gleeunit@internal@gleam_panic:asserted_expression()) -> binary().
+inspect_value(Value) ->
+    case erlang:element(4, Value) of
+        unevaluated ->
+            grey(<<"unevaluated"/utf8>>);
+
+        {literal, _} ->
+            grey(<<"literal"/utf8>>);
+
+        {expression, Value@1} ->
+            gleam@string:inspect(Value@1)
+    end.
+
+-file("src/gleeunit/internal/reporting.gleam", 179).
+?DOC(false).
+-spec assert_value(
+    binary(),
+    gleeunit@internal@gleam_panic:asserted_expression()
+) -> binary().
+assert_value(Name, Value) ->
+    <<<<<<(cyan(Name))/binary, ": "/utf8>>/binary,
+            (inspect_value(Value))/binary>>/binary,
+        "\n"/utf8>>.
+
+-file("src/gleeunit/internal/reporting.gleam", 160).
+?DOC(false).
+-spec assert_info(gleeunit@internal@gleam_panic:assert_kind()) -> binary().
+assert_info(Kind) ->
+    case Kind of
+        {binary_operator, _, Left, Right} ->
+            erlang:list_to_binary(
+                [assert_value(<<" left"/utf8>>, Left),
+                    assert_value(<<"right"/utf8>>, Right)]
+            );
+
+        {function_call, Arguments} ->
+            _pipe = Arguments,
+            _pipe@1 = gleam@list:index_map(
+                _pipe,
+                fun(E, I) ->
+                    Number = gleam@string:pad_start(
+                        erlang:integer_to_binary(I),
+                        5,
+                        <<" "/utf8>>
+                    ),
+                    assert_value(Number, E)
+                end
+            ),
+            erlang:list_to_binary(_pipe@1);
+
+        {other_expression, _} ->
+            <<""/utf8>>
+    end.
+
+-file("src/gleeunit/internal/reporting.gleam", 113).
+?DOC(false).
+-spec format_gleam_error(
+    gleeunit@internal@gleam_panic:gleam_panic(),
+    binary(),
+    binary(),
+    gleam@option:option(bitstring())
+) -> binary().
+format_gleam_error(Error, Module, Function, Src) ->
+    Location = grey(
+        <<<<(erlang:element(3, Error))/binary, ":"/utf8>>/binary,
+            (erlang:integer_to_binary(erlang:element(6, Error)))/binary>>
+    ),
+    case erlang:element(7, Error) of
+        panic ->
+            erlang:list_to_binary(
+                [<<<<<<(bold(red(<<"panic"/utf8>>)))/binary, " "/utf8>>/binary,
+                            Location/binary>>/binary,
+                        "\n"/utf8>>,
+                    <<<<<<<<<<(cyan(<<" test"/utf8>>))/binary, ": "/utf8>>/binary,
+                                    Module/binary>>/binary,
+                                "."/utf8>>/binary,
+                            Function/binary>>/binary,
+                        "\n"/utf8>>,
+                    <<<<<<(cyan(<<" info"/utf8>>))/binary, ": "/utf8>>/binary,
+                            (erlang:element(2, Error))/binary>>/binary,
+                        "\n"/utf8>>]
+            );
+
+        todo ->
+            erlang:list_to_binary(
+                [<<<<<<(bold(yellow(<<"todo"/utf8>>)))/binary, " "/utf8>>/binary,
+                            Location/binary>>/binary,
+                        "\n"/utf8>>,
+                    <<<<<<<<<<(cyan(<<" test"/utf8>>))/binary, ": "/utf8>>/binary,
+                                    Module/binary>>/binary,
+                                "."/utf8>>/binary,
+                            Function/binary>>/binary,
+                        "\n"/utf8>>,
+                    <<<<<<(cyan(<<" info"/utf8>>))/binary, ": "/utf8>>/binary,
+                            (erlang:element(2, Error))/binary>>/binary,
+                        "\n"/utf8>>]
+            );
+
+        {assert, Start, End, _, Kind} ->
+            erlang:list_to_binary(
+                [<<<<<<(bold(red(<<"assert"/utf8>>)))/binary, " "/utf8>>/binary,
+                            Location/binary>>/binary,
+                        "\n"/utf8>>,
+                    <<<<<<<<<<(cyan(<<" test"/utf8>>))/binary, ": "/utf8>>/binary,
+                                    Module/binary>>/binary,
+                                "."/utf8>>/binary,
+                            Function/binary>>/binary,
+                        "\n"/utf8>>,
+                    code_snippet(Src, Start, End),
+                    assert_info(Kind),
+                    <<<<<<(cyan(<<" info"/utf8>>))/binary, ": "/utf8>>/binary,
+                            (erlang:element(2, Error))/binary>>/binary,
+                        "\n"/utf8>>]
+            );
+
+        {let_assert, Start@1, End@1, _, _, Value} ->
+            erlang:list_to_binary(
+                [<<<<<<(bold(red(<<"let assert"/utf8>>)))/binary, " "/utf8>>/binary,
+                            Location/binary>>/binary,
+                        "\n"/utf8>>,
+                    <<<<<<<<<<(cyan(<<" test"/utf8>>))/binary, ": "/utf8>>/binary,
+                                    Module/binary>>/binary,
+                                "."/utf8>>/binary,
+                            Function/binary>>/binary,
+                        "\n"/utf8>>,
+                    code_snippet(Src, Start@1, End@1),
+                    <<<<<<(cyan(<<"value"/utf8>>))/binary, ": "/utf8>>/binary,
+                            (gleam@string:inspect(Value))/binary>>/binary,
+                        "\n"/utf8>>,
+                    <<<<<<(cyan(<<" info"/utf8>>))/binary, ": "/utf8>>/binary,
+                            (erlang:element(2, Error))/binary>>/binary,
+                        "\n"/utf8>>]
+            )
+    end.
+
+-file("src/gleeunit/internal/reporting.gleam", 71).
+?DOC(false).
+-spec test_failed(state(), binary(), binary(), gleam@dynamic:dynamic_()) -> state().
+test_failed(State, Module, Function, Error) ->
+    Message = case gleeunit_gleam_panic_ffi:from_dynamic(Error) of
+        {ok, Error@1} ->
+            Src = gleam@option:from_result(
+                file:read_file(erlang:element(3, Error@1))
+            ),
+            format_gleam_error(Error@1, Module, Function, Src);
+
+        {error, _} ->
+            format_unknown(Module, Function, Error)
+    end,
+    gleam_stdlib:print(<<"\n"/utf8, Message/binary>>),
+    {state,
+        erlang:element(2, State),
+        erlang:element(3, State) + 1,
+        erlang:element(4, State)}.