diff options
| author | mb21 <mb21@users.noreply.github.com> | 2017-12-22 12:26:06 +0100 |
|---|---|---|
| committer | mb21 <mb21@users.noreply.github.com> | 2017-12-22 20:35:00 +0100 |
| commit | add3cf73a965fb7fa5b45f75442e386294c6fb47 (patch) | |
| tree | ae26e6db167e36a3ad4858f044b95fd37fe57ab9 /src/Text/Pandoc/Readers/OPML.hs | |
| parent | 279c254007601de5cb6a44e0d51522748880d732 (diff) | |
API change: export blocksToInlines' from Text.Pandoc.Shared
Diffstat (limited to 'src/Text/Pandoc/Readers/OPML.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/OPML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/OPML.hs b/src/Text/Pandoc/Readers/OPML.hs index 68f3252a9..82266748f 100644 --- a/src/Text/Pandoc/Readers/OPML.hs +++ b/src/Text/Pandoc/Readers/OPML.hs @@ -12,7 +12,7 @@ import Text.Pandoc.Class (PandocMonad) import Text.Pandoc.Options import Text.Pandoc.Readers.HTML (readHtml) import Text.Pandoc.Readers.Markdown (readMarkdown) -import Text.Pandoc.Shared (crFilter, blocksToInlines) +import Text.Pandoc.Shared (crFilter, blocksToInlines') import Text.XML.Light type OPML m = StateT OPMLState m @@ -74,7 +74,7 @@ asHtml :: PandocMonad m => String -> OPML m Inlines asHtml s = do opts <- gets opmlOptions Pandoc _ bs <- readHtml def{ readerExtensions = readerExtensions opts } (pack s) - return $ fromList $ blocksToInlines bs + return $ blocksToInlines' bs asMarkdown :: PandocMonad m => String -> OPML m Blocks asMarkdown s = do |