diff options
author | Albert Krewinkel <albert@zeitkraut.de> | 2017-04-27 21:48:32 +0200 |
---|---|---|
committer | Albert Krewinkel <albert+github@zeitkraut.de> | 2017-04-30 10:59:20 +0200 |
commit | 31caa616a9353e073eb86be7889b7087e14a48ac (patch) | |
tree | 44be7b17210655bfc307e7b276e1b7829ce314ab /src/Text/Pandoc/Readers/Markdown.hs | |
parent | 97addc2a17266b7d1c6cc712244f675bc0263595 (diff) | |
download | pandoc-31caa616a9353e073eb86be7889b7087e14a48ac.tar.gz |
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.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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 -- |