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/LaTeX.hs | |
parent | b2c58c11b20abc350c560bb4e7645194c6cb2801 (diff) | |
download | pandoc-7b971517b031e2df2edee0a39d7dc6737bcf9a38.tar.gz |
Parsing: Changed type of escaped to return Char
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 2 |
1 files changed, 1 insertions, 1 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 |