urbit/lib/basic-auth.hoon

!:
=+  keys=@t
|=  bal/(bale keys)
?~  key.bal
  ~|(%basic-auth-no-key ~_(leaf+"Run |init-auth-basic {<`path`dom.bal>}" !!))
=+  aut=authorization+(cat 3 'Basic ' key.bal)
~&  aut=`{@tas @t}`aut
|=(a/hiss [%send %_(a q.q (~(add ja q.q.a) -.aut +.aut))])
151ization complete Conflicts: Makefile 2016-02-18 04:39:48 +03:00			`!:`
			`=+ keys=@t`
			`\|= bal/(bale keys)`
include domain in "Run \|init-" auth warnings 2016-03-11 22:49:36 +03:00			`?~ key.bal`
			~\|(%basic-auth-no-key ~_(leaf+"Run \|init-auth-basic {<`path`dom.bal>}" !!))
151ization complete Conflicts: Makefile 2016-02-18 04:39:48 +03:00			`=+ aut=authorization+(cat 3 'Basic ' key.bal)`
			~& aut=`{@tas @t}`aut
			`\|=(a/hiss [%send %_(a q.q (~(add ja q.q.a) -.aut +.aut))])`