aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-04-19 23:01:52 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-04-19 23:01:52 -0700
commitf508c833f163f25b5ca203b96876f277dd927282 (patch)
tree32d3c087b7514ac5f8368fe9501ab419de89d456 /src/Text
parent276894a2f2f7421c3470a4d50af94774ebef62d7 (diff)
downloadpandoc-f508c833f163f25b5ca203b96876f277dd927282.tar.gz
Markdown reader: allow empty attributes.
See #2944.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 3a1346fdc..0d1a83bab 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -674,6 +674,8 @@ keyValAttr = try $ do
char '='
val <- enclosed (char '"') (char '"') litChar
<|> enclosed (char '\'') (char '\'') litChar
+ <|> ("" <$ try (string "\"\""))
+ <|> ("" <$ try (string "''"))
<|> many (escapedChar' <|> noneOf " \t\n\r}")
return $ \(id',cs,kvs) ->
case key of