PrettyJSON content type.
Instances2Accept, MimeRender
Accept PrettyJSONDefined in servant-docs-0.13.1 · Servant.Docs.Internal.PrettyToJSON a => MimeRender PrettyJSON aDefined in servant-docs-0.13.1 · Servant.Docs.Internal.Pretty
Moduleservant-docs-0.13.1Haskell2010
Servant.Docs.Internal.Pretty
Synopsis
- data PrettyJSON
- value pretty
- family Pretty
- Packageservant-docs-0.13.1
- Exports3
- LanguageHaskell2010
- LicenceBSD-3-Clause
- SourcePretty.hs
Replace all JSON content types with PrettyJSON.
Kind-polymorphic so it can operate on kinds * and [*].
Equations
Pretty (x :<|> y) = Pretty x :<|> Pretty yPretty (x :> y) = Pretty x :> Pretty yPretty (Get cs r) = Get (Pretty cs) rPretty (Post cs r) = Post (Pretty cs) rPretty (Put cs r) = Put (Pretty cs) rPretty (Delete cs r) = Delete (Pretty cs) rPretty (Patch cs r) = Patch (Pretty cs) rPretty (GetPartialContent cs r) = GetPartialContent (Pretty cs) rPretty (PutResetContent cs r) = PutResetContent (Pretty cs) rPretty (PatchResetContent cs r) = PatchResetContent (Pretty cs) rPretty (DeleteResetContent cs r) = DeleteResetContent (Pretty cs) rPretty (PostResetContent cs r) = PostResetContent (Pretty cs) rPretty (GetResetContent cs r) = GetResetContent (Pretty cs) rPretty (PutNonAuthoritative cs r) = PutNonAuthoritative (Pretty cs) rPretty (PatchNonAuthoritative cs r) = PatchNonAuthoritative (Pretty cs) rPretty (DeleteNonAuthoritative cs r) = DeleteNonAuthoritative (Pretty cs) rPretty (PostNonAuthoritative cs r) = PostNonAuthoritative (Pretty cs) rPretty (GetNonAuthoritative cs r) = GetNonAuthoritative (Pretty cs) rPretty (PutAccepted cs r) = PutAccepted (Pretty cs) rPretty (PatchAccepted cs r) = PatchAccepted (Pretty cs) rPretty (DeleteAccepted cs r) = DeleteAccepted (Pretty cs) rPretty (PostAccepted cs r) = PostAccepted (Pretty cs) rPretty (GetAccepted cs r) = GetAccepted (Pretty cs) rPretty (PutCreated cs r) = PutCreated (Pretty cs) rPretty (PostCreated cs r) = PostCreated (Pretty cs) rPretty (ReqBody cs r) = ReqBody (Pretty cs) rPretty (JSON ': xs) = PrettyJSON ': xsPretty (x ': xs) = x ': Pretty xsPretty x = x