urbit/base/ape/curl/core.hook

!:
::::
  ::
|_  [[^ ^ ost=@ ^] ~]
++  poke  |*(a=[mark *] :_(+> [ost %hiss / %wain a]~))
::++  poke-purl  |=(a=purl :_(+> [ost %hiss / %wain %purl a]~))
++  poke-noun  |=(a=tape (poke %purl (scan a auri:epur)))
++  sigh-wain  |=([* a=wain] ~&(a `+>))
++  sigh-tang  |=([* a=tang] (mean a))
--
hiss/sigh typed http requests 2015-05-28 01:34:01 +03:00			`!:`
			`::::`
			`::`
minor cleaning 2015-05-30 02:47:38 +03:00			`\|_ [[^ ^ ost=@ ^] ~]`
			`++ poke \|(a=[mark ] :_(+> [ost %hiss / %wain a]~))`
			`::++ poke-purl \|=(a=purl :_(+> [ost %hiss / %wain %purl a]~))`
			`++ poke-noun \|=(a=tape (poke %purl (scan a auri:epur)))`
			++ sigh-wain \|=([* a=wain] ~&(a `+>))
userspace cleaning 2015-05-30 10:53:19 +03:00			`++ sigh-tang \|=([* a=tang] (mean a))`
hiss/sigh typed http requests 2015-05-28 01:34:01 +03:00			`--`