diff --git a/Yesod/Json.hs b/Yesod/Json.hs
--- a/Yesod/Json.hs
+++ b/Yesod/Json.hs
@@ -33,6 +33,7 @@
 import Control.Applicative ((<$>))
 import Control.Monad (join)
 import qualified Data.Aeson as J
+import qualified Data.Aeson.Parser as JP
 import Data.Aeson ((.=))
 import qualified Data.Aeson.Encode as JE
 import Data.Aeson.Encode (fromValue)
@@ -85,7 +86,7 @@
 parseJsonBody :: J.FromJSON a => GHandler sub master (J.Result a)
 parseJsonBody = do
     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
 -- error.
diff --git a/yesod-json.cabal b/yesod-json.cabal
--- a/yesod-json.cabal
+++ b/yesod-json.cabal
@@ -1,5 +1,5 @@
 name:            yesod-json
-version:         1.1.0
+version:         1.1.1
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>