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

Accept scalar JSON bodies

Browse Source
This commit is contained in:
Michael Snoyman 2012-11-03 19:33:46 +02:00
parent df9d4aef4a
commit 169340c126
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-json/Yesod/Json.hs
View File

@ -33,6 +33,7 @@ import Control.Arrow (second)
import Control.Applicative ((<$>)) import Control.Applicative ((<$>))
import Control.Monad (join) import Control.Monad (join)
import qualified Data.Aeson as J import qualified Data.Aeson as J
import qualified Data.Aeson.Parser as JP
import Data.Aeson ((.=)) import Data.Aeson ((.=))
import qualified Data.Aeson.Encode as JE import qualified Data.Aeson.Encode as JE
import Data.Aeson.Encode (fromValue) import Data.Aeson.Encode (fromValue)
@ -85,7 +86,7 @@ jsonToRepJson = return . RepJson . toContent . J.toJSON
parseJsonBody :: J.FromJSON a => GHandler sub master (J.Result a) parseJsonBody :: J.FromJSON a => GHandler sub master (J.Result a)
parseJsonBody = do parseJsonBody = do
req <- waiRequest req <- waiRequest
fmap J.fromJSON $ lift $ requestBody req $$ sinkParser J.json' fmap J.fromJSON $ lift $ requestBody req $$ sinkParser JP.value'
-- | 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.