Merge pull request #72 from phadej/servant-0.12

Support servant-0.12

Author: phadej

CHANGELOG.md

@@ -1,3 +1,9 @@
+1.1.4
+-----
+
+* Notes:
+    * `servant-0.12` compatible release
+
 1.1.3.1
 ---
 

servant-swagger.cabal

@@ -1,6 +1,5 @@
 name:                servant-swagger
-version:             1.1.3.1
-x-revision:          1
+version:             1.1.4
 synopsis:            Generate Swagger specification for your servant API.
 description:         Please see README.md
 homepage:            https://github.com/haskell-servant/servant-swagger
@@ -62,7 +61,7 @@ library
                      , http-media                >=0.6.3    && <0.8
                      , insert-ordered-containers >=0.1.0.0  && <0.3
                      , lens                      >=4.7.0.1  && <4.16
-                     , servant                   >=0.5      && <0.12
+                     , servant                   >=0.5      && <0.13
                      , swagger2                  >=2.1      && <2.3
                      , text                      >=1.2.0.6  && <1.3
                      , unordered-containers      >=0.2.5.1  && <0.3
@@ -77,7 +76,7 @@ test-suite doctests
     base,
     directory >= 1.0,
     doctest >= 0.11.1 && <0.14,
-    servant >= 0.10,
+    servant,
     QuickCheck,
     filepath
   default-language: Haskell2010
@@ -96,7 +95,7 @@ test-suite spec
                   , hspec
                   , QuickCheck
                   , lens
-                  , servant >= 0.10
+                  , servant
                   , servant-swagger
                   , swagger2
                   , text

src/Servant/Swagger/Internal.hs

@@ -236,6 +236,16 @@ instance (KnownSymbol sym, ToParamSchema a, HasSwagger sub) => HasSwagger (Captu
   toSwagger _ = toSwagger (Proxy :: Proxy (Capture sym a :> sub))
 #endif
 
+#if MIN_VERSION_servant(0,12,0)
+instance (KnownSymbol desc, HasSwagger api) => HasSwagger (Description desc :> api) where
+  toSwagger _ = toSwagger (Proxy :: Proxy api)
+    & allOperations.description %~ (Just (Text.pack (symbolVal (Proxy :: Proxy desc))) <>)
+
+instance (KnownSymbol desc, HasSwagger api) => HasSwagger (Summary desc :> api) where
+  toSwagger _ = toSwagger (Proxy :: Proxy api)
+    & allOperations.summary %~ (Just (Text.pack (symbolVal (Proxy :: Proxy desc))) <>)
+#endif
+
 instance (KnownSymbol sym, ToParamSchema a, HasSwagger sub) => HasSwagger (QueryParam sym a :> sub) where
   toSwagger _ = toSwagger (Proxy :: Proxy sub)
     & addParam param

test/Servant/SwaggerSpec.hs

@@ -1,9 +1,13 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE DataKinds          #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE DeriveGeneric      #-}
 {-# LANGUAGE OverloadedStrings  #-}
 {-# LANGUAGE QuasiQuotes        #-}
 {-# LANGUAGE TypeOperators      #-}
+#if __GLASGOW_HASKELL__ == 708
+{-# OPTIONS_GHC -fcontext-stack=31 #-}
+#endif
 module Servant.SwaggerSpec where
 
 import           Control.Lens