diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-07-06 09:22:08 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-07-06 09:22:08 -0400 |
| commit | ab9282b7359aa50b6c2f094e3cd8571ffa2dc3ac (patch) | |
| tree | c69a0fb175713aedd70a0b191c6849d7dc0942b9 /demo | |
| parent | b7fc000f340f2be6f9c0e8f615aa4ae23ecf9d20 (diff) | |
Update demo/more for simplified implicit arguments
Diffstat (limited to 'demo')
| -rw-r--r-- | demo/more/dbgrid.ur | 2 | ||||
| -rw-r--r-- | demo/more/orm.ur | 2 | ||||
| -rw-r--r-- | demo/more/versioned.ur | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/demo/more/dbgrid.ur b/demo/more/dbgrid.ur index 43ad7725..d29b6a1f 100644 --- a/demo/more/dbgrid.ur +++ b/demo/more/dbgrid.ur @@ -403,7 +403,7 @@ functor Make(M : sig (meta : rawMeta t) (v : t) (exp : rest :: {Type} -> [rest ~ key] => sql_exp [T = key ++ rest] [] [] bool) [rest :: {Type}] [rest ~ [nm = t] ++ key] => - (WHERE T.{nm} = {@sql_inject meta.Inj v} AND {exp [[nm = t] ++ rest] !})) + (WHERE T.{nm} = {@sql_inject meta.Inj v} AND {exp [[nm = t] ++ rest]})) (fn [rest :: {Type}] [rest ~ []] => (WHERE TRUE)) M.keyFolder (M.raw --- map rawMeta M.row) r [_] ! diff --git a/demo/more/orm.ur b/demo/more/orm.ur index 068e3b5c..468281f7 100644 --- a/demo/more/orm.ur +++ b/demo/more/orm.ur @@ -70,7 +70,7 @@ functor Table(M : sig {nm = {Col = {Exp = sql_field [#T] [nm], Inj = meta.Inj}, Parent = fn r => meta.Link r.nm}} - ++ acc [[nm = ts] ++ after] !) + ++ acc [[nm = ts] ++ after]) (fn [after :: {(Type * Type)}] [[] ~ after] => {}) M.folder M.cols [[Id = (id, row)]] ! diff --git a/demo/more/versioned.ur b/demo/more/versioned.ur index 8579559e..0ab15e32 100644 --- a/demo/more/versioned.ur +++ b/demo/more/versioned.ur @@ -47,7 +47,7 @@ functor Make(M : sig (e : after :: {Type} -> [before ~ after] => sql_exp [T = before ++ after] [] [] bool) [after :: {Type}] [[nm = t] ++ before ~ after] => - (SQL t.{nm} = {[v]} AND {e [[nm = t] ++ after] !})) + (SQL t.{nm} = {[v]} AND {e [[nm = t] ++ after]})) (fn [after :: {Type}] [[] ~ after] => (SQL TRUE)) M.keyFolder M.key r [_] ! |