From 422e4ce9ae27a9f589ef91809931c456bd6f3ac1 Mon Sep 17 00:00:00 2001
From: rightfold <rightfold@gmail.com>
Date: Fri, 27 Jan 2017 12:50:12 +0100
Subject: [PATCH] ToSQLValue Boolean

---
 src/Database/PostgreSQL.purs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Database/PostgreSQL.purs b/src/Database/PostgreSQL.purs
index 8a8b0be..43a7d88 100644
--- a/src/Database/PostgreSQL.purs
+++ b/src/Database/PostgreSQL.purs
@@ -120,6 +120,9 @@ instance fromSQLRowTuple5 :: (FromSQLValue a, FromSQLValue b, FromSQLValue c, Fr
     fromSQLRow [a, b, c, d, e] = tuple5 <$> fromSQLValue a <*> fromSQLValue b <*> fromSQLValue c <*> fromSQLValue d <*> fromSQLValue e
     fromSQLRow _ = Nothing
 
+instance toSQLValueBoolean :: ToSQLValue Boolean where
+    toSQLValue = toForeign
+
 instance toSQLValueChar :: ToSQLValue Char where
     toSQLValue = toForeign