diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-23 12:33:17 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-23 12:33:17 -0700 |
| commit | f67333696bc7f6e76ca7b91d8677ce709502e212 (patch) | |
| tree | ccba9a7b4fa3abc255943a80c4d18bd5bf998794 /src/Text/Pandoc/Parsing.hs | |
| parent | c69837adb648a479167be5e2d37279a02be8060c (diff) | |
| download | pandoc-f67333696bc7f6e76ca7b91d8677ce709502e212.tar.gz | |
Revert "Use local encoding for input/output rather than forcing UTF8."
This reverts commit c69837adb648a479167be5e2d37279a02be8060c.
Diffstat (limited to 'src/Text/Pandoc/Parsing.hs')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index de4e3a65d..bee96be82 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -146,6 +146,7 @@ where import Text.Pandoc.Definition import Text.Pandoc.Options import Text.Pandoc.Builder (Blocks) +import qualified Text.Pandoc.UTF8 as UTF8 (putStrLn) import Text.Parsec import Text.Parsec.Pos (newPos) import Data.Char ( toLower, toUpper, ord, isAscii, isAlphaNum, isDigit, isPunctuation ) @@ -707,7 +708,7 @@ readWith parser state input = testStringWith :: (Show a) => Parser [Char] ParserState a -> String -> IO () -testStringWith parser str = putStrLn $ show $ +testStringWith parser str = UTF8.putStrLn $ show $ readWith parser defaultParserState str -- | Parsing options. |