From 4cf84eba7b89bdcc67587c2ed57bbca37dc81986 Mon Sep 17 00:00:00 2001 From: Jake Wheat Date: Thu, 17 Apr 2014 22:46:21 +0300 Subject: [PATCH] reenable commented test for quantified comparison predicates --- tools/Language/SQL/SimpleSQL/ValueExprs.lhs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tools/Language/SQL/SimpleSQL/ValueExprs.lhs b/tools/Language/SQL/SimpleSQL/ValueExprs.lhs index c86bd3d..2447fbb 100644 --- a/tools/Language/SQL/SimpleSQL/ValueExprs.lhs +++ b/tools/Language/SQL/SimpleSQL/ValueExprs.lhs @@ -172,14 +172,14 @@ Tests for parsing value expressions > ,("a not in (select a from t)" > ,In False (Iden "a") (InQueryExpr ms)) -> --,("a > all (select a from t)" -> -- ,BinOp (Iden "a") ">" (SubQueryExpr SqAll ms)) +> ,("a > all (select a from t)" +> ,QuantifiedComparison (Iden "a") ">" CPAll ms) -> --,("a = some (select a from t)" -> -- ,BinOp (Iden "a") "=" (SubQueryExpr SqSome ms)) +> ,("a = some (select a from t)" +> ,QuantifiedComparison (Iden "a") "=" CPSome ms) -> --,("a <= any (select a from t)" -> -- ,BinOp (Iden "a") "<=" (SubQueryExpr SqAny ms)) +> ,("a <= any (select a from t)" +> ,QuantifiedComparison (Iden "a") "<=" CPAny ms) > ] > where > ms = makeSelect