file-server: restore who generator binding
[%glob =glob:glob]
==
::
-+$ state-3
- $: %3
++$ state-4
+ $: %4
=configuration:srv
=serving
==
%+ verb |
%- agent:dbug
::
-=| state-3
+=| state-4
=* state -
^- agent:gall
|_ =bowl:gall
==
:~ (connect /)
(connect /'~landscape')
+ [%pass /serve-who %arvo %e %serve [~ /who] %home /gen/who/hoon ~]
==
::
++ connect
^- (quip card _this)
|^
=+ !<(old-state=versioned-state old-vase)
+ =| cards=(list card)
=? old-state ?=(%0 -.old-state)
%= old-state
- %1
^- [^content ? ?]
[content public %.y]
==
- ?> ?=(%3 -.old-state)
- [~ this(state old-state)]
+ =? cards ?=(%3 -.old-state)
+ :_ cards
+ [%pass /serve-who %arvo %e %serve [~ /who] %home /gen/who/hoon ~]
+ =? old-state ?=(%3 -.old-state)
+ old-state(- %4)
+ ?> ?=(%4 -.old-state)
+ [cards this(state old-state)]
::
+$ serving-0 (map url-base=path [=clay=path public=?])
+$ serving-1 (map url-base=path [=content public=?])
+ +$ serving-3 (map url-base=path [=content public=? single-page=?])
+$ versioned-state
$% state-0
[%1 state-1]
[%2 state-1]
state-3
+ state-4
==
::
+$ state-0
$: =configuration:srv
serving=serving-1
==
+ +$ state-3
+ $: %3
+ =configuration:srv
+ serving=serving-3
+ ==
--
::
++ on-poke
