git.iko.soy/servant
on master help sign in
Improve authStr in markdown
1ba7624ishiy
servant-docs/src/Servant/Docs/Internal.hs+1
compare with master
unifiedsplit
@@ -561,6 +561,7 @@ markdown api = unlines $
561
561
562
562
563 authStr :: [DocAuthentication] -> [String]
563 authStr :: [DocAuthentication] -> [String]
564+ authStr [] = []
564 authStr auths =
565 authStr auths =
565 let authIntros = mapped %~ view authIntro $ auths
566 let authIntros = mapped %~ view authIntro $ auths
566 clientInfos = mapped %~ view authDataRequired $ auths
567 clientInfos = mapped %~ view authDataRequired $ auths