eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add support of Pretty modifier for all verbs aliases

Browse Source 
Minor import warning fix
This commit is contained in:
Никита Размахнин 2020-11-11 10:22:55 +03:00
parent 8e2a654e0e
commit 0ea692bb64
2 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
servant-docs/src/Servant/Docs/Internal.hs
View File

@ -32,9 +32,7 @@ import Data.ByteString.Lazy.Char8
(ByteString) (ByteString)
import qualified Data.CaseInsensitive as CI import qualified Data.CaseInsensitive as CI
import Data.Foldable import Data.Foldable
(toList) (fold, toList)
import Data.Foldable
(fold)
import Data.Hashable import Data.Hashable
(Hashable) (Hashable)
import Data.HashMap.Strict import Data.HashMap.Strict

19
servant-docs/src/Servant/Docs/Internal/Pretty.hs
View File

@ -18,6 +18,7 @@ import Data.Proxy
import Network.HTTP.Media import Network.HTTP.Media
((//)) ((//))
import Servant.API import Servant.API
import Servant.API.Verbs
-- | PrettyJSON content type. -- | PrettyJSON content type.
data PrettyJSON data PrettyJSON
@ -46,6 +47,24 @@ type family Pretty (api :: k) :: k where
Pretty (Put cs r) = Put (Pretty cs) r Pretty (Put cs r) = Put (Pretty cs) r
Pretty (Delete cs r) = Delete (Pretty cs) r Pretty (Delete cs r) = Delete (Pretty cs) r
Pretty (Patch cs r) = Patch (Pretty cs) r Pretty (Patch cs r) = Patch (Pretty cs) r
Pretty (GetPartialContent cs r) = GetPartialContent (Pretty cs) r
Pretty (PutResetContent cs r) = PutResetContent (Pretty cs) r
Pretty (PatchResetContent cs r) = PatchResetContent (Pretty cs) r
Pretty (DeleteResetContent cs r) = DeleteResetContent (Pretty cs) r
Pretty (PostResetContent cs r) = PostResetContent (Pretty cs) r
Pretty (GetResetContent cs r) = GetResetContent (Pretty cs) r
Pretty (PutNonAuthoritative cs r) = PutNonAuthoritative (Pretty cs) r
Pretty (PatchNonAuthoritative cs r) = PatchNonAuthoritative (Pretty cs) r
Pretty (DeleteNonAuthoritative cs r) = DeleteNonAuthoritative (Pretty cs) r
Pretty (PostNonAuthoritative cs r) = PostNonAuthoritative (Pretty cs) r
Pretty (GetNonAuthoritative cs r) = GetNonAuthoritative (Pretty cs) r
Pretty (PutAccepted cs r) = PutAccepted (Pretty cs) r
Pretty (PatchAccepted cs r) = PatchAccepted (Pretty cs) r
Pretty (DeleteAccepted cs r) = DeleteAccepted (Pretty cs) r
Pretty (PostAccepted cs r) = PostAccepted (Pretty cs) r
Pretty (GetAccepted cs r) = GetAccepted (Pretty cs) r
Pretty (PutCreated cs r) = PutCreated (Pretty cs) r
Pretty (PostCreated cs r) = PostCreated (Pretty cs) r
Pretty (ReqBody cs r) = ReqBody (Pretty cs) r Pretty (ReqBody cs r) = ReqBody (Pretty cs) r
Pretty (JSON ': xs) = PrettyJSON ': xs Pretty (JSON ': xs) = PrettyJSON ': xs
Pretty (x ': xs) = x ': Pretty xs Pretty (x ': xs) = x ': Pretty xs