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)