aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--trypandoc/trypandoc.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/trypandoc/trypandoc.hs b/trypandoc/trypandoc.hs
index f2cc499c3..5a3432ffe 100644
--- a/trypandoc/trypandoc.hs
+++ b/trypandoc/trypandoc.hs
@@ -52,12 +52,12 @@ app req respond = do
let result = case runPure $ reader (tabFilter 4 text) >>= writer of
Right s -> s
Left err -> error (show err)
- let output = encode $ object [ T.pack "html" .= result
- , T.pack "name" .=
+ let output = encode $ object [ "html" .= result
+ , "name" .=
if fromFormat == "markdown_strict"
then T.pack "pandoc (strict)"
else T.pack "pandoc"
- , T.pack "version" .= pandocVersion]
+ , "version" .= pandocVersion]
respond $ responseLBS status200 [(hContentType,"text/json; charset=UTF-8")] output
checkLength :: Text -> IO Text