From 8643361d2e78c6be3acd894e4b0dedb90c2fff45 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 20 Jul 2019 12:26:24 -0700
Subject: Minor code clarity change.
---
src/Text/Pandoc/App.hs | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index f96f67314..92782742c 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -28,7 +28,7 @@ import Control.Monad
import Control.Monad.Trans
import Control.Monad.Except (throwError)
import qualified Data.ByteString as BS
-import qualified Data.ByteString.Lazy as B
+import qualified Data.ByteString.Lazy as BL
import Data.Char (toLower)
import Data.Maybe (fromMaybe, isJust, isNothing)
import qualified Data.Set as Set
@@ -112,7 +112,7 @@ convertWithOpts opts = do
return (x, rs)
case optLogFile opts of
Nothing -> return ()
- Just logfile -> B.writeFile logfile (encodeLogMessages reports)
+ Just logfile -> BL.writeFile logfile (encodeLogMessages reports)
let isWarning msg = messageVerbosity msg == WARNING
when (optFailIfWarnings opts && any isWarning reports) $
E.throwIO PandocFailOnWarningError
@@ -376,13 +376,13 @@ readSource src = case parseURI src of
readURI :: FilePath -> PandocIO Text
readURI src = UTF8.toText . fst <$> openURL src
-readFile' :: MonadIO m => FilePath -> m B.ByteString
-readFile' "-" = liftIO B.getContents
-readFile' f = liftIO $ B.readFile f
+readFile' :: MonadIO m => FilePath -> m BL.ByteString
+readFile' "-" = liftIO BL.getContents
+readFile' f = liftIO $ BL.readFile f
-writeFnBinary :: MonadIO m => FilePath -> B.ByteString -> m ()
-writeFnBinary "-" = liftIO . B.putStr
-writeFnBinary f = liftIO . B.writeFile (UTF8.encodePath f)
+writeFnBinary :: MonadIO m => FilePath -> BL.ByteString -> m ()
+writeFnBinary "-" = liftIO . BL.putStr
+writeFnBinary f = liftIO . BL.writeFile (UTF8.encodePath f)
writerFn :: MonadIO m => IO.Newline -> FilePath -> Text -> m ()
-- TODO this implementation isn't maximally efficient:
--
cgit v1.2.3