servant-swagger: add HasSwagger instance for NamedRoutes

vikrantkm1997 · May 3, 2022 · cb310b8 · cb310b8
1 parent 5e1569e
commit cb310b8
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/servant-swagger/src/Servant/Swagger/Internal.hs b/servant-swagger/src/Servant/Swagger/Internal.hs
@@ -35,6 +35,7 @@ import           Network.HTTP.Media                     (MediaType)
 import           Servant.API
 import           Servant.API.Description                (FoldDescription,
                                                          reflectDescription)
+import           Servant.API.Generic                    (ToServantApi)
 import           Servant.API.Modifiers                  (FoldRequired)
 
 import           Servant.Swagger.Internal.TypeLevel.API
@@ -439,6 +440,9 @@ instance (ToSchema a, Accept ct, HasSwagger sub, KnownSymbol (FoldDescription mo
         & required  ?~ True
         & schema    .~ ParamBody ref
 
+instance HasSwagger (ToServantApi routes) => HasSwagger (NamedRoutes routes) where
+  toSwagger _ = toSwagger (Proxy :: Proxy (ToServantApi routes))
+
 -- =======================================================================
 -- Below are the definitions that should be in Servant.API.ContentTypes
 -- =======================================================================