blob: c0f521c408438cc47882e37470759932d01c3602 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# 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
intercalate = L.intercalate
fromWord8 = L.pack . show
|
