Allow posting JSON array and object

Fixes #168 Fixes #156
2015-04-19 17:46:11 -07:00
parent 02228b76cc
commit 5688030104
3 changed files with 21 additions and 1 deletions
@@ -268,7 +268,7 @@ unquoted (JSON.String t) = t
 unquoted (JSON.Number n) =
  cs $ formatScientific Fixed (if isInteger n then Just 0 else Nothing) n
 unquoted (JSON.Bool b) = cs . show $ b
-unquoted _ = ""
+unquoted v = cs $ JSON.encode v

 insertableText :: T.Text -> T.Text
 insertableText = (<> "::unknown") . pgFmtLit