diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-23 22:53:34 -0700 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-23 22:53:34 -0700 |
commit | 12045d84b6f20c9d959f61d376bd89e722f7f50c (patch) | |
tree | aa529ca369416e54782d8cd00b4a5c8f18a9034f /src/Text/Pandoc/Parsing.hs | |
parent | 7272735b3d413a644fd9ab01eeae8ae9cd5a925b (diff) |
Revert "More intelligent handling of text encodings."
This reverts commit 7272735b3d413a644fd9ab01eeae8ae9cd5a925b.
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. |