eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

docs(generic): Improve the documentation for genericServerT

Browse Source 
This commit adds an explanation and a link to the Servant Cookbook
to `genericServerT`.

Moreover, the `genericServer` and `genericServe`'s haddocks are
slightly edited to add a missing 'a'.
This commit is contained in:
Théophile Choutri 2020-03-04 15:53:37 +01:00
parent 5998429e81
commit b3b3dc9f41
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
servant-server/src/Servant/Server/Generic.hs
View File

@ -31,7 +31,7 @@ instance GenericMode (AsServerT m) where
type AsServer = AsServerT Handler
-- | Transform record of routes into a WAI 'Application'.
-- | Transform a record of routes into a WAI 'Application'.
genericServe
:: forall routes.
( HasServer (ToServantApi routes) '[]
@ -80,13 +80,17 @@ genericServeTWithContext f server ctx =
p = genericApi (Proxy :: Proxy routes)
pctx = Proxy :: Proxy ctx
-- | Transform record of endpoints into a 'Server'.
-- | Transform a record of endpoints into a 'Server'.
genericServer
:: GenericServant routes AsServer
=> routes AsServer
-> ToServant routes AsServer
genericServer = toServant
-- | Transform a record of endpoints into a @'ServerT' m@.
--
-- You can see an example usage of this function
-- <https://docs.servant.dev/en/stable/cookbook/generic/Generic.html#using-generics-together-with-a-custom-monad in the Servant Cookbook>.
genericServerT
:: GenericServant routes (AsServerT m)
=> routes (AsServerT m)