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

parseJsonBody_ -> requireJsonBody. closes #678

Browse Source
This commit is contained in:
Greg Weber 2014-03-04 10:06:56 -08:00
parent f4bbe1cc52
commit a62157097c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yesod-core/Yesod/Core/Json.hs
View File

@ -10,6 +10,7 @@ module Yesod.Core.Json
-- * Convert to a JSON value -- * Convert to a JSON value
, parseJsonBody , parseJsonBody
, parseJsonBody_ , parseJsonBody_
, requireJsonBody
-- * Produce JSON values -- * Produce JSON values
, J.Value (..) , J.Value (..)
@ -99,7 +100,13 @@ parseJsonBody = do
-- | Same as 'parseJsonBody', but return an invalid args response on a parse -- | Same as 'parseJsonBody', but return an invalid args response on a parse
-- error. -- error.
parseJsonBody_ :: (MonadHandler m, J.FromJSON a) => m a parseJsonBody_ :: (MonadHandler m, J.FromJSON a) => m a
parseJsonBody_ = do parseJsonBody_ = requireJsonBody
{-# DEPRECATED parseJsonBody_ "Use requireJsonBody instead" #-}
-- | Same as 'parseJsonBody', but return an invalid args response on a parse
-- error.
requireJsonBody :: (MonadHandler m, J.FromJSON a) => m a
requireJsonBody = do
ra <- parseJsonBody ra <- parseJsonBody
case ra of case ra of
J.Error s -> invalidArgs [pack s] J.Error s -> invalidArgs [pack s]