shrub/main/bin/hi.hoon

!:
::  /=main=/toy/hi/hoon
::
|=  *
|=  [bud=@p ebb=$|(~ [tex=tape ~])]
^-  bowl
:-  :~  [%sq bud %hi /request ?~(ebb '' (rap 3 tex.ebb))]
    ==
:-  ~
:-  ^-  (list slip)
    :~  [/request [%ow ~]]
        [/prompt [%up %none "waiting for {(scow %p bud)}" ~]]
    ==
|=  [now=@da pax=path nut=note]
?>  =(/request pax)
?>  ?=(%ow -.nut)
:-  ?:  =(%good p.nut)
      ~ 
    :_  ~
    :-  %ha
    :-  %leaf
    "hi: {(scow %p bud)} rejected a message"
~
Cleaning up old code 2013-09-29 00:21:18 +04:00			`!:`
			`:: /=main=/toy/hi/hoon`
			`::`
			`\|= *`
			`\|= [bud=@p ebb=$\|(~ [tex=tape ~])]`
			`^- bowl`
Development "branch" goes back to production. 2013-10-06 11:44:07 +04:00			`:- :~ [%sq bud %hi /request ?~(ebb '' (rap 3 tex.ebb))]`
			`==`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`:- ~`
			`:- ^- (list slip)`
Development "branch" goes back to production. 2013-10-06 11:44:07 +04:00			`:~ [/request [%ow ~]]`
			`[/prompt [%up %none "waiting for {(scow %p bud)}" ~]]`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`==`
			`\|= [now=@da pax=path nut=note]`
Development "branch" goes back to production. 2013-10-06 11:44:07 +04:00			`?> =(/request pax)`
			`?> ?=(%ow -.nut)`
			`:- ?: =(%good p.nut)`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`~`
			`:_ ~`
			`:- %ha`
			`:- %leaf`
Development "branch" goes back to production. 2013-10-06 11:44:07 +04:00			`"hi: {(scow %p bud)} rejected a message"`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`~`