diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-04-16 13:00:40 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-16 13:00:40 -0400 |
commit | e65c023309173aa291952143537f174888a8de86 (patch) | |
tree | 517b9c66d187dc97c0e7fbe181f43d9fefbef929 /lib/ur | |
parent | d52fbe487bb29a4a60dcca1d36e9dadc64917517 (diff) |
Avoid thread death via message receive
Diffstat (limited to 'lib/ur')
-rw-r--r-- | lib/ur/basis.urs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 173324f0..af1cf972 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -553,6 +553,7 @@ val td : other ::: {Unit} -> [other ~ [Body, Tr]] => val error : t ::: Type -> xbody -> t val onError : (xbody -> transaction unit) -> transaction unit +val onFail : (string -> transaction unit) -> transaction unit (* Client-side only *) val show_xml : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> show (xml ctx use bind) |