diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-05 20:22:27 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-05 20:22:27 -0800 |
commit | 7b971517b031e2df2edee0a39d7dc6737bcf9a38 (patch) | |
tree | 6878577a4d8e37619c35969c6fc8b80da678852d /src/Text/Pandoc/Readers | |
parent | b2c58c11b20abc350c560bb4e7645194c6cb2801 (diff) | |
download | pandoc-7b971517b031e2df2edee0a39d7dc6737bcf9a38.tar.gz |
Parsing: Changed type of escaped to return Char
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 2 | ||||
-rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index a6b7cc19a..9610b75a5 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -677,7 +677,7 @@ sect = try (string "\\S") >> return (Str [chr 167]) escapedChar :: GenParser Char st Inline escapedChar = do result <- escaped (oneOf specialChars) - return $ if result == Str "\n" then Str " " else result + return $ if result == '\n' then Str " " else Str [result] emptyGroup :: GenParser Char st Inline emptyGroup = try $ do diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 49ddb90fc..3dcfe47d0 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -750,7 +750,8 @@ hyphens = do return $ Str result escapedChar :: GenParser Char st Inline -escapedChar = escaped anyChar +escapedChar = do c <- escaped anyChar + return $ Str [c] symbol :: GenParser Char ParserState Inline symbol = do |