module Data.ByteArray.Extend
(
ScrubbedBytes
, convert
, length
, replicate
, concat
, splitAt
) where
import Control.DeepSeq (NFData)
import Data.ByteArray (ByteArray, ByteArrayAccess, convert,
length, replicate, concat, splitAt)
import qualified Data.ByteArray as BA (ScrubbedBytes)
import Data.ByteString.Char8 (pack)
import Data.String (IsString(..))
import Prelude hiding (length, replicate, concat, splitAt)
newtype ScrubbedBytes = ScrubbedBytes BA.ScrubbedBytes
deriving (Eq, Show, NFData, Monoid, Ord, ByteArrayAccess, ByteArray)
instance IsString ScrubbedBytes where
fromString = ScrubbedBytes . convert . pack