Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse reader: move para definition into blockElements

Browse source
This commit is contained in:
Alexander Krotov 2018-02-05 16:15:52 +03:00
parent 02cb6eb477
commit cadcf62ff3
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Readers/Muse.hs
View file

@ -267,6 +267,7 @@ parseBlock = do
res <- blockElements <|> para res <- blockElements <|> para
trace (take 60 $ show $ B.toList $ runF res def) trace (take 60 $ show $ B.toList $ runF res def)
return res return res
where para = fst <$> paraUntil (try (eof <|> void (lookAhead blockElements)))
blockElements :: PandocMonad m => MuseParser m (F Blocks) blockElements :: PandocMonad m => MuseParser m (F Blocks)
blockElements = choice [ mempty <$ blankline blockElements = choice [ mempty <$ blankline
@ -414,10 +415,6 @@ paraUntil end = do
let p = fmap (f . B.para) $ trimInlinesF $ mconcat l let p = fmap (f . B.para) $ trimInlinesF $ mconcat l
return (p, e) return (p, e)
para :: PandocMonad m => MuseParser m (F Blocks)
para =
fst <$> paraUntil (try (eof <|> void (lookAhead blockElements)))
noteMarker :: PandocMonad m => MuseParser m String noteMarker :: PandocMonad m => MuseParser m String
noteMarker = try $ do noteMarker = try $ do
char '[' char '['