summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-06-07 23:37:21 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2016-06-07 23:37:48 -0700
commit43382cead2f578be6e1f4a2813165e51e017e2e3 (patch)
treefa02d94b5c4242feeca7c40179e1b528bd6f0e31
parent3e06172a00998dfee8cd54c90672a1059ad64532 (diff)
trypandoc: call results 'html' instead of 'result'.
This is for better compatibility with babelmark2.
-rw-r--r--trypandoc/index.html2
-rw-r--r--trypandoc/trypandoc.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/trypandoc/index.html b/trypandoc/index.html
index c46f4d132..d9674793b 100644
--- a/trypandoc/index.html
+++ b/trypandoc/index.html
@@ -39,7 +39,7 @@ $(document).ready(function() {
if (text && text != "") {
$.getJSON("/cgi-bin/trypandoc", { from: from, to: to, text: text },
function(res) {
- $("#results").text(res.result);
+ $("#results").text(res.html);
$("#version").text(res.version);
$("#command").text("pandoc --from " + from + " --to " + to);
});
diff --git a/trypandoc/trypandoc.hs b/trypandoc/trypandoc.hs
index 8f1b3278e..e11c90a40 100644
--- a/trypandoc/trypandoc.hs
+++ b/trypandoc/trypandoc.hs
@@ -33,7 +33,7 @@ app req respond = do
let result = case reader $ tabFilter 4 $ T.unpack text of
Right doc -> T.pack $ writer doc
Left err -> error (show err)
- let output = encode $ object [ T.pack "result" .= result
+ let output = encode $ object [ T.pack "html" .= result
, T.pack "name" .=
if fromFormat == "markdown_strict"
then T.pack "pandoc (strict)"