Move :launch types into /sur

pkg/arvo/app/launch.hoon

@@ -1,4 +1,6 @@
-/+  *server, launch
+/-  launch
+/+  *server
+::
 /=  index
   /^  $-(marl manx)
   /:  /===/app/launch/index  /!noun/
@@ -22,6 +24,21 @@
 ::
 =,  launch
 ::
+|%
++$  state
+  $%  [%0 tiles=(set tile) data=tile-data path-to-tile=(map path @tas)]
+  ==
+::
++$  move  [bone card]
+::
++$  card
+  $%  [%http-response =http-event:http]
+      [%connect wire binding:eyre term]
+      [%peer wire dock path]
+      [%diff %json json]
+  ==
+--
+::
 |_  [bol=bowl:gall sta=state]
 ::
 ++  this  .
@@ -35,7 +52,7 @@
   [~ this(sta u.old)]
 ::
 ++  poke-launch-action
-  |=  act=action:launch
+  |=  act=action
   ^-  (quip move _this)
   =/  beforedata  (~(get by data.sta) name.act)
   =/  newdata

pkg/arvo/lib/launch.hoon

@@ -1,24 +0,0 @@
-::
-|%
-::
-+$  move  [bone card]
-::
-+$  card
-  $%  [%http-response =http-event:http]
-      [%connect wire binding:eyre term]
-      [%peer wire dock path]
-      [%diff %json json]
-  ==
-::
-+$  tile  [name=@tas subscribe=path]
-::
-+$  tile-data  (map @tas [jon=json url=@t])
-::
-+$  action  [name=@tas subscribe=path url=@t]
-::
-+$  state
-  $%  [%0 tiles=(set tile) data=tile-data path-to-tile=(map path @tas)]
-  ==
-::
---
-::

pkg/arvo/mar/launch/action.hoon

@@ -1,6 +1,4 @@
-::
-::
-/+  launch
+/-  launch
 ::
 |_  act=action:launch
 ::

pkg/arvo/sur/launch.hoon

@@ -0,0 +1,7 @@
+|%
++$  tile  [name=@tas subscribe=path]
+::
++$  tile-data  (map @tas [jon=json url=@t])
+::
++$  action  [name=@tas subscribe=path url=@t]
+--