servant-server 0.11 → 0.11.0.1
raw patch · 2 files changed
+21/−6 lines, 2 filesdep ~http-types
Dependency ranges changed: http-types
Files
- servant-server.cabal +10/−4
- test/Servant/ServerSpec.hs +11/−2
servant-server.cabal view
@@ -1,5 +1,5 @@ name: servant-server-version: 0.11+version: 0.11.0.1 synopsis: A family of combinators for defining webservices APIs and serving them description: A family of combinators for defining webservices APIs and serving them@@ -21,7 +21,11 @@ category: Servant Web build-type: Custom cabal-version: >=1.10-tested-with: GHC >= 7.8+tested-with:+ GHC==7.8.4+ GHC==7.10.3+ GHC==8.0.2+ GHC==8.2.1 extra-source-files: include/*.h CHANGELOG.md@@ -51,7 +55,7 @@ Servant.Server.Internal.ServantErr Servant.Utils.StaticFiles build-depends:- base >= 4.7 && < 4.10+ base >= 4.7 && < 4.11 , base-compat >= 0.9 && < 0.10 , aeson >= 0.7 && < 1.3 , attoparsec >= 0.12 && < 0.14@@ -60,7 +64,7 @@ , containers >= 0.5 && < 0.6 , exceptions >= 0.8 && < 0.9 , http-api-data >= 0.3 && < 0.4- , http-types >= 0.8 && < 0.10+ , http-types >= 0.8 && < 0.11 , network-uri >= 2.6 && < 2.7 , monad-control >= 1.0.0.4 && < 1.1 , mtl >= 2 && < 2.3@@ -120,6 +124,8 @@ Servant.Server.UsingContextSpec.TestCombinators Servant.ServerSpec Servant.Utils.StaticFilesSpec+ build-tool-depends:+ hspec-discover:hspec-discover build-depends: base == 4.* , base-compat
test/Servant/ServerSpec.hs view
@@ -28,7 +28,11 @@ methodDelete, methodGet, methodHead, methodPatch, methodPost, methodPut, ok200,+#if MIN_VERSION_http_types(0,10,0)+ imATeapot418,+#else imATeaPot418,+#endif parseQuery) import Network.Wai (Application, Request, requestHeaders, pathInfo, queryString, rawQueryString,@@ -65,6 +69,11 @@ import Servant.Server.Internal.Context (NamedContext(..)) +#if !MIN_VERSION_http_types(0,10,0)+imATeapot418 :: Status+imATeapot418 = imATeaPot418+#endif+ -- * comprehensive api test -- This declaration simply checks that all instances are in place.@@ -657,7 +666,7 @@ basicAuthServer :: Server BasicAuthAPI basicAuthServer = const (return jerry) :<|>- (Tagged $ \ _ respond -> respond $ responseLBS imATeaPot418 [] "")+ (Tagged $ \ _ respond -> respond $ responseLBS imATeapot418 [] "") basicAuthContext :: Context '[ BasicAuthCheck () ] basicAuthContext =@@ -702,7 +711,7 @@ genAuthServer :: Server GenAuthAPI genAuthServer = const (return tweety)- :<|> (Tagged $ \ _ respond -> respond $ responseLBS imATeaPot418 [] "")+ :<|> (Tagged $ \ _ respond -> respond $ responseLBS imATeapot418 [] "") type instance AuthServerData (AuthProtect "auth") = ()