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

trypandoc: call results 'html' instead of 'result'.

Browse source 
This is for better compatibility with babelmark2.
This commit is contained in:
John MacFarlane 2016-06-07 23:37:21 -07:00
parent 3e06172a00
commit 43382cead2
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
trypandoc/index.html
View file

@ -39,7 +39,7 @@ $(document).ready(function() {
if (text && text != "") { if (text && text != "") {
$.getJSON("/cgi-bin/trypandoc", { from: from, to: to, text: text }, $.getJSON("/cgi-bin/trypandoc", { from: from, to: to, text: text },
function(res) { function(res) {
$("#results").text(res.result); $("#results").text(res.html);
$("#version").text(res.version); $("#version").text(res.version);
$("#command").text("pandoc --from " + from + " --to " + to); $("#command").text("pandoc --from " + from + " --to " + to);
}); });

2
trypandoc/trypandoc.hs
View file

@ -33,7 +33,7 @@ app req respond = do
let result = case reader $ tabFilter 4 $ T.unpack text of let result = case reader $ tabFilter 4 $ T.unpack text of
Right doc -> T.pack $ writer doc Right doc -> T.pack $ writer doc
Left err -> error (show err) Left err -> error (show err)
let output = encode $ object [ T.pack "result" .= result let output = encode $ object [ T.pack "html" .= result
, T.pack "name" .= , T.pack "name" .=
if fromFormat == "markdown_strict" if fromFormat == "markdown_strict"
then T.pack "pandoc (strict)" then T.pack "pandoc (strict)"