urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-02 08:55:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use pair rather than bare cons in crub result

Browse Source
This commit is contained in:
Raymond Pasco 2016-08-05 10:26:30 -07:00
parent ba38f7700d
commit 83a8f71f5f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/zuse.hoon
View File

@ -662,7 +662,7 @@
++ en
~/ %en
|= txt/@
^- {@uxH @ux}
^- (pair @uxH @ux)
=+ [k1=(rsh 7 1 key) k2=(end 7 1 key)]
=+ iv=(s2va k1 (weld vec (limo ~[txt])))
:-
@ -686,7 +686,7 @@
++ en
~/ %en
|= txt/@
^- {@uxH @ux}
^- (pair @uxH @ux)
=+ [k1=(rsh 5 3 key) k2=(end 5 3 key)]
=+ iv=(s2vb k1 (weld vec (limo ~[txt])))
:-
@ -710,7 +710,7 @@
++ en
~/ %en
|= txt/@
^- {@uxH @ux}
^- (pair @uxH @ux)
=+ [k1=(rsh 8 1 key) k2=(end 8 1 key)]
=+ iv=(s2vc k1 (weld vec (limo ~[txt])))
:-
@ -950,7 +950,7 @@
(jam [nonc (~(en siva:aes shar ~[nonc]) msg)])
++ tear
|= {bpk/pass txt/@}
^- (unit {@ux @ux})
^- (unit (pair @ux @ux))
?~ sek ~| %pubkey-only !!
?> =('b' (end 3 1 bpk))
=+ pk=(rsh 8 1 (rsh 3 1 bpk))