summaryrefslogtreecommitdiff
path: root/demo/more/dnat.urs
diff options
context:
space:
mode:
Diffstat (limited to 'demo/more/dnat.urs')
-rw-r--r--demo/more/dnat.urs8
1 files changed, 8 insertions, 0 deletions
diff --git a/demo/more/dnat.urs b/demo/more/dnat.urs
new file mode 100644
index 00000000..2dd7e938
--- /dev/null
+++ b/demo/more/dnat.urs
@@ -0,0 +1,8 @@
+type t
+
+val zero : transaction t
+val inc : t -> transaction unit
+val dec : t -> transaction unit
+
+val render : ctx ::: {Unit} -> inp ::: {Type} -> [[Body] ~ ctx] =>
+ xml ([Body] ++ ctx) inp [] -> t -> xml ([Body] ++ ctx) inp []