fix #4: only look at 2 top levels of domain when chosing driver

This commit is contained in:
Anton Dyudin 2016-03-04 14:13:06 -08:00
parent f9d9191cf1
commit d3a9c1b8a0
5 changed files with 2 additions and 3 deletions

View File

@ -739,9 +739,9 @@
=+ usr=(slav %ta p.tee)
=+ ((hard {pul/purl ^}) q.q.cay)
?. ?=($& -.r.p.pul)
~& [%auth-lost usr p.r.p.pul]
~& [%auth-lost usr (head:earn p.pul)]
(eyre-them tee q.cay)
(get-req:(dom-vi usr p.r.p.pul) q.tee q.cay)
(get-req:(dom-vi usr (scag 2 p.r.p.pul)) q.tee q.cay)
::
:: {$hi ^}
:: ?: ?=($| -.q.sih)

View File

@ -54,5 +54,4 @@
(in-code:auth a)
++ bak |=(a/httr ((bak-save-tokens:auth-re save-access) a))
++ upd *user-state
::
--