Small refactor to jsonOrRedirect

2012-01-14 09:13:47 -08:00 · 2012-01-14 09:13:47 -08:00 · b2c715f223
commit b2c715f223
parent c6a08f0c4a
1 changed files with 4 additions and 3 deletions
--- a/yesod-json/Yesod/Json.hs
+++ b/yesod-json/Yesod/Json.hs
@ -119,7 +119,8 @@ jsonOrRedirect r j = do
    if q then jsonToRepJson (J.toJSON j)
         else redirect r
  where
-    acceptsJson = maybe False ("application/json" `B.isPrefixOf`) <$> firstAccept
-    firstAccept = return . join
+    acceptsJson = maybe False ("application/json" `B.isPrefixOf`)
+                . join
                . fmap (headMay . parseHttpAccept)
-                =<< lookup "Accept" . requestHeaders <$> waiRequest
+                . lookup "Accept" . requestHeaders
+                <$> waiRequest