@@ -876,30 +876,3 @@ instance (KnownSymbol path, HasDocs sublayout) => HasDocs (path :> sublayout) wh
876876 endpoint' = endpoint & path <>~ [symbolVal pa]
877877 pa = Proxy :: Proxy path
878878
879−{-
880−
881−-- | Serve your API's docs as markdown embedded in an html \<pre> tag.
882−--
883−-- > type MyApi = "users" :> Get [User]
884−-- > :<|> "docs :> Raw
885−-- >
886−-- > apiProxy :: Proxy MyApi
887−-- > apiProxy = Proxy
888−-- >
889−-- > server :: Server MyApi
890−-- > server = listUsers
891−-- > :<|> serveDocumentation apiProxy
892−serveDocumentation :: HasDocs api => Proxy api -> Server Raw
893−serveDocumentation proxy _request respond =
894− respond $ responseLBS ok200 [] $ cs $ toHtml $ markdown $ docs proxy
895−
896−toHtml :: String -> String
897−toHtml md =
898− "<html>" ++
899− "<body>" ++
900− "<pre>" ++
901− md ++
902− "</pre>" ++
903− "</body>" ++
904− "</html>"
905−-}