aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Roff.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-28 21:58:31 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-28 21:58:31 -0700
commit39f026298d83316de8a64664059f75c4a5c7dc63 (patch)
tree9d007a7b966df498afe2d5edacb014baaf02529b /src/Text/Pandoc/Readers/Roff.hs
parenteb13f76deca92f460d38ce58f743a13be9358b03 (diff)
downloadpandoc-39f026298d83316de8a64664059f75c4a5c7dc63.tar.gz
Roff tokenizer: allow `\*~` etc.
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 524801a08..da33651d2 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 <|> count 1 alphaNum
+ (do cs <- escapeArg <|> count 1 anyChar
resolveString cs pos)
<|> mempty <$ char 'S'