aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Roff.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-28 21:49:27 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-28 21:49:27 -0700
commiteb13f76deca92f460d38ce58f743a13be9358b03 (patch)
treeb462ed6157cc25d9970fdc1ec5871cee733b1a05 /src/Text/Pandoc/Readers/Roff.hs
parent8d55dc10cd61ba6ddc9067eaff6246a41557632b (diff)
downloadpandoc-eb13f76deca92f460d38ce58f743a13be9358b03.tar.gz
Roff tokenizer: handle e.g. `\*n`.
Diffstat (limited to 'src/Text/Pandoc/Readers/Roff.hs')
-rw-r--r--src/Text/Pandoc/Readers/Roff.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs
index 72c97e22f..524801a08 100644
--- a/src/Text/Pandoc/Readers/Roff.hs
+++ b/src/Text/Pandoc/Readers/Roff.hs
@@ -613,7 +613,7 @@ checkDefined name = do
escString :: PandocMonad m => RoffLexer m [LinePart]
escString = try $ do
pos <- getPosition
- (do cs <- escapeArg
+ (do cs <- escapeArg <|> count 1 alphaNum
resolveString cs pos)
<|> mempty <$ char 'S'