From 1ba7624e698c63e19e660094dd90243bc652000a Mon Sep 17 00:00:00 2001
From: ishiy <y.ishihara.1993@gmail.com>
Date: Thu, 29 Jun 2017 19:01:46 +0900
Subject: [PATCH] Improve authStr in markdown

---
 servant-docs/src/Servant/Docs/Internal.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs
index 7cdbef80..f253715e 100644
--- 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