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)