From 60e1f920aba2a535794cd9357c3a285108bd1773 Mon Sep 17 00:00:00 2001
From: "Adam C. Baker" <adam.durandal@gmail.com>
Date: Sat, 2 Aug 2014 16:52:13 -0700
Subject: [PATCH] handle empty body on get request.

---
 PgQuery.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/PgQuery.hs b/PgQuery.hs
index 21742114f..cd1ba0ebc 100644
--- a/PgQuery.hs
+++ b/PgQuery.hs
@@ -31,6 +31,7 @@ selectWhere ver table qq range conn = do
   r <- quickQuery conn (BS.unpack $ s <> w) []
 
   let body = case r of
+             [[SqlNull]] -> "[]"::BL.ByteString
              [[json]] -> fromSql json
              _        -> "" :: BL.ByteString
   return body