diff options
Diffstat (limited to 'demo/more/dlist.ur')
-rw-r--r-- | demo/more/dlist.ur | 6 |
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 [] |