From 31caa616a9353e073eb86be7889b7087e14a48ac Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Thu, 27 Apr 2017 21:48:32 +0200 Subject: Provide shared F monad functions for Markdown and Org readers The `F` monads used for delayed evaluation of certain values in the Markdown and Org readers are based on a shared data type capturing the common pattern of both `F` types. --- src/Text/Pandoc/Readers/Markdown.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/Text/Pandoc/Readers/Markdown.hs') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 9eb242d74..5515c735b 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -50,7 +50,7 @@ import Data.Yaml (ParseException (..), YamlException (..), YamlMark (..)) import qualified Data.Yaml as Yaml import System.FilePath (addExtension, takeExtension) import Text.HTML.TagSoup -import Text.Pandoc.Builder (Blocks, Inlines, trimInlines) +import Text.Pandoc.Builder (Blocks, Inlines) import qualified Text.Pandoc.Builder as B import Text.Pandoc.Class (PandocMonad, report) import Text.Pandoc.Definition @@ -80,9 +80,6 @@ readMarkdown opts s = do Right result -> return result Left e -> throwError e -trimInlinesF :: F Inlines -> F Inlines -trimInlinesF = liftM trimInlines - -- -- Constants and data structure definitions -- -- cgit v1.2.3