{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module General.String(
BS, pack, unpack, pack_, unpack_,
BSU, packU, unpackU, packU_, unpackU_, requireU
) where
import qualified Data.ByteString as BS (any)
import qualified Data.ByteString.Char8 as BS hiding (any)
import qualified Data.ByteString.UTF8 as UTF8
import Development.Shake.Classes
newtype BS = BS BS.ByteString
deriving (Hashable, Binary, Eq)
instance Show BS where
show (BS x) = show x
instance NFData BS where
rnf (BS x) = x `seq` ()
newtype BSU = BSU BS.ByteString
deriving (Hashable, Binary, Eq)
instance NFData BSU where
rnf (BSU x) = x `seq` ()
instance Show BSU where
show = unpackU
pack :: String -> BS
pack = pack_ . BS.pack
unpack :: BS -> String
unpack = BS.unpack . unpack_
pack_ :: BS.ByteString -> BS
pack_ = BS
unpack_ :: BS -> BS.ByteString
unpack_ (BS x) = x
packU :: String -> BSU
packU = packU_ . UTF8.fromString
unpackU :: BSU -> String
unpackU = UTF8.toString . unpackU_
unpackU_ :: BSU -> BS.ByteString
unpackU_ (BSU x) = x
packU_ :: BS.ByteString -> BSU
packU_ = BSU
requireU :: BSU -> Bool
requireU = BS.any (>= 0x80) . unpackU_