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