Merge pull request #592 from begriffs/form-urlencoded

Accept POST requests from HTML forms
2016-05-18 00:38:42 -07:00
parent cf16f90fab 900b9f1991
commit a21464ddca
3 changed files with 17 additions and 0 deletions
@@ -122,6 +122,13 @@ userApiRequest schema req reqBody =
              Nothing -> PayloadParseError "All lines must have same number of fields"
              Just json -> PayloadJSON json)
            (CSV.decodeByName reqBody)
+        -- This is a Left value because form-urlencoded is not a content
+        -- type which we ever use for responses, only something we handle
+        -- just this once for requests
+        Left "application/x-www-form-urlencoded" ->
+          PayloadJSON . UniformObjects . V.singleton . M.fromList
+                      . map (cs *** JSON.String . cs) . parseSimpleQuery
+                      $ cs reqBody
        Left accept ->
          PayloadParseError $
            "Content-type not acceptable: " <> accept