{-# LANGUAGE NoImplicitPrelude #-}
module Text.CSL.Output.Plain
( renderPlain
) where
import Prelude
import Data.Text (Text)
import Text.CSL.Compat.Pandoc (writePlain)
import Text.CSL.Style
import Text.Pandoc (Block (Plain), Pandoc (..), nullMeta)
renderPlain :: Formatted -> Text
renderPlain :: Formatted -> Text
renderPlain (Formatted [Inline]
ils) = Pandoc -> Text
writePlain (Pandoc -> Text) -> Pandoc -> Text
forall a b. (a -> b) -> a -> b
$ Meta -> [Block] -> Pandoc
Pandoc Meta
nullMeta [[Inline] -> Block
Plain [Inline]
ils]