diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2014-09-27 22:37:54 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2014-09-27 22:40:25 +0100 |
| commit | 5cb475c37491db4bdffebfd06e55984ff118c10b (patch) | |
| tree | fa1a3e5a1b89dad397a7230db190433f1761609c /src/Text/Pandoc/Readers | |
| parent | 6740a9592a4cc20b501ea5c8d35c9fcb27203af0 (diff) | |
| download | pandoc-5cb475c37491db4bdffebfd06e55984ff118c10b.tar.gz | |
Org Reader: Parse multi-inline terms correctly in definition list
Closes #1649
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org.hs b/src/Text/Pandoc/Readers/Org.hs index b07f96846..5c00a1b27 100644 --- a/src/Text/Pandoc/Readers/Org.hs +++ b/src/Text/Pandoc/Readers/Org.hs @@ -863,7 +863,7 @@ definitionListItem parseMarkerGetLength = try $ do line1 <- anyLineNewline blank <- option "" ("\n" <$ blankline) cont <- concat <$> many (listContinuation markerLength) - term' <- parseFromString inline term + term' <- parseFromString parseInlines term contents' <- parseFromString parseBlocks $ line1 ++ blank ++ cont return $ (,) <$> term' <*> fmap (:[]) contents' |