1 files changed, 13 insertions, 0 deletions
diff --git a/demo/more/dlist.urs b/demo/more/dlist.urs
new file mode 100644
index 00000000..872dabcd
--- /dev/null
+++ b/demo/more/dlist.urs
@@ -0,0 +1,13 @@
+con dlist :: Type -> Type
+type position
+
+val create : t ::: Type -> transaction (dlist t)
+val clear : t ::: Type -> dlist t -> transaction unit
+val append : t ::: Type -> dlist t -> t -> transaction position
+val delete : position -> transaction unit
+val elements : t ::: Type -> dlist t -> signal (list t)
+
+val render : ctx ::: {Unit} -> [ctx ~ body] => t ::: Type
+             -> (t -> position -> xml (ctx ++ body) [] [])
+             -> dlist t
+             -> xml (ctx ++ body) [] []