diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-28 08:35:00 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-28 08:49:55 +0300 |
| commit | 05275be2cb576561b36a111d04fb42a197ddbab6 (patch) | |
| tree | 2cd8533454dc903fc361f68704a4c8fe9ab581d9 /src/Text | |
| parent | 4bfab8f04c105f111d8d4e1c3ed7f7b5c75dbd19 (diff) | |
| download | pandoc-05275be2cb576561b36a111d04fb42a197ddbab6.tar.gz | |
Muse reader: make verseLine return Inlines, not String
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 995a3ae9e..27d5922a0 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -302,17 +302,17 @@ divTag = do (attrs, content) <- parseHtmlContentWithAttrs "div" parseBlock return $ B.divWith attrs <$> mconcat content -verseLine :: PandocMonad m => MuseParser m String +verseLine :: PandocMonad m => MuseParser m (F Inlines) verseLine = do line <- anyLine <|> many1Till anyChar eof let (white, rest) = span (== ' ') line - return $ replicate (length white) '\160' ++ rest + let s = replicate (length white) '\160' ++ rest + parseFromString' (trimInlinesF . mconcat <$> many inline) s verseLines :: PandocMonad m => MuseParser m (F Blocks) verseLines = do lns <- many verseLine - lns' <- mapM (parseFromString' (trimInlinesF . mconcat <$> many inline)) lns - return $ B.lineBlock <$> sequence lns' + return $ B.lineBlock <$> sequence lns verseTag :: PandocMonad m => MuseParser m (F Blocks) verseTag = do |