diff --git a/servant-docs/src/Servant/Docs.hs b/servant-docs/src/Servant/Docs.hs
index 706ede3e..627f9593 100644
--- a/servant-docs/src/Servant/Docs.hs
+++ b/servant-docs/src/Servant/Docs.hs
@@ -155,11 +155,11 @@ module Servant.Docs
   , -- * ADTs to represent an 'API'
     Method(..)
   , Endpoint, path, method, defEndpoint
-  , API, emptyAPI
+  , API, apiIntros, apiEndpoints, emptyAPI
   , DocCapture(..), capSymbol, capDesc
   , DocQueryParam(..), ParamKind(..), paramName, paramValues, paramDesc, paramKind
   , DocNote(..), noteTitle, noteBody
-  , DocIntro(..)
+  , DocIntro(..), introTitle, introBody
   , Response(..), respStatus, respTypes, respBody, defResponse
   , Action, captures, headers, notes, params, rqtypes, rqbody, response, defAction
   , single
diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs
index f0e18456..c1e5b724 100644
--- a/servant-docs/src/Servant/Docs/Internal.hs
+++ b/servant-docs/src/Servant/Docs/Internal.hs
@@ -495,7 +495,7 @@ markdown api = unlines $
 
         introStr :: DocIntro -> [String]
         introStr i =
-            ("#### " ++ i ^. introTitle) :
+            ("## " ++ i ^. introTitle) :
             "" :
             intersperse "" (i ^. introBody) ++
             "" :