From 1631ae644cab55b8d296649caf9efe27146c19b5 Mon Sep 17 00:00:00 2001 From: "Julian K. Arni" Date: Wed, 6 May 2015 16:49:49 +0200 Subject: [PATCH] remove serveDocumentation references/code --- servant-docs/src/Servant/Docs/Internal.hs | 27 ----------------------- servant/src/Servant/API/Raw.hs | 3 +-- 2 files changed, 1 insertion(+), 29 deletions(-) diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs index 35671592..4baf6396 100644 --- a/servant-docs/src/Servant/Docs/Internal.hs +++ b/servant-docs/src/Servant/Docs/Internal.hs @@ -876,30 +876,3 @@ instance (KnownSymbol path, HasDocs sublayout) => HasDocs (path :> sublayout) wh endpoint' = endpoint & path <>~ [symbolVal pa] pa = Proxy :: Proxy path -{- - --- | Serve your API's docs as markdown embedded in an html \
 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 =
-  "" ++
-  "" ++
-  "
" ++
-  md ++
-  "
" ++
-  "" ++
-  ""
--}
diff --git a/servant/src/Servant/API/Raw.hs b/servant/src/Servant/API/Raw.hs
index 06f5bdb9..0d66bb43 100644
--- a/servant/src/Servant/API/Raw.hs
+++ b/servant/src/Servant/API/Raw.hs
@@ -10,6 +10,5 @@ import Data.Typeable (Typeable)
 --
 -- 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
--- static files stored in a particular directory on your filesystem, or to serve
--- your API's documentation with 'Servant.Utils.StaticFiles.serveDocumentation'.
+-- static files stored in a particular directory on your filesystem
 data Raw deriving Typeable