zuse: remove superfluous 'scup' and 'culm' types

%zuse includes definitions for 'scup' and 'culm', both of which are
superfluous.  'scup' is simply (pair ship desk) and is used only in the
definition of 'culm', a tagged union in which three of the four branches
are commented out (i.e. are unused).

This commit deletes 'scup' and 'culm' and refactors what little code
made use of them.
This commit is contained in:
Jared Tobin 2019-04-12 08:03:11 +12:00 committed by Jared Tobin
parent da2879073b
commit 1fe4ff1605
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4

View File

@ -1867,7 +1867,7 @@
== ::
++ task :: incoming request
$~ [%vega ~] ::
$% {$conf p/dock q/culm} :: configure app
$% {$conf p/dock q/(pair ship desk)} :: configure app
$>(%init vane-task) :: set owner
{$deal p/sock q/cush} :: full transmission
$>(%vega vane-task) :: report upgrade
@ -1911,12 +1911,6 @@
{$reap p/(unit tang)} :: peer result
[%http-response =http-event:http] :: serve http result
== ::
++ culm :: config action
$% {$load p/scup} :: load+reload
:: {$kick ~} :: restart everything
:: {$stop ~} :: toggle suspend
:: {$wipe ~} :: destroy all state
== ::
++ cush (pair term club) :: internal task
++ dude term :: server identity
++ gill (pair ship term) :: general contact
@ -1925,7 +1919,6 @@
q/(map duct bone) :: by duct
r/(map bone duct) :: by bone
== ::
++ scup (pair ship desk) :: autoupdate
++ suss (trel dude @tas @da) :: config report
++ well (pair desk term) ::
-- ::gall