binds oauth route on :dns-bind init

This commit is contained in:
Joe Bryan 2019-06-25 22:36:06 -07:00
parent 1fb6702887
commit f23afeb7d9

View File

@ -681,6 +681,9 @@
++ handle-init
=/ m tapp-async
^- form:m
;< success=? bind:m (bind-route:stdio [~ /dns/oauth] dap.bowl)
~| %dns-unable-to-bind-route
?> success
;< ~ bind:m (poke-app:stdio [[our %hood] [%drum-unlink our dap]]:bowl)
(pure:m state)
::