ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 03:23:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

Correct previous commit.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-10-27 22:29:29 -07:00
parent ae3ccde24d
commit 84f3508f0d
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/hood.hoon
View File

@ -184,7 +184,7 @@
++ poke-write-plan-account (wrap poke-plan-account):from-write
++ poke-write-tree (wrap poke-tree):from-write
++ poke-write-wipe (wrap poke-wipe):from-write
++ poke-will (wrap poke-will):from-helm
++ poke-wyll (wrap poke-wyll):from-helm
++ quit-drum-phat (wrap quit-phat):from-drum
++ reap-drum-phat (wrap reap-phat):from-drum
++ woot-helm (wrap take-woot):from-helm

4
lib/helm.hoon
View File

@ -197,8 +197,8 @@
:- [%flog /deset %vega (weld top `path`/two)]
~
::
++ poke-will :: hear certificate
|= wil/(unit will)
++ poke-wyll :: hear certificate
|= wil/(unit wyll)
?> ?=(^ bur)
?> ?=(^ wil)
=< abet

10
lib/womb.hoon
View File

@ -118,7 +118,7 @@
{$poke wire dock pear} :: app RPC
{$next wire p/ring} :: update private key
{$tick wire p/@pG q/@p} :: save ticket
{$knew wire p/ship q/will} :: learn will (old pki)
{$knew wire p/ship q/wyll} :: learn wyll (old pki)
== ::
++ pear ::
$% {$email mail tape wall} :: send email
@ -137,7 +137,7 @@
++ move (pair bone card) :: user-level move
::
++ transaction :: logged poke
$% {$report her/@p wyl/will}
$% {$report her/@p wyl/wyll}
{$release gal/@ud sta/@ud}
{$release-ships (list ship)}
{$claim aut/passcode her/@p}
@ -679,15 +679,15 @@
%+ foal (welp pax /jam-crub)
[%jam-crub !>((en:crub:crypto pas (jam `part`+:abet)))]
::
++ poke-rekey :: extend will
++ poke-rekey :: extend wyll
|= $~
=< abet
?> |(=(our src) =([~ src] boss)) :: privileged
:: (emit /rekey %next sec:ex:(pit:nu:crub 512 (shaz (mix %next (shaz eny)))))
~& %rekey-stub .
::
++ poke-report :: report will
|= {her/@p wyl/will} ::
++ poke-report :: report wyll
|= {her/@p wyl/wyll} ::
=< abet
=. log-transaction (log-transaction %report +<)
?> =(src src) :: self-authenticated