mar: all marks build; added +grad and +noun:grow to many

2024-11-28 13:54:20 +03:00 · 2020-05-04 23:21:05 -04:00 · 2020-05-04 23:21:05 -04:00 · 8abdd3d066
commit 8abdd3d066
parent ccaa1e41ef
67 changed files with 226 additions and 11 deletions
--- a/pkg/arvo/mar/acme/order.hoon
+++ b/pkg/arvo/mar/acme/order.hoon
@ -2,6 +2,11 @@
 ::::  /mar/acme/order/hoon
  ::
 |_  a=(set (list @t))
++  grad  %noun
++  grow
+  |%
+  ++  noun  a
+  --
 ++  grab
  |%
  ++  noun  (set (list @t))
--- a/pkg/arvo/mar/azimuth/update.hoon
+++ b/pkg/arvo/mar/azimuth/update.hoon
@ -1,6 +1,11 @@
 ::
 |_  upd=update:azimuth
 ::
++  grad  %noun
++  grow
+  |%
+  ++  noun  upd
+  --
 ++  grab                                                ::  convert from
  |%
  ++  noun  update:azimuth                              ::  from %noun
--- a/pkg/arvo/mar/chat/action.hoon
+++ b/pkg/arvo/mar/chat/action.hoon
@ -1,6 +1,11 @@
 /+  *chat-json
 =,  dejs:format
 |_  act=chat-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  chat-action
--- a/pkg/arvo/mar/chat/config.hoon
+++ b/pkg/arvo/mar/chat/config.hoon
@ -1,8 +1,10 @@
 /+  *chat-json
 |_  cfg=config
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  cfg
  ++  json  (conf cfg)
  --
 ::
--- a/pkg/arvo/mar/chat/configs.hoon
+++ b/pkg/arvo/mar/chat/configs.hoon
@ -1,8 +1,10 @@
 /+  *chat-json
 |_  cfg=(map path config)
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  cfg
  ++  json  (configs-to-json cfg)
  --
 ::
--- a/pkg/arvo/mar/chat/hook-action.hoon
+++ b/pkg/arvo/mar/chat/hook-action.hoon
@ -1,5 +1,10 @@
 /+  *chat-json
 |_  act=chat-hook-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  chat-hook-action
--- a/pkg/arvo/mar/chat/hook-update.hoon
+++ b/pkg/arvo/mar/chat/hook-update.hoon
@ -1,7 +1,9 @@
 /+  *chat-json
 |_  upd=chat-hook-update
++  grad  %noun
 ++  grow
  |%
+  ++  noun  upd
  ++  json  (hook-update-to-json upd)
  --
 ::
--- a/pkg/arvo/mar/chat/initial.hoon
+++ b/pkg/arvo/mar/chat/initial.hoon
@ -1,8 +1,10 @@
 /+  *chat-json
 |_  box=inbox
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  box
  ++  json  (inbox-to-json box)
  --
 ::
--- a/pkg/arvo/mar/chat/update.hoon
+++ b/pkg/arvo/mar/chat/update.hoon
@ -1,7 +1,9 @@
 /+  *chat-json
 |_  upd=chat-update
++  grad  %noun
 ++  grow
  |%
+  ++  noun  upd
  ++  json  (update-to-json upd)
  --
 ::
--- a/pkg/arvo/mar/chat/view-action.hoon
+++ b/pkg/arvo/mar/chat/view-action.hoon
@ -1,6 +1,11 @@
 /+  *chat-json
 =,  dejs:format
 |_  act=chat-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  chat-view-action
--- a/pkg/arvo/mar/contact/action.hoon
+++ b/pkg/arvo/mar/contact/action.hoon
@ -1,5 +1,10 @@
 /+  *contact-json
 |_  act=contact-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  contact-action
--- a/pkg/arvo/mar/contact/initial.hoon
+++ b/pkg/arvo/mar/contact/initial.hoon
@ -1,8 +1,10 @@
 /+  *contact-json
 |_  rolo=rolodex
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  +<.grow
  ++  json  (rolodex-to-json rolo)
  --
 ::
