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

shorter name

Browse Source
This commit is contained in:
Chris Allen 2015-11-25 23:01:49 -06:00
parent 6a60dac366
commit ae1015b628
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-core/Yesod/Core/Handler.hs
View File

@ -94,7 +94,7 @@ module Yesod.Core.Handler
, sendResponse , sendResponse
, sendResponseStatus , sendResponseStatus
-- ** Type specific response with custom status -- ** Type specific response with custom status
, sendResponseStatusJSON , sendStatusJSON
, sendResponseCreated , sendResponseCreated
, sendWaiResponse , sendWaiResponse
, sendWaiApplication , sendWaiApplication
@ -580,8 +580,8 @@ sendResponseStatus s = handlerError . HCContent s . toTypedContent
-- | Bypass remaining handler code and output the given JSON with the given -- | Bypass remaining handler code and output the given JSON with the given
-- status code. -- status code.
sendResponseStatusJSON :: (MonadHandler m, ToJSON a) => H.Status -> a -> m a sendStatusJSON :: (MonadHandler m, ToJSON a) => H.Status -> a -> m a
sendResponseStatusJSON s v = sendResponseStatus s (toJSON v) sendStatusJSON s v = sendResponseStatus s (toJSON v)
-- | Send a 201 "Created" response with the given route as the Location -- | Send a 201 "Created" response with the given route as the Location
-- response header. -- response header.