..
This commit is contained in:
parent
596db81d7a
commit
92afb1150a
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user