@@ -56,7 +56,6 @@ import Data.Maybe (fromMaybe, isJust, isNothing)
5656import qualified Data.Set as Set
5757import Data.Text (Text)
5858import qualified Data.Text as T
59−import qualified Data.Text.IO as T
6059import Data.Yaml (decode)
6160import qualified Data.Yaml as Yaml
6261import GHC.Generics
@@ -791,7 +790,7 @@ applyFilters mbDatadir filters args d = do
791790 foldrM ($) d $ map (flip externalFilter args) expandedFilters
792791
793792readSource :: FilePath -> PandocIO Text
794−readSource "-" = liftIO T.getContents
793+readSource "-" = liftIO (UTF8.toText <$> BS.getContents)
795794readSource src = case parseURI src of
796795 Just u | uriScheme u `elem` ["http:","https:"] ->
797796 readURI src