diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-08-26 15:30:58 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-08-26 15:30:58 -0700 |
| commit | 1dec5bacaa9f5a89615684dc24ee0e67642d0c06 (patch) | |
| tree | ae1688c5a287541c46349c93c6011b7d33962aae /src/Text/Pandoc/Readers/Muse.hs | |
| parent | 21c44da17aa62e1147fbe6d36e8dcbe3ff43dd08 (diff) | |
| download | pandoc-1dec5bacaa9f5a89615684dc24ee0e67642d0c06.tar.gz | |
Use parseFromString' in Muse reader.
Now that it is polymorphic, this is possible, and it's a
better choice because it resets last string pos.
Diffstat (limited to 'src/Text/Pandoc/Readers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 81155c7ad..94584a697 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -676,7 +676,7 @@ museGridTableRow indent indices = try $ do lns <- many1 $ try (indentWith indent *> museGridTableRawLine indices) let cols = map (unlines . map trimr) $ transpose lns indentWith indent *> museGridTableHeader - sequence <$> mapM (parseFromString parseBlocks) cols + sequence <$> mapM (parseFromString' parseBlocks) cols museGridTableRawLine :: PandocMonad m => [Int] |