{-# LANGUAGE Strict #-} module Database.PostgreSQL.Replicant.Serialize where import Data.ByteString (ByteString) import Data.Serialize -- | Consume the rest of the @Get a@ input as a ByteString consumeByteStringToEnd :: Get ByteString consumeByteStringToEnd :: Get ByteString consumeByteStringToEnd = do Int numRemaining <- Get Int remaining Int -> Get ByteString getByteString Int numRemaining