Mercurial > urweb
diff lib/ur/basis.urs @ 727:ba4c230b7231
Show XML
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 16 Apr 2009 12:43:55 -0400 |
parents | 6fc633d990e7 |
children | 2197f0e24a9f |
line wrap: on
line diff
--- a/lib/ur/basis.urs Thu Apr 16 12:36:01 2009 -0400 +++ b/lib/ur/basis.urs Thu Apr 16 12:43:55 2009 -0400 @@ -554,3 +554,5 @@ val onError : (xbody -> transaction unit) -> transaction unit (* Client-side only *) + +val show_xml : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> show (xml ctx use bind)