diff --git a/servant/src/Servant/API/Generic.hs b/servant/src/Servant/API/Generic.hs index b887c09e..6262e539 100644 --- a/servant/src/Servant/API/Generic.hs +++ b/servant/src/Servant/API/Generic.hs @@ -37,6 +37,8 @@ module Servant.API.Generic ( ToServant, toServant, fromServant, + -- * NamedRoutes combinator + NamedRoutes, -- * AsApi AsApi, ToServantApi, @@ -120,6 +122,9 @@ genericApi -> Proxy (ToServantApi routes) genericApi _ = Proxy +-- | Combinator for embedding a record of named routes into a Servant API type. +data NamedRoutes (api :: * -> *) + ------------------------------------------------------------------------------- -- Class -------------------------------------------------------------------------------