aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-08-08 20:55:00 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-08-08 20:55:00 -0700
commit467e3be700888863d8ba53680bc2553f6030b393 (patch)
tree9282c3d0e2a751524b45043ed6ba4bf11932d451 /src/Text/Pandoc
parent02f4e640ac5d3b8bfe9388fe3bf665e36a6bbb5c (diff)
downloadpandoc-467e3be700888863d8ba53680bc2553f6030b393.tar.gz
MediaWiki reader: handle unquoted table attributes.
Closes #2355.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/MediaWiki.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index 2a5adab22..b23b44544 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -252,8 +252,8 @@ parseAttr = try $ do
skipMany spaceChar
k <- many1 letter
char '='
- char '"'
- v <- many1Till (satisfy (/='\n')) (char '"')
+ v <- (char '"' >> many1Till (satisfy (/='\n')) (char '"'))
+ <|> many1 nonspaceChar
return (k,v)
tableStart :: MWParser ()