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

parseJsonBody_ deprecated for requireJsonBody

Browse Source
This commit is contained in:
Greg Weber 2014-03-11 18:07:46 -07:00
parent 8535f19583
commit 5c3078b51e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-core/test/YesodCoreTest/Json.hs
View File

@ -19,7 +19,7 @@ instance Yesod App
getHomeR :: Handler RepPlain getHomeR :: Handler RepPlain
getHomeR = do getHomeR = do
val <- parseJsonBody_ val <- requireJsonBody
case Map.lookup ("foo" :: Text) val of case Map.lookup ("foo" :: Text) val of
Nothing -> invalidArgs ["foo not found"] Nothing -> invalidArgs ["foo not found"]
Just foo -> return $ RepPlain $ toContent (foo :: Text) Just foo -> return $ RepPlain $ toContent (foo :: Text)