intoNewVal_ :: (Storable e) => (Ptr e -> IO r) -> IO e
intoNewVal_ f = do
  (val, _) <- intoNewVal f
  return val

-- | Allocate new 'ByteString' of the given length and use it as receive buffer
intoNewVal_ :: (Storable e) => (Ptr e -> IO r) -> IO e
intoNewVal_ f = do
  (val, _) <- intoNewVal f
  return val

-- | Allocate new 'ByteString' of the given length and use it as receive buffer
intoNewVal_ f = do
  (val, _) <- intoNewVal f
  return val

-- | Allocate new 'ByteString' of the given length and use it as receive buffer