summaryrefslogtreecommitdiff
path: root/trypandoc/trypandoc.hs
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 /trypandoc/trypandoc.hs
parent3e06172a00998dfee8cd54c90672a1059ad64532 (diff)
trypandoc: call results 'html' instead of 'result'.
This is for better compatibility with babelmark2.
Diffstat (limited to 'trypandoc/trypandoc.hs')
-rw-r--r--trypandoc/trypandoc.hs2
1 files changed, 1 insertions, 1 deletions
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)"