Add PATCH handler

2014-12-06 17:42:17 -08:00
parent 361cffc283
commit 8c073cedc6
2 changed files with 10 additions and 7 deletions
@@ -39,7 +39,7 @@ whereT :: Net.Query -> CompleteQueryT
 whereT params q =
 if L.null params
   then q
-   else q <> conjunction
+   else q <> (" where ",[]) <> conjunction
 where
   cols = [ col | col <- params, fst col `notElem` ["order"] ]
   conjunction = mconcat $ L.intersperse andq (map wherePred cols)