Mercurial > urweb
comparison demo/more/dlist.urs @ 951:103ac1792c41
Make filter argument to render, not create
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 17 Sep 2009 14:27:00 -0400 |
parents | da3ec6014d2f |
children | 07569af40069 |
comparison
equal
deleted
inserted
replaced
950:5be3d19b59f3 | 951:103ac1792c41 |
---|---|
1 con dlist :: Type -> Type | 1 con dlist :: Type -> Type |
2 type position | 2 type position |
3 | 3 |
4 val create : t ::: Type -> {Filter : t -> signal bool} -> transaction (dlist t) | 4 val create : t ::: Type -> transaction (dlist t) |
5 val clear : t ::: Type -> dlist t -> transaction unit | 5 val clear : t ::: Type -> dlist t -> transaction unit |
6 val append : t ::: Type -> dlist t -> t -> transaction position | 6 val append : t ::: Type -> dlist t -> t -> transaction position |
7 val delete : position -> transaction unit | 7 val delete : position -> transaction unit |
8 val elements : t ::: Type -> dlist t -> signal (list t) | 8 val elements : t ::: Type -> dlist t -> signal (list t) |
9 val foldl : t ::: Type -> acc ::: Type -> (t -> acc -> signal acc) -> acc -> dlist t -> signal acc | 9 val foldl : t ::: Type -> acc ::: Type -> (t -> acc -> signal acc) -> acc -> dlist t -> signal acc |
10 | 10 |
11 val render : ctx ::: {Unit} -> [ctx ~ body] => t ::: Type | 11 val render : ctx ::: {Unit} -> [ctx ~ body] => t ::: Type |
12 -> (t -> position -> xml (ctx ++ body) [] []) | 12 -> (t -> position -> xml (ctx ++ body) [] []) |
13 -> {Filter : t -> signal bool} | |
13 -> dlist t | 14 -> dlist t |
14 -> xml (ctx ++ body) [] [] | 15 -> xml (ctx ++ body) [] [] |