aboutsummaryrefslogtreecommitdiffhomepage
path: root/demo/more/dlist.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/more/dlist.ur')
-rw-r--r--demo/more/dlist.ur6
1 files changed, 5 insertions, 1 deletions
diff --git a/demo/more/dlist.ur b/demo/more/dlist.ur
index 02286965..3d2cb49e 100644
--- a/demo/more/dlist.ur
+++ b/demo/more/dlist.ur
@@ -162,8 +162,12 @@ fun render [ctx] [ctx ~ body] [t] f (r : {Filter : t -> signal bool,
None => headPos dl
| Some prev => tailPos prev tl tlTop
in
+ b <- r.Filter v;
tl' <- signal tl;
- listOut (Some tl) tl' ((v, pos) :: acc)
+ listOut (Some tl) tl' (if b then
+ (v, pos) :: acc
+ else
+ acc)
end
in
listOut None hd []