git.iko.soy/servant
on master help sign in
Add support for NamedRoutes in servant-docs
9c81b49Gaël Deest
servant-docs/src/Servant/Docs/Internal.hs+4
compare with master
unifiedsplit
@@ -62,6 +62,7 @@ import GHC.TypeLits
62import Servant.API
62import Servant.API
63import Servant.API.ContentTypes
63import Servant.API.ContentTypes
64import Servant.API.TypeLevel
64import Servant.API.TypeLevel
65+import Servant.API.Generic
65
66
66import qualified Data.Universe.Helpers as U
67import qualified Data.Universe.Helpers as U
67
68
@@ -1150,6 +1151,9 @@ instance (ToAuthInfo (BasicAuth realm usr), HasDocs api) => HasDocs (BasicAuth r
1150 authProxy = Proxy :: Proxy (BasicAuth realm usr)
1151 authProxy = Proxy :: Proxy (BasicAuth realm usr)
1151 action' = over authInfo (|> toAuthInfo authProxy) action
1152 action' = over authInfo (|> toAuthInfo authProxy) action
1152
1153
1154+instance HasDocs (ToServantApi api) => HasDocs (NamedRoutes api) where
1155+ docsFor Proxy = docsFor (Proxy :: Proxy (ToServantApi api))
1156+
1153-- ToSample instances for simple types
1157-- ToSample instances for simple types
1154instance ToSample NoContent
1158instance ToSample NoContent
1155instance ToSample Bool
1159instance ToSample Bool