Mercurial > urweb

diff demo/more/grid.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 2a50da66ffd8
children 6f34950825b6
line wrap: on
line diff
--- 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]