lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-24 17:26:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

hlint Muse reader (#3884)

Browse Source
This commit is contained in:
Alexander
2017-08-29 09:15:06 -07:00
committed by John MacFarlane
parent 22a4adf4ec
commit 2d936ff4e0
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Muse.hs
+3 -4
View File
@@ -261,8 +261,7 @@ verseLines = do
verseTag :: PandocMonad m => MuseParser m (F Blocks)
verseTag = do
(_, content) <- htmlElement "verse"
parsedContent <- parseFromString verseLines content
return parsedContent
parseFromString verseLines content
commentTag :: PandocMonad m => MuseParser m (F Blocks)
commentTag = parseHtmlContent "comment" anyChar >> return mempty
@@ -379,8 +378,8 @@ definitionListItem = try $ do
pure $ do lineContent' <- lineContent
pure (B.text term, [lineContent'])
where
termParser = (many1 spaceChar) >> -- Initial space as required by Amusewiki, but not Emacs Muse
(many1Till anyChar $ lookAhead (void (try (spaceChar >> string "::")) <|> void newline))
termParser = many1 spaceChar >> -- Initial space as required by Amusewiki, but not Emacs Muse
many1Till anyChar (lookAhead (void (try (spaceChar >> string "::")) <|> void newline))
endOfInput = try $ skipMany blankline >> skipSpaces >> eof
twoBlankLines = try $ blankline >> skipMany1 blankline
newDefinitionListItem = try $ void termParser