c8aa53f · typeable/servant

git.iko.soy/typeable/servant

Merge pull request #63 from haskell-servant/docs-exports

add missing exports (lenses) to servant-docs's Servant.Docs module

commitc8aa53f1a4b1ddfb7f3ea4179707cac7cbe27f3e authorAlp Mestanogullari <alpmestan@gmail.com> dateSat 9 May 2015, 16:09 (11 years ago) parentfc517a2 b6f7efe

2 files changed+3−3

compare with master

unifiedsplit

servant-docs/src/Servant/Docs.hs+2−2 servant-docs/src/Servant/Docs/Internal.hs+1−1

servant-docs/src/Servant/Docs.hs+2−2

@@ -155,11 +155,11 @@ module Servant.Docs

155155 , -- * ADTs to represent an 'API'

156156 Method(..)

157157 , Endpoint, path, method, defEndpoint

158− , API, emptyAPI

158+ , API, apiIntros, apiEndpoints, emptyAPI

159159 , DocCapture(..), capSymbol, capDesc

160160 , DocQueryParam(..), ParamKind(..), paramName, paramValues, paramDesc, paramKind

161161 , DocNote(..), noteTitle, noteBody

162− , DocIntro(..)

162+ , DocIntro(..), introTitle, introBody

163163 , Response(..), respStatus, respTypes, respBody, defResponse

164164 , Action, captures, headers, notes, params, rqtypes, rqbody, response, defAction

165165 , single

servant-docs/src/Servant/Docs/Internal.hs+1−1

@@ -495,7 +495,7 @@ markdown api = unlines $

495495

496496 introStr :: DocIntro -> [String]

497497 introStr i =

498− ("#### " ++ i ^. introTitle) :

498+ ("## " ++ i ^. introTitle) :

499499 "" :

500500 intersperse "" (i ^. introBody) ++

501501 "" :