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

Improve authStr in markdown

Browse source
This commit is contained in:
ishiy 2017-06-29 19:01:46 +09:00
parent 70aae4c5c0
commit 1ba7624e69
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
servant-docs/src/Servant/Docs/Internal.hs
View file

@ -561,6 +561,7 @@ markdown api = unlines $
authStr :: [DocAuthentication] -> [String] authStr :: [DocAuthentication] -> [String]
authStr [] = []
authStr auths = authStr auths =
let authIntros = mapped %~ view authIntro $ auths let authIntros = mapped %~ view authIntro $ auths
clientInfos = mapped %~ view authDataRequired $ auths clientInfos = mapped %~ view authDataRequired $ auths