Snap.Extras.JSON

Parsing JSON from Request Body

getBoundedJSON

Arguments

:: (MonadSnap m, FromJSON a)

=> Int64

Maximum size in bytes

-> m (Either String a)

Parse request body into JSON or return an error string.

getJSON :: (MonadSnap m, FromJSON a) => m (Either String a)

Try to parse request body as JSON with a default max size of 50000.

reqBoundedJSON

Arguments

:: (MonadSnap m, FromJSON a)

=> Int64

Maximum size in bytes

-> m a

Demand the presence of JSON in the body with a size up to N bytes. If parsing fails for any reson, request is terminated early and a server error is returned.

reqJSON :: (MonadSnap m, FromJSON b) => m b

Demand the presence of JSON in the body assuming it is not larger than 50000 bytes.

getJSONField :: (MonadSnap m, FromJSON a) => ByteString -> m (Either String a)

Get JSON data from the given Param field

reqJSONField :: (MonadSnap m, FromJSON a) => ByteString -> m a

Force the JSON value from field. Similar to getJSONField

Sending JSON Data

writeJSON :: (MonadSnap m, ToJSON a) => a -> m ()

Set MIME to 'application/json' and write given object into Response body.