module YamlUnscrambler.Util.ByteString where import Data.ByteString import YamlUnscrambler.Prelude hiding (length, map) import qualified YamlUnscrambler.Util.Word8 as Word8 lowercaseInAscii :: ByteString -> ByteString lowercaseInAscii :: ByteString -> ByteString lowercaseInAscii = (Word8 -> Word8) -> ByteString -> ByteString map Word8 -> Word8 Word8.lowercaseInAscii {-# NOINLINE lowercaseNullInAscii #-} lowercaseNullInAscii :: ByteString lowercaseNullInAscii :: ByteString lowercaseNullInAscii = ByteString "null" saysNullInCiAscii :: ByteString -> Bool saysNullInCiAscii :: ByteString -> Bool saysNullInCiAscii ByteString a = ByteString -> Int length ByteString a forall a. Eq a => a -> a -> Bool == Int 4 Bool -> Bool -> Bool && ByteString -> ByteString lowercaseInAscii ByteString a forall a. Eq a => a -> a -> Bool == ByteString lowercaseNullInAscii