diff options
| -rw-r--r-- | trypandoc/trypandoc.hs | 6 |
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 |