on master help sign in
Merge pull request #63 from haskell-servant/docs-exports
c8aa53fAlp Mestanogullari
servant-docs/src/Servant/Docs.hs+2−2
@@ -155,11 +155,11 @@ module Servant.Docs
155 , -- * ADTs to represent an 'API'
155 , -- * ADTs to represent an 'API'
156 Method(..)
156 Method(..)
157 , Endpoint, path, method, defEndpoint
157 , Endpoint, path, method, defEndpoint
158− , API, emptyAPI
158+ , API, apiIntros, apiEndpoints, emptyAPI
159 , DocCapture(..), capSymbol, capDesc
159 , DocCapture(..), capSymbol, capDesc
160 , DocQueryParam(..), ParamKind(..), paramName, paramValues, paramDesc, paramKind
160 , DocQueryParam(..), ParamKind(..), paramName, paramValues, paramDesc, paramKind
161 , DocNote(..), noteTitle, noteBody
161 , DocNote(..), noteTitle, noteBody
162− , DocIntro(..)
162+ , DocIntro(..), introTitle, introBody
163 , Response(..), respStatus, respTypes, respBody, defResponse
163 , Response(..), respStatus, respTypes, respBody, defResponse
164 , Action, captures, headers, notes, params, rqtypes, rqbody, response, defAction
164 , Action, captures, headers, notes, params, rqtypes, rqbody, response, defAction
165 , single
165 , single
servant-docs/src/Servant/Docs/Internal.hs+1−1
@@ -495,7 +495,7 @@ markdown api = unlines $
495
495
496 introStr :: DocIntro -> [String]
496 introStr :: DocIntro -> [String]
497 introStr i =
497 introStr i =
498− ("#### " ++ i ^. introTitle) :
498+ ("## " ++ i ^. introTitle) :
499 "" :
499 "" :
500 intersperse "" (i ^. introBody) ++
500 intersperse "" (i ^. introBody) ++
501 "" :
501 "" :