From 097ac68877acfa6d35ec3987b80ee1ae8da4ff62 Mon Sep 17 00:00:00 2001 From: defanor Date: Tue, 31 Oct 2017 15:50:18 +0300 Subject: Update to pandoc 2 --- Text/Pandoc/Readers/Plain.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'Text/Pandoc/Readers/Plain.hs') diff --git a/Text/Pandoc/Readers/Plain.hs b/Text/Pandoc/Readers/Plain.hs index cb8fb9b..0f07feb 100644 --- a/Text/Pandoc/Readers/Plain.hs +++ b/Text/Pandoc/Readers/Plain.hs @@ -11,7 +11,8 @@ module Text.Pandoc.Readers.Plain ( readPlain ) where import Text.Pandoc.Definition -import Text.Pandoc.Error +import Text.Pandoc.Class +import qualified Data.Text as T -- | Translates a text line into a list of 'Inline' elements suitable @@ -24,6 +25,6 @@ lineToInlines s = let (cur, next) = break (== ' ') s -- | Reads plain text, always succeeding and producing a single -- 'Plain' block. -readPlain :: String -> Either PandocError Pandoc -readPlain = Right . Pandoc mempty . pure . Plain . - concatMap (\l -> (lineToInlines l) ++ [LineBreak]) . lines +readPlain :: PandocMonad m => T.Text -> m Pandoc +readPlain = pure . Pandoc mempty . pure . Plain . + concatMap (\l -> (lineToInlines $ T.unpack l) ++ [LineBreak]) . T.lines -- cgit v1.2.3