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" -> "="