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) [] []