diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-10-29 09:50:15 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-10-29 09:50:32 -0700 |
| commit | 2894c10b28634daef14d6f061c828d5994a78bfe (patch) | |
| tree | 0f4317e76ddfa10e43937fd00f8828c78c8b220c /trypandoc | |
| parent | 2444cbc668eb6deaa3a1ce71dac682fab68b0aae (diff) | |
| download | pandoc-2894c10b28634daef14d6f061c828d5994a78bfe.tar.gz | |
Fix trypandoc so it builds with aeson > 2.
Diffstat (limited to 'trypandoc')
| -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 |