From d1da54a4c3138df6781dfe1d67a4d83d2f8adc61 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 11 Jun 2017 21:22:44 +0200 Subject: Properly decode source from stdin. This should fix the appveyor failures. --- src/Text/Pandoc/App.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index 658266046..19066e8b7 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -56,7 +56,6 @@ import Data.Maybe (fromMaybe, isJust, isNothing) import qualified Data.Set as Set import Data.Text (Text) import qualified Data.Text as T -import qualified Data.Text.IO as T import Data.Yaml (decode) import qualified Data.Yaml as Yaml import GHC.Generics @@ -791,7 +790,7 @@ applyFilters mbDatadir filters args d = do foldrM ($) d $ map (flip externalFilter args) expandedFilters readSource :: FilePath -> PandocIO Text -readSource "-" = liftIO T.getContents +readSource "-" = liftIO (UTF8.toText <$> BS.getContents) readSource src = case parseURI src of Just u | uriScheme u `elem` ["http:","https:"] -> readURI src -- cgit v1.2.3