From 3ba25c618f7114d295db5f7acd2aed2180f140ea Mon Sep 17 00:00:00 2001 From: Kei Hibino Date: Thu, 16 May 2013 15:03:45 +0900 Subject: [PATCH] Add ShowConstantSQL instance for Char DB special type. --- relational-join/src/Database/Relational/Query/Expr.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/relational-join/src/Database/Relational/Query/Expr.hs b/relational-join/src/Database/Relational/Query/Expr.hs index 3135deff..777e4455 100644 --- a/relational-join/src/Database/Relational/Query/Expr.hs +++ b/relational-join/src/Database/Relational/Query/Expr.hs @@ -53,6 +53,9 @@ instance ShowConstantSQL ByteString where instance ShowConstantSQL Text where showConstantSQL = stringExprSQL . T.unpack +instance ShowConstantSQL Char where + showConstantSQL = stringExprSQL . (:"") + instance ShowConstantSQL Bool where showConstantSQL = d where d True = "(0=0)"