/-  *zodiac
/=  router  /web/router
=|  versioned-state
=*  state  -
^-  agent:gall
|_  =bowl:gall
+*  this  .
++  on-init
  ^-  (quip card:agent:gall agent:gall)
  :_  this
    =/  weblib  router(bowl bowl)
    :~((eyre-binding-card:weblib /zodiac))
::
++  on-save
  ^-  vase
  !>(state)
::
++  on-load
  |~  old-state=vase
  ^-  (quip card:agent:gall agent:gall)
  `this
::
++  on-poke
  |=  [=mark =vase]
  ^-  (quip card:agent:gall agent:gall)
  ?+  mark  `this
    %handle-http-request
      =/  order  !<([id=@ta req=inbound-request:eyre] vase)
      =/  weblib  ~(. router [bowl id.order req.order state])
      :-  route:weblib  this
  ==
::
++  on-watch
  |~  path
  ^-  (quip card:agent:gall agent:gall)
  `this
::
++  on-leave
  |~  path
  ^-  (quip card:agent:gall agent:gall)
  `this
::
++  on-peek
  |~  path
  ^-  (unit (unit cage))
  ~
::
++  on-agent
  |~  [wire sign:agent:gall]
  ^-  (quip card:agent:gall agent:gall)
  `this
::
++  on-arvo
  |~  [wire =sign-arvo]
  ^-  (quip card:agent:gall agent:gall)
  `this
::
++  on-fail
  |~  [term tang]
  ^-  (quip card:agent:gall agent:gall)
  `this
--