Improve authStr in markdown
commit1ba7624e698c63e19e660094dd90243bc652000a
authorishiy <y.ishihara.1993@gmail.com>
dateThu 29 Jun 2017, 19:01 (9 years ago)
parent70aae4c
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