file-server: fix issues from merge

This commit is contained in:
Logan Allen 2020-06-01 14:28:05 -04:00
parent b863dca773
commit b8525c7915

View File

@ -1,4 +1,4 @@
/- *file-server /- srv=file-server
/+ *server, default-agent, verb, dbug /+ *server, default-agent, verb, dbug
|% |%
+$ card card:agent:gall +$ card card:agent:gall
@ -9,12 +9,14 @@
+$ serving (map url-base=path [clay-base=path public=?]) +$ serving (map url-base=path [clay-base=path public=?])
+$ state-zero +$ state-zero
$: %0 $: %0
=configuration =configuration:srv
=serving =serving
== ==
-- --
::
%+ verb | %+ verb |
%- agent:dbug %- agent:dbug
::
=| state-zero =| state-zero
=* state - =* state -
^- agent:gall ^- agent:gall
@ -55,7 +57,7 @@
|^ |^
?> (team:title our.bowl src.bowl) ?> (team:title our.bowl src.bowl)
?+ mark (on-poke:def mark vase) ?+ mark (on-poke:def mark vase)
%file-server-action (file-server-action !<(action vase)) %file-server-action (file-server-action !<(action:srv vase))
%handle-http-request %handle-http-request
=+ !<([id=@ta req=inbound-request:eyre] vase) =+ !<([id=@ta req=inbound-request:eyre] vase)
:_ this :_ this
@ -64,7 +66,7 @@
== ==
:: ::
++ file-server-action ++ file-server-action
|= act=action |= act=action:srv
^- (quip card _this) ^- (quip card _this)
|^ |^
?- -.act ?- -.act
@ -93,7 +95,7 @@
== ==
:: ::
++ give ++ give
|= =update |= =update:srv
^- (list card) ^- (list card)
[%give %fact [/all]~ [%file-server-update !>(update)]]~ [%give %fact [/all]~ [%file-server-update !>(update)]]~
-- --
@ -194,7 +196,7 @@
== ==
:: ::
++ give ++ give
|= =update |= =update:srv
^- (list card) ^- (list card)
[%give %fact ~ [%file-server-update !>(update)]]~ [%give %fact ~ [%file-server-update !>(update)]]~
-- --