8643361 · typeable/pandoc

28import Control.Monad.Trans

29import Control.Monad.Except (throwError)

30import qualified Data.ByteString as BS

31−import qualified Data.ByteString.Lazy as B

31+import qualified Data.ByteString.Lazy as BL

32import Data.Char (toLower)

33import Data.Maybe (fromMaybe, isJust, isNothing)

34import qualified Data.Set as Set

112 return (x, rs)

113 case optLogFile opts of

114 Nothing -> return ()

115− Just logfile -> B.writeFile logfile (encodeLogMessages reports)

115+ Just logfile -> BL.writeFile logfile (encodeLogMessages reports)

116 let isWarning msg = messageVerbosity msg == WARNING

117 when (optFailIfWarnings opts && any isWarning reports) $

118 E.throwIO PandocFailOnWarningError

376readURI :: FilePath -> PandocIO Text

377readURI src = UTF8.toText . fst <$> openURL src

378

379−readFile' :: MonadIO m => FilePath -> m B.ByteString

379+readFile' :: MonadIO m => FilePath -> m BL.ByteString

380−readFile' "-" = liftIO B.getContents

380+readFile' "-" = liftIO BL.getContents

381−readFile' f = liftIO $ B.readFile f

381+readFile' f = liftIO $ BL.readFile f

382

383−writeFnBinary :: MonadIO m => FilePath -> B.ByteString -> m ()

383+writeFnBinary :: MonadIO m => FilePath -> BL.ByteString -> m ()

384−writeFnBinary "-" = liftIO . B.putStr

384+writeFnBinary "-" = liftIO . BL.putStr

385−writeFnBinary f = liftIO . B.writeFile (UTF8.encodePath f)

385+writeFnBinary f = liftIO . BL.writeFile (UTF8.encodePath f)

386

387writerFn :: MonadIO m => IO.Newline -> FilePath -> Text -> m ()

388-- TODO this implementation isn't maximally efficient: