file-server: fix issues from merge
-/- *file-server
+/- srv=file-server
/+ *server, default-agent, verb, dbug
|%
+$ card card:agent:gall
+$ serving (map url-base=path [clay-base=path public=?])
+$ state-zero
$: %0
- =configuration
+ =configuration:srv
=serving
==
--
+::
%+ verb |
%- agent:dbug
+::
=| state-zero
=* state -
^- agent:gall
|^
?> (team:title our.bowl src.bowl)
?+ 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
=+ !<([id=@ta req=inbound-request:eyre] vase)
:_ this
==
::
++ file-server-action
- |= act=action
+ |= act=action:srv
^- (quip card _this)
|^
?- -.act
==
::
++ give
- |= =update
+ |= =update:srv
^- (list card)
[%give %fact [/all]~ [%file-server-update !>(update)]]~
--
==
::
++ give
- |= =update
+ |= =update:srv
^- (list card)
[%give %fact ~ [%file-server-update !>(update)]]~
--
