@@ -550,7 +550,7 @@ instance FromField UUID where
550 Nothing -> returnError ConversionFailed f "Invalid UUID"
550 Nothing -> returnError ConversionFailed f "Invalid UUID"
551 Just uuid -> pure uuid
551 Just uuid -> pure uuid
553−-- | json
553+-- | json, jsonb
554instance FromField JSON.Value where
554instance FromField JSON.Value where
555 fromField f mbs = parse =<< fromFieldJSONByteString f mbs
555 fromField f mbs = parse =<< fromFieldJSONByteString f mbs
556 where parse bs = case parseOnly (JSON.value' <* endOfInput) bs of
556 where parse bs = case parseOnly (JSON.value' <* endOfInput) bs of