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