@@ -452,7 +452,7 @@ instance FromField JSON.Value where
452 else case mbs of
452 else case mbs of
453 Nothing -> returnError UnexpectedNull f ""
453 Nothing -> returnError UnexpectedNull f ""
454 Just bs ->
454 Just bs ->
455− case JSON.eitherDecode' $ LB.fromStrict bs of
455+ case JSON.eitherDecode' $ LB.fromChunks [bs] of
456 Left err -> returnError ConversionFailed f err
456 Left err -> returnError ConversionFailed f err
457 Right val -> pure val
457 Right val -> pure val