diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-09-17 14:27:00 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-17 14:27:00 -0400 |
| commit | db724bd8cdb5cc0627171ab25db2b05a82554ad3 (patch) | |
| tree | af4f0a5cad40b9adf26dafdbb4d1321fa4976e57 /demo/more/dlist.urs | |
| parent | d824cd965e42d7ceb195aa26e091c4fa4652ef00 (diff) | |
Make filter argument to render, not create
Diffstat (limited to 'demo/more/dlist.urs')
| -rw-r--r-- | demo/more/dlist.urs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/demo/more/dlist.urs b/demo/more/dlist.urs index a55a1774..a775113e 100644 --- a/demo/more/dlist.urs +++ b/demo/more/dlist.urs @@ -1,7 +1,7 @@ con dlist :: Type -> Type type position -val create : t ::: Type -> {Filter : t -> signal bool} -> transaction (dlist t) +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 @@ -10,5 +10,6 @@ val foldl : t ::: Type -> acc ::: Type -> (t -> acc -> signal acc) -> acc -> dli val render : ctx ::: {Unit} -> [ctx ~ body] => t ::: Type -> (t -> position -> xml (ctx ++ body) [] []) + -> {Filter : t -> signal bool} -> dlist t -> xml (ctx ++ body) [] [] |