diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/basis.urs | 2 | ||||
| -rw-r--r-- | lib/top.ur | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/basis.urs b/lib/basis.urs index 027e81ac..de4204b3 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -248,7 +248,7 @@ val insert : fields ::: {Type} [] fields) -> dml -val update : changed :: {Type} -> unchanged ::: {Type} -> +val update : unchanged ::: {Type} -> changed :: {Type} -> fn [changed ~ unchanged] => $(fold (fn nm (t :: Type) acc [[nm] ~ acc] => [nm = sql_exp [T = changed ++ unchanged] [] [] t] @@ -20,7 +20,7 @@ fun compose (t1 ::: Type) (t2 ::: Type) (t3 ::: Type) (f1 : t2 -> t3) (f2 : t1 -> t2) (x : t1) = f1 (f2 x) fun txt (t ::: Type) (ctx ::: {Unit}) (use ::: {Type}) (sh : show t) (v : t) = - cdata (show sh v) + cdata (@show sh v) fun foldTR (tf :: Type -> Type) (tr :: {Type} -> Type) (f : nm :: Name -> t :: Type -> rest :: {Type} |