Improve authStr in markdown

This commit is contained in:
ishiy 2017-06-29 19:01:46 +09:00
parent 70aae4c5c0
commit 1ba7624e69

View File

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