From 48c78713c8faf445bed23ae3005abdba3273346b Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 11 Feb 2017 22:58:22 +0100 Subject: Rename logMessagesToJSON -> encodeLogMessages. --- src/Text/Pandoc/App.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Text/Pandoc/App.hs') diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index e4e47c1bf..a4f48e336 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -76,7 +76,6 @@ import qualified Data.Yaml as Yaml import qualified Data.Text as T import System.Console.GetOpt import Text.Pandoc.Class (withMediaBag, PandocIO, getLog) -import Text.Pandoc.Logging (logMessagesToJSON) import Paths_pandoc (getDataDir) #ifndef _WINDOWS import System.Posix.Terminal (queryTerminal) @@ -351,7 +350,7 @@ convertWithOpts opts = do return (x, rs) case optLogFile opts of Nothing -> return () - Just logfile -> B.writeFile logfile (logMessagesToJSON reports) + Just logfile -> B.writeFile logfile (encodeLogMessages reports) let isWarning msg = messageVerbosity msg == WARNING when (optFailIfWarnings opts && any isWarning reports) $ err 3 "Failing because there were warnings." -- cgit v1.2.3