This commit is contained in:
Maximilian Tagher 2019-11-24 15:56:42 -05:00
parent 596db81d7a
commit 92afb1150a

View File

@ -610,6 +610,8 @@ htmlCount query count = do
--
-- > get CommentR
-- > (comment :: Comment) <- requireJSONResponse
--
-- @since 1.6.9
requireJSONResponse :: (HasCallStack, FromJSON a) => YesodExample site a
requireJSONResponse = do
withResponse $ \(SResponse _status headers body) -> do