{-# language OverloadedStrings #-}

module Rel8.Type.Builder.ByteString (
  bytestring,
) where

-- base
import Prelude

-- bytestring
import Data.ByteString (ByteString)
import Data.ByteString.Builder (Builder, byteStringHex, string7)


bytestring :: ByteString -> Builder
bytestring :: ByteString -> Builder
bytestring ByteString
bytes = String -> Builder
string7 String
"\\x" Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
byteStringHex ByteString
bytes