From ab9282b7359aa50b6c2f094e3cd8571ffa2dc3ac Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Wed, 6 Jul 2011 09:22:08 -0400 Subject: Update demo/more for simplified implicit arguments --- demo/more/dbgrid.ur | 2 +- demo/more/orm.ur | 2 +- demo/more/versioned.ur | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'demo') 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 [_] ! -- cgit v1.2.3