Allow csv formatting in rpc output (#882)

2017-05-27 00:07:23 -05:00
parent 74227d3c2b
commit 50de0536de
6 changed files with 26 additions and 10 deletions
@@ -32,6 +32,9 @@ import Protolude
 matchContentTypeJson :: MatchHeader
 matchContentTypeJson = "Content-Type" <:> "application/json; charset=utf-8"

+matchContentTypeSingular :: MatchHeader
+matchContentTypeSingular = "Content-Type" <:> "application/vnd.pgrst.object+json; charset=utf-8"
+
 validateOpenApiResponse :: [Header] -> WaiSession ()
 validateOpenApiResponse headers = do
  r <- request methodGet "/" headers ""