Merge pull request #773 from ishiy1993/improve-markdown
Improve authStr in markdown
commitb79a0fe0ed714f7b81a6e21284b18823a396ae7c
authorOleg Grenrus <oleg.grenrus@iki.fi>
dateThu 29 Jun 2017, 14:34 (9 years ago)
parent70aae4c1ba7624
servant-docs/src/Servant/Docs/Internal.hs+1
@@ -561,6 +561,7 @@ markdown api = unlines $
561561
562562
563563 authStr :: [DocAuthentication] -> [String]
564+ authStr [] = []
564565 authStr auths =
565566 let authIntros = mapped %~ view authIntro $ auths
566567 clientInfos = mapped %~ view authDataRequired $ auths