git.iko.soy/servant
on master help sign in
Merge pull request #773 from ishiy1993/improve-markdown
b79a0feOleg Grenrus
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