From 9c81b4927a13dcc54f94da37d8b98f6d2a89ef84 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ga=C3=ABl=20Deest?= Date: Sun, 17 Apr 2022 19:06:45 +0200 Subject: [PATCH] Add support for NamedRoutes in servant-docs --- servant-docs/src/Servant/Docs/Internal.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs index 0b37b1d4..b5c4bf1f 100644 --- a/servant-docs/src/Servant/Docs/Internal.hs +++ b/servant-docs/src/Servant/Docs/Internal.hs @@ -62,6 +62,7 @@ import GHC.TypeLits import Servant.API import Servant.API.ContentTypes import Servant.API.TypeLevel +import Servant.API.Generic import qualified Data.Universe.Helpers as U @@ -1150,6 +1151,9 @@ instance (ToAuthInfo (BasicAuth realm usr), HasDocs api) => HasDocs (BasicAuth r authProxy = Proxy :: Proxy (BasicAuth realm usr) action' = over authInfo (|> toAuthInfo authProxy) action +instance HasDocs (ToServantApi api) => HasDocs (NamedRoutes api) where + docsFor Proxy = docsFor (Proxy :: Proxy (ToServantApi api)) + -- ToSample instances for simple types instance ToSample NoContent instance ToSample Bool