src/Blessings/ByteString.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

{-# OPTIONS_GHC -fno-warn-orphans #-}

module Blessings.ByteString
    ( module Blessings
    ) where

import Blessings
import Blessings.Internal
import qualified Data.ByteString.Char8 as B


instance Blessable B.ByteString where
  length = B.length
  drop = B.drop
  take = B.take
  splitAt = B.splitAt
  break = B.break
  intercalate = B.intercalate
  fromWord8 = B.pack . Prelude.show
  show = B.pack . Prelude.show