aboutsummaryrefslogtreecommitdiffhomepage
path: root/demo/more/grid.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-09-17 14:57:38 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-09-17 14:57:38 -0400
commitbf1a78ce9a5d60f8f4c40d0087f6caf90c10a796 (patch)
tree804b6adcec86f73fe03fec74e729de1cb22a15cc /demo/more/grid.ur
parentdb87f2d9dd9ef6ea5a9471e13fce81515900e4dc (diff)
Bad sort functions tested
Diffstat (limited to 'demo/more/grid.ur')
-rw-r--r--demo/more/grid.ur2
1 files changed, 1 insertions, 1 deletions
diff --git a/demo/more/grid.ur b/demo/more/grid.ur
index a59e1082..2b451456 100644
--- a/demo/more/grid.ur
+++ b/demo/more/grid.ur
@@ -213,7 +213,7 @@ functor Make(M : sig
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]