meadow

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

-export([html/1, server_signal/3, start_server/1]).
-export_type([signal/1]).

-type signal(QJR) :: {signal, QJR, binary()}.

-spec html(any()) -> nil.
html(_) ->
    nil.

-spec server_signal(list(server:handler(QJU)), signal(QJU), fun((QJU) -> QJU)) -> list(server:handler(QJU)).
server_signal(Prev, Signal, Handle) ->
    [{signal, erlang:element(3, Signal), erlang:element(2, Signal), Handle} |
        Prev].

-spec start_server(
    list(fun((list(server:handler(integer()))) -> list(server:handler(integer()))))
) -> nil.
start_server(Routes) ->
    _pipe = Routes,
    _pipe@1 = gleam@list:fold(
        _pipe,
        [],
        fun(Routes@1, Route) -> Route(Routes@1) end
    ),
    server:server(_pipe@1).