From e8013a93d4a31ff426680d75645e2262f7485058 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Sun, 15 Sep 2013 02:17:29 -0300 Subject: [PATCH] Saner implementation of existsHelper. --- src/Database/Esqueleto/Internal/Sql.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs index 910a8c7..911af25 100644 --- a/src/Database/Esqueleto/Internal/Sql.hs +++ b/src/Database/Esqueleto/Internal/Sql.hs @@ -392,11 +392,11 @@ sub mode query = ERaw Parens $ \conn -> toRawSql mode pureQuery conn query fromDBName :: Connection -> DBName -> TLB.Builder fromDBName conn = TLB.fromText . connEscapeName conn -existsHelper :: SqlQuery () -> SqlExpr (Value a) -existsHelper = - ERaw Parens . - flip (toRawSql SELECT pureQuery) . - (>> return (val True :: SqlExpr (Value Bool))) +existsHelper :: SqlQuery () -> SqlExpr (Value Bool) +existsHelper = sub SELECT . (>> return true) + where + true :: SqlExpr (Value Bool) + true = val True ifNotEmptyList :: SqlExpr (ValueList a) -> Bool -> SqlExpr (Value Bool) -> SqlExpr (Value Bool) ifNotEmptyList EEmptyList b _ = val b