# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1253229310 14400
# Node ID 3aaac251a5af6f31752580a74d44f515c26153e4
# Parent  2831be2daf2e4a8c3b424fd5c6df739811defd4b
Pseudo-sort working with filters

diff -r 2831be2daf2e -r 3aaac251a5af demo/more/dlist.ur
--- 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 []
diff -r 2831be2daf2e -r 3aaac251a5af demo/more/grid.ur
--- a/demo/more/grid.ur	Thu Sep 17 19:01:04 2009 -0400
+++ b/demo/more/grid.ur	Thu Sep 17 19:15:10 2009 -0400
@@ -218,7 +218,7 @@
                                               return (previous && this))
                                           (fn _ => return True)
                                           [_] M.folder M.cols grid.Cols grid.Filters row,
-                       Sort = return (Some (fn _ _ => return False))}
+                       Sort = return (Some (fn _ _ => return True))}
                       grid.Rows}
 
             <dyn signal={rows <- Dlist.foldl (fn row => Monad.mapR2 [aggregateMeta M.row] [id] [id]