diff options
Diffstat (limited to 'Text/Pandoc/Readers/Plain.hs')
| -rw-r--r-- | Text/Pandoc/Readers/Plain.hs | 9 |
1 files changed, 5 insertions, 4 deletions
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 |