diff options
Diffstat (limited to 'src/Text/Pandoc/Readers/RST.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 72f7dbe11..5d5e176ee 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -1536,11 +1536,12 @@ hyphens = do escapedChar :: Monad m => RSTParser m Inlines escapedChar = do c <- escaped anyChar - unless (canPrecedeOpener c) updateLastStrPos - return $ if c == ' ' || c == '\n' || c == '\r' - -- '\ ' is null in RST - then mempty - else B.str $ T.singleton c + if c == ' ' || c == '\n' || c == '\r' + -- '\ ' is null in RST + then return mempty + else do + unless (canPrecedeOpener c) updateLastStrPos + return $ B.str $ T.singleton c canPrecedeOpener :: Char -> Bool canPrecedeOpener c = |