hasql wants to rowParse text not bytestring

2014-12-06 17:42:19 -08:00
parent dcbecf085f
commit d2888c62f1
3 changed files with 15 additions and 16 deletions
@@ -74,7 +74,7 @@ countRows t =

 asJsonWithCount :: StatementT
 asJsonWithCount (sql, params) = (
-    "count(t), array_to_json(array_agg(row_to_json(t)))::character varying  from (" <> sql <> ") t"
+    "count(t), array_to_json(array_agg(row_to_json(t)))::character varying from (" <> sql <> ") t"
  , params
  )