From 003594fd2ed4739b9f1fdc8df350615fdc11a3f7 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 31 Aug 2008 15:47:32 -0400 Subject: Monoize relops --- lib/basis.urs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/basis.urs b/lib/basis.urs index c83ec044..bfb25651 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -57,11 +57,11 @@ type sql_relop val sql_union : sql_relop val sql_intersect : sql_relop val sql_except : sql_relop -val sql_relop : sql_relop - -> tables1 ::: {{Type}} +val sql_relop : tables1 ::: {{Type}} -> tables2 ::: {{Type}} -> selectedFields ::: {{Type}} -> selectedExps ::: {Type} + -> sql_relop -> sql_query1 tables1 selectedFields selectedExps -> sql_query1 tables2 selectedFields selectedExps -> sql_query1 selectedFields selectedFields selectedExps -- cgit v1.2.3