Fix hashes in ++azel

2024-12-15 18:12:47 +03:00 · 2014-08-05 10:10:15 -04:00 · 2014-08-05 10:10:15 -04:00 · 125b0a9603
commit 125b0a9603
parent 4122a73b65
1 changed files with 4 additions and 2 deletions
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@ -1260,11 +1260,13 @@
  ++  azel                                              ::    azel:ze
    |=  hat=(map path lobe)                             ::  checkout commit
    ^-  ankh
-    =<  ank  =<  dosh  %-  zu
+    %-  cosh
    %+  roll  (~(tap by hat) ~)
    |=  [[pat=path bar=lobe] ank=ankh]
    ^-  ankh
-    ?~  pat  [_cash [~ [_cash (zaul bar)]] `(map ,@ta ankh)`~]
+    %-  cosh
+    =+  zar=(zaul bar)
+    ?~  pat  [_cash [~ [(sham zar) zar]] `(map ,@ta ankh)`~]
    =+  nak=(~(get by r.ank) i.pat)
    %=  ank
      r  %+  ~(put by r.ank)  i.pat