diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-16 15:08:34 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-16 15:08:34 +0300 |
| commit | a8122987fc3301bc6c0b799312cc2f676bec8042 (patch) | |
| tree | a5a3107bca78abe682571e0f29409bf166a8deb6 /src/Text/Pandoc/Readers/Muse.hs | |
| parent | fb014e6e9f601fef026019a9822ff1c19f24de45 (diff) | |
| download | pandoc-a8122987fc3301bc6c0b799312cc2f676bec8042.tar.gz | |
Muse reader: allow verse to be indented
Muse writer indents verse blocks in definition list more than necessary, so Muse reader should parse them.
Diffstat (limited to 'src/Text/Pandoc/Readers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 1ba4ac343..98c1a9d55 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -558,6 +558,7 @@ blanklineVerseLine = try $ do -- | Parse a line block indicated by @\'>\'@ characters. lineBlock :: PandocMonad m => MuseParser m (F Blocks) lineBlock = try $ do + many spaceChar col <- sourceColumn <$> getPosition lns <- (blanklineVerseLine <|> lineVerseLine) `sepBy1'` try (indentWith (col - 1)) return $ B.lineBlock <$> sequence lns |