Mercurial > urweb
diff demo/more/orm.ur @ 1488:e2611b5dafce
Update demo/more for simplified implicit arguments
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Wed, 06 Jul 2011 09:22:08 -0400 |
| parents | f0afe61a6f8b |
| children | 6bc2a8cb3a67 |
line wrap: on
line diff
--- a/demo/more/orm.ur Wed Jul 06 08:35:31 2011 -0400 +++ b/demo/more/orm.ur Wed Jul 06 09:22:08 2011 -0400 @@ -70,7 +70,7 @@ {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)]] !