--- a/pkg/arvo/mar/contact/update.hoon
+++ b/pkg/arvo/mar/contact/update.hoon
@ -1,7 +1,9 @@
 /+  *contact-json
 |_  upd=contact-update
++  grad  %noun
 ++  grow
  |%
+  ++  noun  upd
  ++  json  (update-to-json upd)
  --
 ::
--- a/pkg/arvo/mar/dill/belt.hoon
+++ b/pkg/arvo/mar/dill/belt.hoon
@ -9,6 +9,11 @@
 =,  sole
 |_  dill-belt:dill
 ::
++  grad  %noun
++  grow
+  |%
+  ++  noun  +<.grow
+  --
 ++  grab                                                ::  convert from
  |%
  ++  json
--- a/pkg/arvo/mar/dill/blit.hoon
+++ b/pkg/arvo/mar/dill/blit.hoon
@ -6,6 +6,7 @@
 =,  sole
 =,  enjs:format
 |_  dib/dill-blit:dill
++  grad  %noun
 ::
 ++  grab                                                   ::  convert from
  |%
@ -13,6 +14,7 @@
  --
 ++  grow
  |%
+  ++  noun  dib
  ++  json
    ^-  ^json
    ?+  -.dib  ~|(unsupported-blit+-.dib !!)
--- a/pkg/arvo/mar/dns/address.hoon
+++ b/pkg/arvo/mar/dns/address.hoon
@ -1,5 +1,10 @@
 /-  *dns
 |_  address
++  grad  %noun
++  grow
+  |%
+  ++  noun  +<.grow
+  --
 ++  grab
  |%
  ++  noun  address
--- a/pkg/arvo/mar/dns/binding.hoon
+++ b/pkg/arvo/mar/dns/binding.hoon
@ -1,5 +1,10 @@
 /-  *dns
 |_  binding
++  grad  %noun
++  grow
+  |%
+  ++  noun  +<.grow
+  --
 ++  grab
  |%
  ++  noun  binding
--- a/pkg/arvo/mar/dns/complete.hoon
+++ b/pkg/arvo/mar/dns/complete.hoon
@ -1,5 +1,10 @@
 /-  *dns
 |_  [ship binding]
++  grad  %noun
++  grow
+  |%
+  ++  noun  +<.grow
+  --
 ++  grab
  |%
  +$  noun  [ship binding]
--- a/pkg/arvo/mar/drum-put.hoon
+++ b/pkg/arvo/mar/drum-put.hoon
@ -4,6 +4,11 @@
 /?    310
 |_  {path @}
 ::
++  grad  %noun
++  grow
+  |%
+  ++  noun  +<.grow
+  --
 ++  grab                                                ::  convert from
  |%
  ++  noun  {path @}                                    ::  clam from %noun
--- a/pkg/arvo/mar/elem.hoon
+++ b/pkg/arvo/mar/elem.hoon
@ -6,13 +6,13 @@
 =,  html
 |_  own/manx
 ::
++  grad  %mime
 ++  grow                                                ::  convert to
  |%
  ++  hymn  ;html:(head body:"+{own}")                  ::  convert to %hymn
  ++  html  (crip (en-xml hymn))                        ::  convert to %html
  ++  mime  [/text/html (as-octs html)]                 ::  convert to %mime
  --
-++  garb  /snip                                         ::  grabbed by
 ++  grab  |%                                            ::  convert from
          ++  noun  manx                                ::  clam from %noun
 --        --
--- a/pkg/arvo/mar/eth-watcher-poke.hoon
+++ b/pkg/arvo/mar/eth-watcher-poke.hoon
@ -1,5 +1,10 @@
 /-  *eth-watcher
 |_  poke
++  grad  %noun
++  grow
+  |%
+  ++  noun  +<.grow
+  --
 ++  grab
  |%
  ++  noun  poke
--- a/pkg/arvo/mar/front.hoon
+++ b/pkg/arvo/mar/front.hoon
@ -7,8 +7,10 @@
  ::
 |_  all/(map knot cord)
 ::
