urbit/main/app/foobug/core.hoon
2014-06-12 15:10:32 -07:00

40 lines
582 B
Plaintext

!:
=> |%
++ foobug-state
$% [%0 bug=@ud]
==
--
|= *
|_ [hid=hide foo=foobug-state]
++ prep
|= old=(unit foobug-state)
?~ old +>
~& [%prep-hid hid]
+>(foo u.old)
::
++ save
^- foobug-state
foo(bug +(bug.foo))
::
++ peer
|= [ost=bone you=ship pax=path]
~& [%peer-hide hid]
~& [%peer [ost you pax]]
:_ +> :_ ~
:+ ost %give
:- %rust
:- %html
%- crip
%+ xmlt |
:_ ~
^- manx
;html
;head
;title: Hi, everyone!
==
;body
;p: Hello, world (instance {<bug.foo>})
==
==
--