unlinks console from :dns-collector on startup

This commit is contained in:
Joe Bryan 2019-06-07 14:38:05 -07:00
parent 1411347543
commit e794fbc115

View File

@ -14,7 +14,9 @@
$% [%dns-address =address:dns]
[%dns-complete =ship =binding:dns]
==
+$ out-poke-data ~
+$ out-poke-data
$% [%drum-unlink =dock]
==
+$ in-peer-data ~
+$ out-peer-data
$% [%dns-binding =binding:dns]
@ -30,10 +32,15 @@
^- tapp-core-all:tapp
|_ [=bowl:gall state=app-state]
::
++ handle-init handle-init:default-tapp
++ handle-diff handle-diff:default-tapp
++ handle-take handle-take:default-tapp
::
++ handle-init
=/ m tapp-async
^- form:m
;< ~ bind:m (poke-app:stdio [[our %hood] [%drum-unlink our dap]]:bowl)
(pure:m state)
::
++ handle-poke
|= =in-poke-data
=/ m tapp-async