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

Small refactor to jsonOrRedirect

Browse Source
This commit is contained in:
Bryan Richter 2012-01-14 09:13:47 -08:00
parent c6a08f0c4a
commit b2c715f223
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -119,7 +119,8 @@ jsonOrRedirect r j = do
if q then jsonToRepJson (J.toJSON j) if q then jsonToRepJson (J.toJSON j)
else redirect r else redirect r
where where
acceptsJson = maybe False ("application/json" `B.isPrefixOf`) <$> firstAccept acceptsJson = maybe False ("application/json" `B.isPrefixOf`)
firstAccept = return . join . join
. fmap (headMay . parseHttpAccept) . fmap (headMay . parseHttpAccept)
=<< lookup "Accept" . requestHeaders <$> waiRequest . lookup "Accept" . requestHeaders
<$> waiRequest