eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

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

Browse source 
add missing exports (lenses) to servant-docs's Servant.Docs module
This commit is contained in:
Alp Mestanogullari 2015-05-09 16:09:54 +01:00
commit c8aa53f1a4
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-docs/src/Servant/Docs.hs
View file

@ -155,11 +155,11 @@ module Servant.Docs
, -- * ADTs to represent an 'API' , -- * ADTs to represent an 'API'
Method(..) Method(..)
, Endpoint, path, method, defEndpoint , Endpoint, path, method, defEndpoint
, API, emptyAPI , API, apiIntros, apiEndpoints, emptyAPI
, DocCapture(..), capSymbol, capDesc , DocCapture(..), capSymbol, capDesc
, DocQueryParam(..), ParamKind(..), paramName, paramValues, paramDesc, paramKind , DocQueryParam(..), ParamKind(..), paramName, paramValues, paramDesc, paramKind
, DocNote(..), noteTitle, noteBody , DocNote(..), noteTitle, noteBody
, DocIntro(..) , DocIntro(..), introTitle, introBody
, Response(..), respStatus, respTypes, respBody, defResponse , Response(..), respStatus, respTypes, respBody, defResponse
, Action, captures, headers, notes, params, rqtypes, rqbody, response, defAction , Action, captures, headers, notes, params, rqtypes, rqbody, response, defAction
, single , single

2
servant-docs/src/Servant/Docs/Internal.hs
View file

@ -495,7 +495,7 @@ markdown api = unlines $
introStr :: DocIntro -> [String] introStr :: DocIntro -> [String]
introStr i = introStr i =
("#### " ++ i ^. introTitle) : ("## " ++ i ^. introTitle) :
"" : "" :
intersperse "" (i ^. introBody) ++ intersperse "" (i ^. introBody) ++
"" : "" :