Mercurial > urweb

diff demo/more/grid.ur @ 953:301530da2062

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bad sort functions tested
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Sep 2009 14:57:38 -0400
parents 07569af40069
children 2a50da66ffd8
line wrap: on
line diff
--- a/demo/more/grid.ur	Thu Sep 17 14:42:02 2009 -0400
+++ b/demo/more/grid.ur	Thu Sep 17 14:57:38 2009 -0400
@@ -213,7 +213,7 @@
                                               return (previous && this))
                                           (fn _ => return True)
                                           [_] M.folder M.cols grid.Cols grid.Filters row,
-                       Sort = return None}
+                       Sort = return (Some (fn _ _ => return False))}
                       grid.Rows}
 
             <dyn signal={rows <- Dlist.foldl (fn row => Monad.mapR2 [aggregateMeta M.row] [id] [id]