Merge pull request #773 from ishiy1993/improve-markdown

Improve authStr in markdown
2017-06-29 14:34:15 +02:00 · 2017-06-29 14:34:15 +02:00 · b79a0fe0ed
commit b79a0fe0ed
parent 70aae4c5c0 1ba7624e69
1 changed files with 1 additions and 0 deletions
--- a/servant-docs/src/Servant/Docs/Internal.hs
+++ b/servant-docs/src/Servant/Docs/Internal.hs
@ -561,6 +561,7 @@ markdown api = unlines $


        authStr :: [DocAuthentication] -> [String]
+        authStr [] = []
        authStr auths =
          let authIntros = mapped %~ view authIntro $ auths
              clientInfos = mapped %~ view authDataRequired $ auths