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

Merge pull request #773 from ishiy1993/improve-markdown

Browse source 
Improve authStr in markdown
This commit is contained in:
Oleg Grenrus 2017-06-29 14:34:15 +02:00 committed by GitHub
commit b79a0fe0ed
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