From 2894c10b28634daef14d6f061c828d5994a78bfe Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 29 Oct 2021 09:50:15 -0700 Subject: Fix trypandoc so it builds with aeson > 2. --- trypandoc/trypandoc.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'trypandoc') 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 -- cgit v1.2.3