module PostgreSQL.Binary.BuilderPrim where

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

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