src/Blessings/ByteString/Lazy.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.Lazy
    ( module Blessings
    ) where

import Blessings
import Blessings.Internal
import qualified Data.ByteString.Lazy.Char8 as L


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