@@ -28,7 +28,7 @@ import Control.Monad
2828import Control.Monad.Trans
2929import Control.Monad.Except (throwError)
3030import qualified Data.ByteString as BS
31−import qualified Data.ByteString.Lazy as B
31+import qualified Data.ByteString.Lazy as BL
3232import Data.Char (toLower)
3333import Data.Maybe (fromMaybe, isJust, isNothing)
3434import qualified Data.Set as Set
@@ -112,7 +112,7 @@ convertWithOpts opts = do
112112 return (x, rs)
113113 case optLogFile opts of
114114 Nothing -> return ()
115− Just logfile -> B.writeFile logfile (encodeLogMessages reports)
115+ Just logfile -> BL.writeFile logfile (encodeLogMessages reports)
116116 let isWarning msg = messageVerbosity msg == WARNING
117117 when (optFailIfWarnings opts && any isWarning reports) $
118118 E.throwIO PandocFailOnWarningError
@@ -376,13 +376,13 @@ readSource src = case parseURI src of
376376readURI :: FilePath -> PandocIO Text
377377readURI src = UTF8.toText . fst <$> openURL src
378378
379−readFile' :: MonadIO m => FilePath -> m B.ByteString
380−readFile' "-" = liftIO B.getContents
381−readFile' f = liftIO $ B.readFile f
379+readFile' :: MonadIO m => FilePath -> m BL.ByteString
380+readFile' "-" = liftIO BL.getContents
381+readFile' f = liftIO $ BL.readFile f
382382
383−writeFnBinary :: MonadIO m => FilePath -> B.ByteString -> m ()
384−writeFnBinary "-" = liftIO . B.putStr
385−writeFnBinary f = liftIO . B.writeFile (UTF8.encodePath f)
383+writeFnBinary :: MonadIO m => FilePath -> BL.ByteString -> m ()
384+writeFnBinary "-" = liftIO . BL.putStr
385+writeFnBinary f = liftIO . BL.writeFile (UTF8.encodePath f)
386386
387387writerFn :: MonadIO m => IO.Newline -> FilePath -> Text -> m ()
388388-- TODO this implementation isn't maximally efficient: