diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,13 @@
 # Revision history for http-exchange-instantiations
 
+## 0.1.2.1 -- 2023-09-21
+
+* Add missing `exposeInterruptibleContext`.
+
+## 0.1.2.0 -- 2023-09-20
+
+* Add functions for HTTP exchanges over TLS without timeout.
+
 ## 0.1.1.0 -- 2023-08-30
 
 * Add `exchangeInterruptible` and `exchangeTimeout`.
diff --git a/http-exchange-instantiations.cabal b/http-exchange-instantiations.cabal
--- a/http-exchange-instantiations.cabal
+++ b/http-exchange-instantiations.cabal
@@ -1,6 +1,6 @@
 cabal-version: 3.0
 name: http-exchange-instantiations
-version: 0.1.2.0
+version: 0.1.2.1
 synopsis: Instantiations of http-exchange
 -- description:
 license: BSD-3-Clause
diff --git a/src/Http/Exchange/Tls.hs b/src/Http/Exchange/Tls.hs
--- a/src/Http/Exchange/Tls.hs
+++ b/src/Http/Exchange/Tls.hs
@@ -9,6 +9,7 @@
   , exchangeInterruptible
   , exchangeTimeout
   , interruptibleContextNew
+  , exposeInterruptibleContext
     -- * Types
   , InterruptibleContext
   , SocketThrowingNetworkException(..)
@@ -217,6 +218,13 @@
   let backend = buildInterruptibleBackend socket intrRef
   context <- Tls.contextNew backend params
   pure (InterruptibleContext context intrRef)
+
+-- | Expose the TLS context. Do not call TLS data-exchange functions like
+-- @sendData@ or @recvData@ on this context. This context is exposed so
+-- that the caller can query it for metadata about the session (certs, etc.).
+exposeInterruptibleContext :: InterruptibleContext -> Tls.Context
+{-# inline exposeInterruptibleContext #-}
+exposeInterruptibleContext (InterruptibleContext c _) = c
 
 buildInterruptibleBackend :: Socket -> IORef (TVar Bool) -> Tls.Backend
 buildInterruptibleBackend s !intrRef = Tls.Backend