parseWireByteString :: A.Parser B.ByteString
parseWireByteString = do
  len' <- anyWord32he
  let len = fromIntegral len'
      size = 4 * (1 + ((len - 1) `div` 4))
      padding = size - len
  bs <- A.take len
  _  <- A.take padding
  return bs

-- | Decode an individual argument
parseWireByteString :: A.Parser B.ByteString
parseWireByteString = do
  len' <- anyWord32he
  let len = fromIntegral len'
      size = 4 * (1 + ((len - 1) `div` 4))
      padding = size - len
  bs <- A.take len
  _  <- A.take padding
  return bs

-- | Decode an individual argument
parseWireByteString = do
  len' <- anyWord32he
  let len = fromIntegral len'
      size = 4 * (1 + ((len - 1) `div` 4))
      padding = size - len
  bs <- A.take len
  _  <- A.take padding
  return bs

-- | Decode an individual argument