servant-snap 0.7.0.1 → 0.7.0.2

raw patch · 3 files changed

+7/−4 lines, 3 filesdep ~basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: base

API changes (from Hackage documentation)

- Servant.Server.Internal: instance forall k (api :: k). Servant.Server.Internal.HasServer api => Servant.Server.Internal.HasServer (Servant.API.IsSecure.IsSecure Servant.API.Sub.:> api)

- Servant.Server.Internal: instance forall k (api :: k). Servant.Server.Internal.HasServer api => Servant.Server.Internal.HasServer (Servant.API.RemoteHost.RemoteHost Servant.API.Sub.:> api)

- Servant.Server.Internal: instance forall k (api :: k). Servant.Server.Internal.HasServer api => Servant.Server.Internal.HasServer (Snap.Internal.Http.Types.HttpVersion Servant.API.Sub.:> api)

- Servant.Server.Internal: instance forall k (list :: [GHC.Types.*]) a (sublayout :: k). (Servant.API.ContentTypes.AllCTUnrender list a, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (Servant.API.ReqBody.ReqBody list a Servant.API.Sub.:> sublayout)

- Servant.Server.Internal: instance forall k (path :: GHC.Types.Symbol) (sublayout :: k). (GHC.TypeLits.KnownSymbol path, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (path Servant.API.Sub.:> sublayout)

- Servant.Server.Internal: instance forall k (sym :: GHC.Types.Symbol) (sublayout :: k). (GHC.TypeLits.KnownSymbol sym, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (Servant.API.QueryParam.QueryFlag sym Servant.API.Sub.:> sublayout)

- Servant.Server.Internal: instance forall k (sym :: GHC.Types.Symbol) a (sublayout :: k). (GHC.TypeLits.KnownSymbol sym, Web.HttpApiData.Internal.FromHttpApiData a, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (Servant.API.Header.Header sym a Servant.API.Sub.:> sublayout)

- Servant.Server.Internal: instance forall k a (sublayout :: k) (capture :: GHC.Types.Symbol). (Web.HttpApiData.Internal.FromHttpApiData a, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (Servant.API.Capture.Capture capture a Servant.API.Sub.:> sublayout)

+ Servant.Server.Internal: instance forall k1 (api :: k1). Servant.Server.Internal.HasServer api => Servant.Server.Internal.HasServer (Servant.API.IsSecure.IsSecure Servant.API.Sub.:> api)

+ Servant.Server.Internal: instance forall k1 (api :: k1). Servant.Server.Internal.HasServer api => Servant.Server.Internal.HasServer (Servant.API.RemoteHost.RemoteHost Servant.API.Sub.:> api)

+ Servant.Server.Internal: instance forall k1 (api :: k1). Servant.Server.Internal.HasServer api => Servant.Server.Internal.HasServer (Snap.Internal.Http.Types.HttpVersion Servant.API.Sub.:> api)

+ Servant.Server.Internal: instance forall k1 (list :: [GHC.Types.*]) a (sublayout :: k1). (Servant.API.ContentTypes.AllCTUnrender list a, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (Servant.API.ReqBody.ReqBody list a Servant.API.Sub.:> sublayout)

+ Servant.Server.Internal: instance forall k1 (path :: GHC.Types.Symbol) (sublayout :: k1). (GHC.TypeLits.KnownSymbol path, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (path Servant.API.Sub.:> sublayout)

+ Servant.Server.Internal: instance forall k1 (sym :: GHC.Types.Symbol) (sublayout :: k1). (GHC.TypeLits.KnownSymbol sym, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (Servant.API.QueryParam.QueryFlag sym Servant.API.Sub.:> sublayout)

+ Servant.Server.Internal: instance forall k1 (sym :: GHC.Types.Symbol) a (sublayout :: k1). (GHC.TypeLits.KnownSymbol sym, Web.HttpApiData.Internal.FromHttpApiData a, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (Servant.API.Header.Header sym a Servant.API.Sub.:> sublayout)

+ Servant.Server.Internal: instance forall k1 a (sublayout :: k1) (capture :: GHC.Types.Symbol). (Web.HttpApiData.Internal.FromHttpApiData a, Servant.Server.Internal.HasServer sublayout) => Servant.Server.Internal.HasServer (Servant.API.Capture.Capture capture a Servant.API.Sub.:> sublayout)

Files

servant-snap.cabal +2/−2
src/Servant/Server/Internal.hs +4/−0
src/Servant/Server/Internal/RoutingApplication.hs +1/−2

servant-snap.cabal view

@@ -1,5 +1,5 @@ name:                servant-snap-version:             0.7.0.1+version:             0.7.0.2 synopsis:            A family of combinators for defining webservices APIs and serving them description:   Interpret a Servant API as a Snap server, using any Snaplets you like.@@ -21,7 +21,7 @@ category:            Web build-type:          Simple cabal-version:       >=1.10-tested-with:         GHC == 7.10.2, GHC == 8.0.1+tested-with:         GHC == 7.8.4, GHC == 7.10.3, GHC == 8.0.1 extra-source-files:   CHANGELOG.md   README.md

src/Servant/Server/Internal.hs view

@@ -10,6 +10,10 @@ {-# LANGUAGE TypeOperators        #-} {-# LANGUAGE MultiParamTypeClasses #-} +#if __GLASGOW_HASKELL__ < 710+{-# LANGUAGE OverlappingInstances #-}+#endif+ module Servant.Server.Internal   ( module Servant.Server.Internal   , module Servant.Server.Internal.PathInfo

src/Servant/Server/Internal/RoutingApplication.hs view

@@ -6,7 +6,6 @@ {-# LANGUAGE KindSignatures             #-} {-# LANGUAGE MultiParamTypeClasses      #-} {-# LANGUAGE OverloadedStrings          #-}-{-# LANGUAGE PartialTypeSignatures      #-} {-# LANGUAGE RecordWildCards            #-} {-# LANGUAGE RankNTypes                 #-} {-# LANGUAGE ScopedTypeVariables        #-}@@ -15,7 +14,7 @@ {-# LANGUAGE UndecidableInstances       #-} module Servant.Server.Internal.RoutingApplication where -import           Control.Applicative                 (Applicative, Alternative(..), (<$>))+import           Control.Applicative                 (Applicative(..), Alternative(..), (<$>)) import           Control.Monad                       (ap, liftM) import           Control.Monad.IO.Class              (MonadIO, liftIO) import           Control.Monad.Trans.Class