From 14163f6e6e160694eff3d409ca3cf0b8b76c4a3a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 10 Dec 2009 12:06:03 -0500
Subject: Make oneRowE1 more general

---
 lib/ur/top.urs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/ur/top.urs')

diff --git a/lib/ur/top.urs b/lib/ur/top.urs
index 6470d7d7..2b6248fc 100644
--- a/lib/ur/top.urs
+++ b/lib/ur/top.urs
@@ -163,9 +163,9 @@ val oneRow : tables ::: {{Type}} -> exps ::: {Type}
                     $(exps
                           ++ map (fn fields :: {Type} => $fields) tables)
 
-val oneRowE1 : tab ::: Name -> nm ::: Name -> t ::: Type
-               -> [[tab] ~ [nm]] =>
-    sql_query [tab = []] [nm = t]
+val oneRowE1 : tabs ::: {Unit} -> nm ::: Name -> t ::: Type
+               -> [tabs ~ [nm]] =>
+    sql_query (mapU [] tabs) [nm = t]
     -> transaction t
 
 val eqNullable : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type}
-- 
cgit v1.2.3