module Data.ByteString.Lazy.Char8.Caseless
(ByteString, sensitize, unsensitize, concat, intercalate, pack, unpack) where
import qualified Data.ByteString.Lazy.Char8 as B
import Data.Char (toLower)
import GHC.Exts (IsString)
import Data.Monoid (Monoid)
import Prelude hiding (concat)
#if defined(__GLASGOW_HASKELL__)
import Data.Typeable (Typeable)
import Data.Data (Data)
#endif
newtype ByteString = I B.ByteString
deriving ( Eq, Ord, Show, Monoid
#if defined(__GLASGOW_HASKELL__)
, IsString, Data, Typeable
#endif
)
unsensitize :: B.ByteString -> ByteString
unsensitize = I . B.map toLower
sensitize :: ByteString -> B.ByteString
sensitize (I str) = str
concat :: [ByteString] -> ByteString
concat = I . B.concat . map sensitize
intercalate :: ByteString -> [ByteString] -> ByteString
intercalate sep = I . B.intercalate (sensitize sep) . map sensitize
pack :: String -> ByteString
pack = unsensitize . B.pack
unpack :: ByteString -> String
unpack = B.unpack . sensitize