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