Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fix trypandoc so it builds with aeson > 2.

Browse source
This commit is contained in:
John MacFarlane 2021-10-29 09:50:15 -07:00
parent 2444cbc668
commit 2894c10b28
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
trypandoc/trypandoc.hs
View file

@ -52,12 +52,12 @@ app req respond = do
let result = case runPure $ reader (tabFilter 4 text) >>= writer of let result = case runPure $ reader (tabFilter 4 text) >>= writer of
Right s -> s Right s -> s
Left err -> error (show err) Left err -> error (show err)
let output = encode $ object [ T.pack "html" .= result let output = encode $ object [ "html" .= result
, T.pack "name" .= , "name" .=
if fromFormat == "markdown_strict" if fromFormat == "markdown_strict"
then T.pack "pandoc (strict)" then T.pack "pandoc (strict)"
else T.pack "pandoc" else T.pack "pandoc"
, T.pack "version" .= pandocVersion] , "version" .= pandocVersion]
respond $ responseLBS status200 [(hContentType,"text/json; charset=UTF-8")] output respond $ responseLBS status200 [(hContentType,"text/json; charset=UTF-8")] output
checkLength :: Text -> IO Text checkLength :: Text -> IO Text