module Network.Wai.Middleware.ContentType.Json where
import Network.Wai.Middleware.ContentType.Types
import Network.Wai.Middleware.ContentType.ByteString
import Network.Wai (Response)
import Network.Wai.HTTP2 (Body)
import qualified Data.Aeson as A
jsonResponse :: ( A.ToJSON j
, Monad m
) => j
-> FileExtListenerT Response m ()
jsonResponse =
bytestringResponse Json . A.encode
jsonBody :: ( A.ToJSON j
, Monad m
) => j
-> FileExtListenerT Body m ()
jsonBody =
bytestringBody Json . A.encode
jsonOnlyResponse :: A.ToJSON j => j -> Response
jsonOnlyResponse =
bytestringOnlyResponse . A.encode
jsonOnlyBody :: A.ToJSON j => j -> Body
jsonOnlyBody =
bytestringOnlyBody . A.encode