haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Pedantic comment revision

Browse Source
This commit is contained in:
Bryan Richter 2012-01-13 11:58:10 -08:00
parent 1953c8943b
commit c6a08f0c4a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-json/Yesod/Json.hs
View File

@ -107,8 +107,7 @@ array = J.Array . V.fromList . map J.toJSON
-- | jsonOrRedirect simplifies the scenario where a POST handler sends a different
-- response based on Accept headers:
--
-- 1. 200 with JSON data if the client prefers application/json (i.e. is an
-- AJAX request)
-- 1. 200 with JSON data if the client prefers application/json (e.g. AJAX).
--
-- 2. 3xx otherwise, following the PRG pattern.
jsonOrRedirect :: (Yesod master, J.ToJSON a)