json-bytes-builder-0.3: library/JSONBytesBuilder/Interpreters/ByteStringBuilder.hs

module JSONBytesBuilder.Interpreters.ByteStringBuilder
(
  jsonLiteral,
)
where

import JSONBytesBuilder.Prelude hiding (length, null)
import JSONBytesBuilder.Builder
import Data.ByteString.Builder


-- |
-- Produce a JSON ByteString builder with compact syntax from a literal builder.
{-# INLINE jsonLiteral #-}
jsonLiteral :: Literal -> Builder
jsonLiteral =
  unsafeCoerce