Make :curl work again.

2024-12-15 01:52:42 +03:00 · 2014-03-03 13:55:40 -08:00 · 2014-03-03 13:55:40 -08:00 · 231a702852
commit 231a702852
parent a0654094b1
1 changed files with 15 additions and 0 deletions
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@ -1178,6 +1178,21 @@
    ==
  --
 ::
++  feel                                                ::  simple file write
+  |=  [pax=path val=*]  !:
+  ^-  miso
+  =+  dir=((hard arch) .^(%cy pax))
+  ?~  q.dir  [%ins val]
+  :-  %mut
+  ^-  udon
+  [%a %a .^(%cx pax) val]
+::
++  file                                                ::  simple file load
+  |=  pax=path
+  ^-  (unit)
+  =+  dir=((hard arch) .^(%cy pax))
+  ?~(q.dir ~ [~ .^(%cx pax)])
+::
 ++  glam
  |=  zar=@p  ^-  tape
  %+  snag  zar