servant-swagger-tags 0.1.0.0 → 0.1.0.1
raw patch · 2 files changed
+8/−8 lines, 2 filesdep +insert-ordered-containersdep −containersPVP ok
version bump matches the API change (PVP)
Dependencies added: insert-ordered-containers
Dependencies removed: containers
API changes (from Hackage documentation)
Files
servant-swagger-tags.cabal view
@@ -1,5 +1,5 @@ name: servant-swagger-tags-version: 0.1.0.0+version: 0.1.0.1 synopsis: Swagger Tags for Servant -- description: Swagger Tags for Servant homepage: https://github.com/nakaji-dayo/servant-swagger-tags#readme@@ -23,8 +23,8 @@ , servant-mock , swagger2 , text- , containers , lens+ , insert-ordered-containers default-language: Haskell2010 source-repository head
src/Servant/Swagger/Tags.hs view
@@ -10,12 +10,12 @@ module Servant.Swagger.Tags where import Control.Lens-import qualified Data.Set as S+import Data.HashSet.InsOrd import Data.Swagger-import qualified Data.Text as Text-import Data.Typeable (Typeable)-import GHC.TypeLits (KnownSymbol, Symbol, symbolVal)-import Servant hiding (Context)+import Data.Text+import Data.Typeable (Typeable)+import GHC.TypeLits (KnownSymbol, Symbol, symbolVal)+import Servant hiding (Context) import Servant.Mock import Servant.Swagger @@ -29,7 +29,7 @@ instance (KnownSymbol tags, HasSwagger api) => HasSwagger (Tags tags :> api) where toSwagger _ = toSwagger (Proxy :: Proxy api)- & allOperations.tags %~ S.union (S.fromList [Text.pack (symbolVal (Proxy :: Proxy tags))])+ & allOperations.tags %~ union (fromList [pack (symbolVal (Proxy :: Proxy tags))]) instance HasMock api context => HasMock (Tags t :> api) context where mock _ = mock (Proxy :: Proxy api)