diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-15 09:42:35 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-15 09:42:35 -0500 |
| commit | edea99a45b84ac6ecf30f8de295d82926462e044 (patch) | |
| tree | 887dc1f5dd47e154d5c276803367b904c55fd2ef | |
| parent | e98bdae0deba734c2bd2f8ee04922098386ce5d1 (diff) | |
Small tweaks to update demos for record unification change
| -rw-r--r-- | demo/batchFun.ur | 2 | ||||
| -rw-r--r-- | demo/more/grid.ur | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/demo/batchFun.ur b/demo/batchFun.ur index ca48c7dc..2b54a426 100644 --- a/demo/batchFun.ur +++ b/demo/batchFun.ur @@ -85,7 +85,7 @@ functor Make(M : sig <xml><dyn signal={ls <- signal lss; return <xml><table> <tr> <th>Id</th> - {@mapX [colMeta] [_] + {@mapX [colMeta] [[Body, Tr]] (fn [nm :: Name] [p ::_] [rest ::_] [[nm] ~ rest] m => <xml><th>{[m.Nam]}</th></xml>) M.fl M.cols} diff --git a/demo/more/grid.ur b/demo/more/grid.ur index e0b4a351..9375e811 100644 --- a/demo/more/grid.ur +++ b/demo/more/grid.ur @@ -125,7 +125,7 @@ functor Make(M : sig <table class={tabl}> <tr class={tr}> <th/> <th/> <th><button value="No sort" onclick={set grid.Sort None}/></th> - {@mapX2 [fst3] [colMeta M.row] [_] + {@mapX2 [fst3] [colMeta M.row] [[Body, Tr]] (fn [nm :: Name] [p :: (Type * Type * Type)] [rest :: {(Type * Type * Type)}] [[nm] ~ rest] data (meta : colMeta M.row p) => <xml><th class={th}> |