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

remove serveDocumentation references/code

Browse source
This commit is contained in:
Julian K. Arni 2015-05-06 16:49:49 +02:00
parent a058cd4bf4
commit 1631ae644c
2 changed files with 1 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -876,30 +876,3 @@ instance (KnownSymbol path, HasDocs sublayout) => HasDocs (path :> sublayout) wh
endpoint' = endpoint & path <>~ [symbolVal pa] endpoint' = endpoint & path <>~ [symbolVal pa]
pa = Proxy :: Proxy path pa = Proxy :: Proxy path
{-
-- | Serve your API's docs as markdown embedded in an html \<pre> tag.
--
-- > type MyApi = "users" :> Get [User]
-- > :<|> "docs :> Raw
-- >
-- > apiProxy :: Proxy MyApi
-- > apiProxy = Proxy
-- >
-- > server :: Server MyApi
-- > server = listUsers
-- > :<|> serveDocumentation apiProxy
serveDocumentation :: HasDocs api => Proxy api -> Server Raw
serveDocumentation proxy _request respond =
respond $ responseLBS ok200 [] $ cs $ toHtml $ markdown $ docs proxy
toHtml :: String -> String
toHtml md =
"<html>" ++
"<body>" ++
"<pre>" ++
md ++
"</pre>" ++
"</body>" ++
"</html>"
-}

3
servant/src/Servant/API/Raw.hs
View file

@ -10,6 +10,5 @@ import Data.Typeable (Typeable)
-- --
-- In addition to just letting you plug in your existing WAI 'Application's, -- In addition to just letting you plug in your existing WAI 'Application's,
-- this can also be used with 'Servant.Utils.StaticFiles.serveDirectory' to serve -- this can also be used with 'Servant.Utils.StaticFiles.serveDirectory' to serve
-- static files stored in a particular directory on your filesystem, or to serve -- static files stored in a particular directory on your filesystem
-- your API's documentation with 'Servant.Utils.StaticFiles.serveDocumentation'.
data Raw deriving Typeable data Raw deriving Typeable