++  grad  %noun
 ++  grow                                                ::  convert to
  |%
+  ++  noun  all
  ++  json
    :-  %o
    %-  ~(run by all)
--- a/pkg/arvo/mar/group/action.hoon
+++ b/pkg/arvo/mar/group/action.hoon
@ -1,6 +1,11 @@
 /+  *group-json
 =,  dejs:format
 |_  act=group-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  group-action
--- a/pkg/arvo/mar/group/hook-action.hoon
+++ b/pkg/arvo/mar/group/hook-action.hoon
@ -1,6 +1,11 @@
 /-  *group-hook
 =,  dejs:format
 |_  act=group-hook-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  group-hook-action
--- a/pkg/arvo/mar/group/initial.hoon
+++ b/pkg/arvo/mar/group/initial.hoon
@ -1,8 +1,10 @@
 /+  *group-json
 |_  grp=groups
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  grp
  ++  json  (groups-to-json grp)
  --
 ::
--- a/pkg/arvo/mar/group/update.hoon
+++ b/pkg/arvo/mar/group/update.hoon
@ -1,11 +1,13 @@
 /+  *group-json
 |_  upd=group-update
++  grad  %noun
 ++  grab
  |%
  ++  noun  group-update
  --
 ++  grow
  |%
+  ++  noun  upd
  ++  json
    =,  enjs:format
    ^-  ^json
--- a/pkg/arvo/mar/helm-hi.hoon
+++ b/pkg/arvo/mar/helm-hi.hoon
@ -6,6 +6,7 @@
 =,  format
 |_  txt/cord
 ::
++  grad  %mime
 ++  grab                                                ::  convert from
  |%
  ++  noun  @t                                          ::  clam from %noun
--- a/pkg/arvo/mar/htm.hoon
+++ b/pkg/arvo/mar/htm.hoon
@ -4,6 +4,7 @@
 /?    310
 |_  own/manx
 ::
++  grad  %noun
 ++  grow                                                ::  convert to
  |%
  ++  hymn  own
--- a/pkg/arvo/mar/httr.hoon
+++ b/pkg/arvo/mar/httr.hoon
@ -7,10 +7,12 @@
 =,  format
 =,  html
 |_  hit/httr
++  grad  %noun
 ++  grow  |%  ++  wall  (turn wain trip)
              ++  wain  (to-wain cord)
              ++  json  (need (de-json cord))
              ++  cord  q:octs
+              ++  noun  hit
              ++  octs
                ~|  hit
                ?>  =(2 (div p.hit 100))
--- a/pkg/arvo/mar/hymn.hoon
+++ b/pkg/arvo/mar/hymn.hoon
@ -6,6 +6,7 @@
 =,  html
 |_  own/manx
 ::
++  grad  %mime
 ++  grow                                                ::  convert to
  |%
  ++  html  (crip (en-xml own))                         ::  convert to %html
--- a/pkg/arvo/mar/invite/action.hoon
+++ b/pkg/arvo/mar/invite/action.hoon
@ -1,6 +1,11 @@
 /+  *invite-json
 =,  dejs:format
 |_  act=invite-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  invite-action
--- a/pkg/arvo/mar/invite/initial.hoon
+++ b/pkg/arvo/mar/invite/initial.hoon
@ -1,8 +1,10 @@
 /+  *invite-json
 |_  inv=invites
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  inv
  ++  json  (invites-to-json inv)
  --
 ::
--- a/pkg/arvo/mar/invite/update.hoon
+++ b/pkg/arvo/mar/invite/update.hoon
@ -1,7 +1,9 @@
 /+  *invite-json
 |_  upd=invite-update
++  grad  %noun
 ++  grow
  |%
+  ++  noun  upd
  ++  json  (update-to-json upd)
  --
 ::
--- a/pkg/arvo/mar/json/rpc/response.hoon
+++ b/pkg/arvo/mar/json/rpc/response.hoon
@ -3,6 +3,11 @@
 ::
 |_  res=response
 ::
