From add3cf73a965fb7fa5b45f75442e386294c6fb47 Mon Sep 17 00:00:00 2001
From: mb21 <mb21@users.noreply.github.com>
Date: Fri, 22 Dec 2017 12:26:06 +0100
Subject: API change: export blocksToInlines' from Text.Pandoc.Shared

---
 src/Text/Pandoc/Readers/Docx.hs | 2 +-
 src/Text/Pandoc/Readers/OPML.hs | 4 ++--
 src/Text/Pandoc/Shared.hs       | 1 +
 3 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs
index 7c7845c71..d73da3085 100644
--- a/src/Text/Pandoc/Readers/Docx.hs
+++ b/src/Text/Pandoc/Readers/Docx.hs
@@ -337,7 +337,7 @@ blocksToInlinesWarn cmtId blks = do
   unless (null $ filter notParaOrPlain blkList) $
     lift $ P.report $ DocxParserWarning $
       "Docx comment " ++ cmtId ++ " will not retain formatting"
-  return $ fromList $ blocksToInlines blkList
+  return $ blocksToInlines' blkList
 
 parPartToInlines :: PandocMonad m => ParPart -> DocxContext m Inlines
 parPartToInlines (PlainRun r) = runToInlines r
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
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 975847de4..005603191 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -91,6 +91,7 @@ module Text.Pandoc.Shared (
                      mapLeft,
                      -- * for squashing blocks
                      blocksToInlines,
+                     blocksToInlines',
                      -- * Safe read
                      safeRead,
                      -- * Temp directory
-- 
cgit v1.2.3