summaryrefslogtreecommitdiff
path: root/demo/more
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-07-06 09:22:08 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2011-07-06 09:22:08 -0400
commitab9282b7359aa50b6c2f094e3cd8571ffa2dc3ac (patch)
treec69a0fb175713aedd70a0b191c6849d7dc0942b9 /demo/more
parentb7fc000f340f2be6f9c0e8f615aa4ae23ecf9d20 (diff)
Update demo/more for simplified implicit arguments
Diffstat (limited to 'demo/more')
-rw-r--r--demo/more/dbgrid.ur2
-rw-r--r--demo/more/orm.ur2
-rw-r--r--demo/more/versioned.ur2
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
[_] !