++  grad  %noun
++  grow
+  |%
+  ++  noun  res
+  --
 ++  grab                                                ::  convert from
  |%
  ++  noun  response                                    ::  from noun
--- a/pkg/arvo/mar/language-server/rpc/notification.hoon
+++ b/pkg/arvo/mar/language-server/rpc/notification.hoon
@ -1,6 +1,7 @@
 /-  *language-server
 /+  lsp-json=language-server-json
 |_  not=all:notification
++  grad  %noun
 ++  grab
  |%
  ++  noun  not
@ -10,6 +11,7 @@
  --
 ++  grow
  |%
+  ++  noun  not
  ++  json
    (notification:enjs:lsp-json not)
  --
--- a/pkg/arvo/mar/language-server/rpc/request.hoon
+++ b/pkg/arvo/mar/language-server/rpc/request.hoon
@ -1,6 +1,11 @@
 /-  *language-server
 /+  lsp-json=language-server-json
 |_  req=all:request
++  grad  %noun
++  grow
+  |%
+  ++  noun  req
+  --
 ++  grab
  |%
  ++  noun  req
--- a/pkg/arvo/mar/language-server/rpc/response.hoon
+++ b/pkg/arvo/mar/language-server/rpc/response.hoon
@ -2,8 +2,10 @@
 /+  lsp=language-server-json
 |_  res=all:response
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  res
  ++  json  (response:enjs:lsp res)
  --
 ::
--- a/pkg/arvo/mar/launch/action.hoon
+++ b/pkg/arvo/mar/launch/action.hoon
@ -2,6 +2,11 @@
 ::
 |_  act=action:launch
 ::
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  action:launch
--- a/pkg/arvo/mar/lens/command.hoon
+++ b/pkg/arvo/mar/lens/command.hoon
@ -1,5 +1,10 @@
 /-  lens
 |_  com/command:lens
++  grad  %noun
++  grow
+  |%
+  ++  noun  com
+  --
 ++  grab
  |%
  ++  noun  command:lens
--- a/pkg/arvo/mar/link/action.hoon
+++ b/pkg/arvo/mar/link/action.hoon
@ -3,6 +3,7 @@
 ::TODO  this should include json conversion once mark performance improves
 /+  *link
 |_  =action
++  grad  %noun
 ++  grow
  |%
  ++  noun  action
--- a/pkg/arvo/mar/link/initial.hoon
+++ b/pkg/arvo/mar/link/initial.hoon
@ -2,6 +2,7 @@
 ::
 /-  *link
 |_  =initial
++  grad  %noun
 ++  grow
  |%
  ++  noun  initial
--- a/pkg/arvo/mar/link/listen-poke.hoon
+++ b/pkg/arvo/mar/link/listen-poke.hoon
@ -1,6 +1,7 @@
 ::  link-listen-poke: prod another listener into paying attention
 ::
 |_  =path
++  grad  %noun
 ++  grow
  |%
  ++  noun  path
--- a/pkg/arvo/mar/link/update.hoon
+++ b/pkg/arvo/mar/link/update.hoon
@ -2,6 +2,7 @@
 ::
 /-  *link
 |_  =update
++  grad  %noun
 ++  grow
  |%
  ++  noun  update
--- a/pkg/arvo/mar/link/view-action.hoon
+++ b/pkg/arvo/mar/link/view-action.hoon
@ -1,6 +1,11 @@
 /-  *link-view
 =,  dejs:format
 |_  act=view-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  view-action
@ -34,9 +39,4 @@
      (cu sy (ar (su ;~(pfix sig fed:ag))))
    --
  --
-::
-++  grow
-  |%
-  ++  noun  act
-  --
 --
--- a/pkg/arvo/mar/metadata/action.hoon
+++ b/pkg/arvo/mar/metadata/action.hoon
@ -1,6 +1,11 @@
 /+  *metadata-json
 =,  dejs:format
 |_  act=metadata-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  metadata-action
