diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Fields.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Fields.hs b/src/Text/Pandoc/Readers/Docx/Fields.hs index 79c4cca3f..08e253ffb 100644 --- a/src/Text/Pandoc/Readers/Docx/Fields.hs +++ b/src/Text/Pandoc/Readers/Docx/Fields.hs @@ -110,7 +110,7 @@ hyperlink = do many space string "HYPERLINK" spaces - farg <- fieldArgument + farg <- option "" $ notFollowedBy (char '\\') *> fieldArgument switches <- spaces *> many hyperlinkSwitch let url = case switches of ("\\l", s) : _ -> farg <> "#" <> s |