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

examples: don't depend on pandoc & servant-pandoc, just serve a markdown file

Browse Source
This commit is contained in:
Alp Mestanogullari 2015-05-09 16:27:36 +02:00
parent 616b203792
commit a403eee488
2 changed files with 4 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
servant-examples/getting-started/GS10.hs
View File

@ -13,9 +13,6 @@ import Network.HTTP.Types
import Network.Wai
import Servant
import Servant.Docs
import Servant.Docs.Pandoc (pandoc)
import Text.Pandoc.Options (def, WriterOptions(..))
import Text.Pandoc.Writers.HTML (writeHtmlString)
import qualified GS3
type DocsAPI = GS3.API :<|> Raw
@ -57,38 +54,18 @@ api = Proxy
docsBS :: ByteString
docsBS = encodeUtf8
. pack
. writeHtmlString opts
. pandoc
. markdown
$ docsWithIntros [intro] GS3.api
where opts = def { writerHtml5 = True
, writerTableOfContents = True
, writerHighlight = True
, writerStandalone = True
, writerTemplate =
concat
[ "<!DOCTYPE html><html>"
, "<head>"
, "<meta charset=\"UTF-8\">"
, "<title>API Docs - $title$</title>"
, "</head>"
, "<body>"
, "$toc$"
, "<hr />"
, "$body$"
, "</body>"
, "</html>"
]
}
intro = DocIntro "Welcome" ["This is our super webservice's API.", "Enjoy!"]
where intro = DocIntro "Welcome" ["This is our super webservice's API.", "Enjoy!"]
server :: Server DocsAPI
server = GS3.server :<|> serveDocs
where serveDocs _ respond =
respond $ responseLBS ok200 [html] docsBS
respond $ responseLBS ok200 [plain] docsBS
html = ("Content-Type", "text/html")
plain = ("Content-Type", "text/plain")
app :: Application
app = serve api server

2
servant-examples/servant-examples.cabal
View File

@ -25,13 +25,11 @@ executable getting-started
, http-types
, js-jquery
, lucid
, pandoc
, probable
, servant
, servant-docs
, servant-jquery
, servant-lucid
, servant-pandoc >= 0.2
, servant-server
, text
, time