From cb2e421333b0cb08f2b2b3a496e7c9d553d03ac2 Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Tue, 5 Aug 2014 12:34:37 -0700
Subject: [PATCH] Prevent possible irrefutable pattern

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

diff --git a/PgQuery.hs b/PgQuery.hs
index 3712eef41..94b2efe2a 100644
--- a/PgQuery.hs
+++ b/PgQuery.hs
@@ -62,7 +62,7 @@ wherePred (column, predicate) =
   ("%I " <> op <> "%L", map toSql [column, value])
 
   where
-    opCode:rest = BS.split ':' $ fromMaybe "" predicate
+    opCode:rest = BS.split ':' $ fromMaybe ":" predicate
     value = BS.intercalate ":" rest
     op = case opCode of
               "eq"  -> "="