module PostgreSQL.Binary.BuilderPrim where

import PostgreSQL.Binary.Prelude
import qualified Data.ByteString.Builder.Prim as A


{-# INLINE nullByteIgnoringBoundedPrim #-}
nullByteIgnoringBoundedPrim :: A.BoundedPrim Word8
nullByteIgnoringBoundedPrim :: BoundedPrim Word8
nullByteIgnoringBoundedPrim =
  (Word8 -> Bool)
-> BoundedPrim Word8 -> BoundedPrim Word8 -> BoundedPrim Word8
forall a.
(a -> Bool) -> BoundedPrim a -> BoundedPrim a -> BoundedPrim a
A.condB (Word8 -> Word8 -> Bool
forall a. Eq a => a -> a -> Bool
== Word8
0) BoundedPrim Word8
forall a. BoundedPrim a
A.emptyB (FixedPrim Word8 -> BoundedPrim Word8
forall a. FixedPrim a -> BoundedPrim a
A.liftFixedToBounded FixedPrim Word8
A.word8)