bike shedding

This commit is contained in:
Peter Harpending 2026-01-12 18:40:25 -08:00
parent 2cfa90beb1
commit 51c081fb55
12 changed files with 43 additions and 18 deletions

View File

@ -5,5 +5,6 @@
{applications,[stdlib,kernel]},
{vsn,"0.1.0"},
{modules,[gex_httpd,gh_client,gh_client_man,gh_client_sup,
gh_clients,gh_sup]},
gh_clients,gh_ct,gh_sfc,gh_sfc_cache,gh_sfc_entry,
gh_sup]},
{mod,{gex_httpd,[]}}]}.

View File

@ -3,10 +3,12 @@
%%% @end
-module(gex_httpd).
-vsn("0.1.0").
-behavior(application).
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
%% for our edification
-export([listen/1, ignore/0]).

View File

@ -14,9 +14,11 @@
%%% @end
-module(gh_client).
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
-export([start/1]).

View File

@ -10,10 +10,12 @@
%%% @end
-module(gh_client_man).
-vsn("0.1.0").
-behavior(gen_server).
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
-export([listen/1, ignore/0]).

View File

@ -14,12 +14,12 @@
%%% @end
-module(gh_client_sup).
-vsn("0.1.0").
-behaviour(supervisor).
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
-export([start_acceptor/1]).
-export([start_link/0]).

View File

@ -9,10 +9,12 @@
%%% @end
-module(gh_clients).
-vsn("0.1.0").
-behavior(supervisor).
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
-export([start_link/0]).

View File

@ -3,6 +3,10 @@
% mostly wrappers for ec_utils and hakuzaru
-module(gh_ct).
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
-export_type([
keypair/0

View File

@ -4,10 +4,13 @@
%
% Adapted from FEWD: https://git.qpq.swiss/pharpend/fewd/src/commit/9adbf67ebde14c7c1d8de70ec9b241e6d4ee6f45/src/fd_httpd_sfc.erl
-module(gh_sfc).
-vsn("0.1.0").
-behavior(gen_server).
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
-export_type([
entry/0,
maybe_entry/0

View File

@ -5,7 +5,11 @@
%
% Adapted from FEWD: https://git.qpq.swiss/pharpend/fewd/src/commit/9adbf67ebde14c7c1d8de70ec9b241e6d4ee6f45/src/fd_httpd_sfc_cache.erl
-module(gh_sfc_cache).
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
-export_type([
cache/0

View File

@ -5,7 +5,11 @@
%
% Adapted from FEWD: https://git.qpq.swiss/pharpend/fewd/src/commit/9adbf67ebde14c7c1d8de70ec9b241e6d4ee6f45/src/fd_httpd_sfc_entry.erl
-module(gh_sfc_entry).
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
-export_type([
encoding/0,

View File

@ -12,11 +12,12 @@
%%% @end
-module(gh_sup).
-vsn("0.1.0").
-behaviour(supervisor).
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026, QPQ AG").
-vsn("0.1.0").
-author("Peter Harpending <peterharpending@qpq.swiss>").
-copyright("2025-2026 QPQ AG").
-license("MIT").
-export([start_link/0]).
-export([init/1]).

View File

@ -22,7 +22,7 @@
{c_email,"peterharpending@qpq.swiss"}.
{copyright,"2025-2026, QPQ AG"}.
{file_exts,[]}.
{license,skip}.
{license,mit}.
{repo_url,"https://git.qpq.swiss/QPQ-AG/gex"}.
{tags,[]}.
{ws_url,"https://git.qpq.swiss/QPQ-AG/gex"}.