{-# 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