--- a/pkg/arvo/mar/metadata/update.hoon
+++ b/pkg/arvo/mar/metadata/update.hoon
@ -1,7 +1,9 @@
 /+  *metadata-json
 |_  upd=metadata-update
++  grad  %noun
 ++  grow
  |%
+  ++  noun  upd
  ++  json  (update-to-json upd)
  --
 ::
--- a/pkg/arvo/mar/noun.hoon
+++ b/pkg/arvo/mar/noun.hoon
@ -8,4 +8,11 @@
 ++  grab  |%
          ++  noun  *
          --
++  grad
+  |%
+  ++  form  %noun
+  ++  diff  |=(* +<)
+  ++  pact  |=(* +<)
+  ++  join  |=([* *] *(unit *))
+  --
 --
--- a/pkg/arvo/mar/path.hoon
+++ b/pkg/arvo/mar/path.hoon
@ -1,4 +1,9 @@
 |_  pax/path
++  grad  %noun
++  grow
+  |%
+  ++  noun  pax
+  --
 ++  grab
  |%
  ++  noun  path
--- a/pkg/arvo/mar/permission/action.hoon
+++ b/pkg/arvo/mar/permission/action.hoon
@ -1,6 +1,11 @@
 /+  *permission-json
 =,  dejs:format
 |_  act=permission-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  permission-action
--- a/pkg/arvo/mar/permission/group-hook-action.hoon
+++ b/pkg/arvo/mar/permission/group-hook-action.hoon
@ -1,6 +1,11 @@
 /-  *permission-group-hook
 /+  *permission-json
 |_  act=permission-group-hook-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  permission-group-hook-action
--- a/pkg/arvo/mar/permission/hook-action.hoon
+++ b/pkg/arvo/mar/permission/hook-action.hoon
@ -1,5 +1,10 @@
 /-  *permission-hook
 |_  act=permission-hook-action
++  grad  %noun
++  grow
+  |%
+  ++  noun  act
+  --
 ++  grab
  |%
  ++  noun  permission-hook-action
--- a/pkg/arvo/mar/permission/initial.hoon
+++ b/pkg/arvo/mar/permission/initial.hoon
@ -1,8 +1,10 @@
 /+  *permission-json
 |_  pem=permission-map
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  pem
  ++  json  (permission-to-json pem)
  --
 ::
--- a/pkg/arvo/mar/permission/update.hoon
+++ b/pkg/arvo/mar/permission/update.hoon
@ -1,8 +1,10 @@
 /+  *permission-json
 |_  upd=permission-update
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  upd
  ++  json
    =,  enjs:format
    ^-  ^json
--- a/pkg/arvo/mar/publish/action.hoon
+++ b/pkg/arvo/mar/publish/action.hoon
@ -6,8 +6,10 @@
 ::
 |_  act=action
 ::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  act
  ++  tank  >act<
  --
 ::
--- a/pkg/arvo/mar/publish/notebook-delta.hoon
+++ b/pkg/arvo/mar/publish/notebook-delta.hoon
@ -6,6 +6,11 @@
 ::
 |_  del=notebook-delta
 ::
++  grad  %noun
++  grow
+  |%
+  ++  noun  del
+  --
 ++  grab
  |%
  ++  noun  notebook-delta
--- a/pkg/arvo/mar/publish/primary-delta.hoon
+++ b/pkg/arvo/mar/publish/primary-delta.hoon
@ -6,12 +6,14 @@
 ::
 |_  del=primary-delta
 ::
++  grad  %noun
 ++  grab
  |%
  ++  noun  primary-delta
  --
 ++  grow
  |%
+  ++  noun  del
  ++  json
    %+  frond:enjs:format  -.del
    ?-  -.del
--- a/pkg/arvo/mar/purl.hoon
+++ b/pkg/arvo/mar/purl.hoon
@ -4,9 +4,13 @@
 /?    310
 =,  eyre
 |_  url/purl
++  grad  %noun
 ::
