Mercurial > urweb

diff demo/more/dlist.ur @ 958:3aaac251a5af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Pseudo-sort working with filters
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Sep 2009 19:15:10 -0400
parents 2831be2daf2e
children 7e7edfb6fe82
line wrap: on
line diff
--- a/demo/more/dlist.ur	Thu Sep 17 19:01:04 2009 -0400
+++ b/demo/more/dlist.ur	Thu Sep 17 19:15:10 2009 -0400
@@ -162,8 +162,12 @@
                                                                  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 []