summaryrefslogtreecommitdiff
path: root/demo/more/grid.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/more/grid.ur')
-rw-r--r--demo/more/grid.ur8
1 files changed, 8 insertions, 0 deletions
diff --git a/demo/more/grid.ur b/demo/more/grid.ur
index e09a1ef0..084ddefc 100644
--- a/demo/more/grid.ur
+++ b/demo/more/grid.ur
@@ -10,6 +10,11 @@ con colMeta = fn (row :: Type) (global_t :: (Type * Type)) =>
{Initialize : transaction global_t.1,
Handlers : global_t.1 -> colMeta' row global_t.2}
+con aggregateMeta = fn (row :: Type) (acc :: Type) =>
+ {Initial : acc,
+ Step : row -> acc -> acc,
+ Display : acc -> xbody}
+
functor Make(M : sig
type row
val list : transaction (list row)
@@ -21,6 +26,9 @@ functor Make(M : sig
val cols : $(map (colMeta row) cols)
val folder : folder cols
+
+ con aggregates :: {Type}
+ val aggregates : $(map (aggregateMeta row) aggregates)
end) = struct
style tabl
style tr