diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-08-12 13:40:28 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-12 13:40:28 -0700 |
| commit | 0ab8670a0eb52b5da2bef64b2cc1917e4d5ddb54 (patch) | |
| tree | 42eef621e120ec47c035a3e75b289b1a17d879f2 /src/Text/Pandoc | |
| parent | 3897df868ad1e0ca5409e8fffd86c73dbf6f2b31 (diff) | |
| download | pandoc-0ab8670a0eb52b5da2bef64b2cc1917e4d5ddb54.tar.gz | |
LaTeX reader: Fixed space after \figurename etc.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 754f379f9..284dce2bc 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -1351,10 +1351,7 @@ inlineCommands = M.fromList $ ] doTerm :: PandocMonad m => Translations.Term -> LP m Inlines -doTerm term = do - s <- (symbol '~' >> return (str "\160")) <|> return space - t <- translateTerm term - return (str t <> s) +doTerm term = str <$> translateTerm term ifstrequal :: PandocMonad m => LP m Inlines ifstrequal = do |