mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-21 23:47:35 +03:00
split role-tape out of ++wush
This commit is contained in:
parent
fe31213d13
commit
6ebe0ca212
@ -237,11 +237,11 @@
|
||||
=+ fel=(most cab (sear wick urt:ab))
|
||||
|=(a/knot `(unit {p/term q/path})`(rush a fel))
|
||||
::
|
||||
++ rolt |=(a/wall `tape`?~(a ~ :(weld i.a "\0a" $(a t.a))))
|
||||
++ wush
|
||||
|= {wid/@u tan/tang}
|
||||
^- tape
|
||||
=+ rolt=|=(a/wall `tape`?~(a ~ :(weld i.a "\0a" $(a t.a))))
|
||||
(rolt (zing (turn tan |=(a/tank (wash 0^wid a)))))
|
||||
^- wall
|
||||
(zing (turn tan |=(a/tank (wash 0^wid a))))
|
||||
::
|
||||
::
|
||||
++ add-cookies
|
||||
@ -264,7 +264,7 @@
|
||||
=- (jobe fail+s+typ mess+(jape mez) ~)
|
||||
^- {typ/term mez/tape}
|
||||
?~ err [%fail "Unknown Error"]
|
||||
[p.u.err (wush 160 q.u.err)]
|
||||
[p.u.err (rolt (wush 160 q.u.err))]
|
||||
::
|
||||
++ resp :: mimed response
|
||||
|= {sas/@uG mit/mite rez/@} ^- httr
|
||||
@ -278,7 +278,7 @@
|
||||
;link(rel "stylesheet", href "/lib/base.css");
|
||||
;title: server error
|
||||
==
|
||||
;body:div#c.err:pre:code:"{(wush 80 tan)}"
|
||||
;body:div#c.err:pre:code:"{(rolt (wush 80 tan))}"
|
||||
;script@"/~/on/{<dep>}.js";
|
||||
==
|
||||
::
|
||||
@ -1847,7 +1847,7 @@
|
||||
..lens :: (give-json 200 ~ (joba %okey-dokey %b &))
|
||||
=+ tag=(flop `tang`[>[%eyre-lens-fail p.u.a]< q.u.a])
|
||||
%- (slog tag)
|
||||
(give-json:abet 500 ~ (jape (wush 160 tag)))
|
||||
(give-json:abet 500 ~ (jape (rolt (wush 160 tag))))
|
||||
::
|
||||
++ get-diff
|
||||
|= fec/json ^+ ..lens
|
||||
|
Loading…
Reference in New Issue
Block a user