From 815c52605cdba3c95d7e4e6fd3f1eddf0939bc6a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 8 Sep 2009 07:48:57 -0400
Subject: Start 'more' demo with dbgrid

---
 demo/more/dlist.urs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 demo/more/dlist.urs

(limited to 'demo/more/dlist.urs')

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) [] []
-- 
cgit v1.2.3