Mercurial > urweb
diff demo/more/dbgrid.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 | 9253765d7724 |
line wrap: on
line diff
--- a/demo/more/dbgrid.ur Wed Jul 06 08:35:31 2011 -0400 +++ b/demo/more/dbgrid.ur Wed Jul 06 09:22:08 2011 -0400 @@ -403,7 +403,7 @@ (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 [_] !