04e4de5 · typeable/servant

git.iko.soy/typeable/servant

on master help sign in

Merge pull request #1357 from SupercedeTech/master

04e4de5Caroline GAUDREAU5 years ago

servant-docs/src/Servant/Docs/Internal.hs+1−3

compare with master

unifiedsplit

@@ -32,9 +32,7 @@ import Data.ByteString.Lazy.Char8

32 (ByteString)

33import qualified Data.CaseInsensitive as CI

34import Data.Foldable

35− (toList)

35+ (fold, toList)

36−import Data.Foldable

37− (fold)

38import Data.Hashable

36import Data.Hashable

39 (Hashable)

37 (Hashable)

40import Data.HashMap.Strict

38import Data.HashMap.Strict

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

@@ -18,6 +18,7 @@ import Data.Proxy

18import Network.HTTP.Media

19 ((//))

20import Servant.API

21+import Servant.API.Verbs

22-- | PrettyJSON content type.

23-- | PrettyJSON content type.

23data PrettyJSON

24data PrettyJSON

@@ -46,6 +47,24 @@ type family Pretty (api :: k) :: k where

46 Pretty (Put cs r) = Put (Pretty cs) r

47 Pretty (Put cs r) = Put (Pretty cs) r

47 Pretty (Delete cs r) = Delete (Pretty cs) r

48 Pretty (Delete cs r) = Delete (Pretty cs) r

48 Pretty (Patch cs r) = Patch (Pretty cs) r

49 Pretty (Patch cs r) = Patch (Pretty cs) r

50+ Pretty (GetPartialContent cs r) = GetPartialContent (Pretty cs) r

51+ Pretty (PutResetContent cs r) = PutResetContent (Pretty cs) r

52+ Pretty (PatchResetContent cs r) = PatchResetContent (Pretty cs) r

53+ Pretty (DeleteResetContent cs r) = DeleteResetContent (Pretty cs) r

54+ Pretty (PostResetContent cs r) = PostResetContent (Pretty cs) r

55+ Pretty (GetResetContent cs r) = GetResetContent (Pretty cs) r

56+ Pretty (PutNonAuthoritative cs r) = PutNonAuthoritative (Pretty cs) r

57+ Pretty (PatchNonAuthoritative cs r) = PatchNonAuthoritative (Pretty cs) r

58+ Pretty (DeleteNonAuthoritative cs r) = DeleteNonAuthoritative (Pretty cs) r

59+ Pretty (PostNonAuthoritative cs r) = PostNonAuthoritative (Pretty cs) r

60+ Pretty (GetNonAuthoritative cs r) = GetNonAuthoritative (Pretty cs) r

61+ Pretty (PutAccepted cs r) = PutAccepted (Pretty cs) r

62+ Pretty (PatchAccepted cs r) = PatchAccepted (Pretty cs) r

63+ Pretty (DeleteAccepted cs r) = DeleteAccepted (Pretty cs) r

64+ Pretty (PostAccepted cs r) = PostAccepted (Pretty cs) r

65+ Pretty (GetAccepted cs r) = GetAccepted (Pretty cs) r

66+ Pretty (PutCreated cs r) = PutCreated (Pretty cs) r

67+ Pretty (PostCreated cs r) = PostCreated (Pretty cs) r

49 Pretty (ReqBody cs r) = ReqBody (Pretty cs) r

68 Pretty (ReqBody cs r) = ReqBody (Pretty cs) r

50 Pretty (JSON ': xs) = PrettyJSON ': xs

69 Pretty (JSON ': xs) = PrettyJSON ': xs

51 Pretty (x ': xs) = x ': Pretty xs

70 Pretty (x ': xs) = x ': Pretty xs