Improve authStr in markdown

2017-06-29 19:01:46 +09:00 · 2017-06-29 19:01:46 +09:00 · 1ba7624e69
commit 1ba7624e69
parent 70aae4c5c0
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