parseJsonBody_ deprecated for requireJsonBody

2014-03-11 18:07:46 -07:00 · 2014-03-11 18:07:46 -07:00 · 5c3078b51e
commit 5c3078b51e
parent 8535f19583
1 changed files with 1 additions and 1 deletions
--- a/yesod-core/test/YesodCoreTest/Json.hs
+++ b/yesod-core/test/YesodCoreTest/Json.hs
@ -19,7 +19,7 @@ instance Yesod App

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