From 1a5acb4732536e4be288895eb89d139b19aebc94 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 21 Oct 2008 16:41:11 -0400
Subject: New implicit argument handling

---
 lib/basis.urs | 2 +-
 lib/top.ur    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

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]
diff --git a/lib/top.ur b/lib/top.ur
index 4b9f54ef..bdf5f182 100644
--- a/lib/top.ur
+++ b/lib/top.ur
@@ -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}
-- 
cgit v1.2.3