annotate demo/more/dlist.urs @ 937:37dd42935dad
Summary row with aggregates
author |
Adam Chlipala <adamc@hcoop.net> |
date |
Tue, 15 Sep 2009 10:18:56 -0400 |
parents |
5e8b6fa5b48f |
children |
da3ec6014d2f |
rev |
line source |
adamc@915
|
1 con dlist :: Type -> Type
|
adamc@915
|
2 type position
|
adamc@915
|
3
|
adamc@915
|
4 val create : t ::: Type -> transaction (dlist t)
|
adamc@915
|
5 val clear : t ::: Type -> dlist t -> transaction unit
|
adamc@915
|
6 val append : t ::: Type -> dlist t -> t -> transaction position
|
adamc@915
|
7 val delete : position -> transaction unit
|
adamc@915
|
8 val elements : t ::: Type -> dlist t -> signal (list t)
|
adamc@937
|
9 val foldl : t ::: Type -> acc ::: Type -> (t -> acc -> signal acc) -> acc -> dlist t -> signal acc
|
adamc@915
|
10
|
adamc@915
|
11 val render : ctx ::: {Unit} -> [ctx ~ body] => t ::: Type
|
adamc@915
|
12 -> (t -> position -> xml (ctx ++ body) [] [])
|
adamc@915
|
13 -> dlist t
|
adamc@915
|
14 -> xml (ctx ++ body) [] []
|