-++  grow  |%    ++  hiss  [url %get ~ ~]
-          --
++  grow
+  |%
+  ++  noun  url
+  ++  hiss  [url %get ~ ~]
+  --
 ++  grab                                                ::  convert from
  |%
  ++  noun  purl                                        ::  clam from %noun
--- a/pkg/arvo/mar/snip.hoon
+++ b/pkg/arvo/mar/snip.hoon
@ -43,6 +43,7 @@
 ::
 =,  mimes:html
 |_  {hed/marl tal/marl}
++  grad  %mime
 ::
 ++  grow                                                ::  convert to
  |%
--- a/pkg/arvo/mar/sole/action.hoon
+++ b/pkg/arvo/mar/sole/action.hoon
@ -9,6 +9,11 @@
 =,  sole
 |_  sole-action
 ::
++  grad  %noun
++  grow
+  |%
+  ++  noun  +<.grad
+  --
 ++  grab                                                ::  convert from
  |%
  ++  json
--- a/pkg/arvo/mar/sole/effect.hoon
+++ b/pkg/arvo/mar/sole/effect.hoon
@ -43,6 +43,7 @@
 ::
 |_  sef/sole-effect
 ::
++  grad  %noun
 ++  grab                                                ::  convert from
  |%
  ++  noun  sole-effect                                 ::  clam from %noun
@ -50,6 +51,7 @@
 ++  grow
  =,  enjs
  |%
+  ++  noun  sef
  ++  json
    ^-  ^json
    ?+    -.sef
--- a/pkg/arvo/mar/tang.hoon
+++ b/pkg/arvo/mar/tang.hoon
@ -5,9 +5,10 @@
 ::
 =,  format
 |_  tan/(list tank)
-::
++  grad  %noun
 ++  grow
  |%
+  ++  noun  tan
  ++  elem
    =-  ;pre:code:"{(of-wall -)}"
    ^-  wall  %-  zing  ^-  (list wall)
--- a/pkg/arvo/mar/txt-diff.hoon
+++ b/pkg/arvo/mar/txt-diff.hoon
@ -4,6 +4,11 @@
 /?    310
 |_  txt-diff/(urge:clay cord)
 ::
++  grad  %noun
++  grow
+  |%
+  ++  noun  txt-diff
+  --
 ++  grab                                                ::  convert from
  |%
  ++  noun  (urge:clay cord)                           ::  make from %noun
--- a/pkg/arvo/mar/urb.hoon
+++ b/pkg/arvo/mar/urb.hoon
@ -6,6 +6,7 @@
 =,  html
 |_  own/manx
 ::
++  grad  %mime
 ++  grow                                                ::  convert to
  |%
  ++  hymn  ;html:(head body:"+{own}")                  ::  convert to %hymn
--- a/pkg/arvo/mar/urbit.hoon
+++ b/pkg/arvo/mar/urbit.hoon
@ -9,4 +9,9 @@
  |%
  ++  noun  @p
  --
++  grow
+  |%
+  ++  noun  her
+  --
++  grad  %noun
 --
--- a/pkg/arvo/mar/x-htm.hoon
+++ b/pkg/arvo/mar/x-htm.hoon
@ -1,4 +1,5 @@
 |_  a=manx
++  grad  %noun
 ++  grab
  |%
  ++  noun  manx
--- a/pkg/arvo/mar/x-htm/elem.hoon
+++ b/pkg/arvo/mar/x-htm/elem.hoon
@ -1,3 +1,11 @@
 |_  a=manx
-++  grab  |%  ++  noun  manx
--        --
++  grad  %noun
++  grab
+  |%
+  ++  noun  manx
+  --
++  grow
+  |%
+  ++  noun  a
+  --
+--
--- a/pkg/arvo/mar/xml.hoon
+++ b/pkg/arvo/mar/xml.hoon
@ -9,6 +9,7 @@
 =,  html
 |_  xml/@t
 ::
++  grad  %mime
 ++  grow                                                ::  convert to
  |%                                                    ::
  ++  mime  [/application/xml (as-octs xml)]            ::  to %mime