renderPureWith :: PrettyPrintOptions -> Doc -> Text.Lazy.Text
renderPureWith opts (Doc _ blocks) = toLazyText (foldl helper "" blocks)
  where
    helper m block = let t = renderBlockPure opts block
                     in m <> fromLazyText t <> "\n"

-- |
-- Renders a 'Block' doing 'IO'; this is necessary for @pygments@ usage.
renderPureWith :: PrettyPrintOptions -> Doc -> Text.Lazy.Text
renderPureWith opts (Doc _ blocks) = toLazyText (foldl helper "" blocks)
  where
    helper m block = let t = renderBlockPure opts block
                     in m <> fromLazyText t <> "\n"

-- |
-- Renders a 'Block' doing 'IO'; this is necessary for @pygments@ usage.
renderPureWith opts (Doc _ blocks) = toLazyText (foldl helper "" blocks)
  where
    helper m block = let t = renderBlockPure opts block
                     in m <> fromLazyText t <> "\n"

-- |
-- Renders a 'Block' doing 'IO'; this is necessary for @pygments@ usage.