diff --git a/ChangeLog.md b/ChangeLog.md
new file mode 100644
--- /dev/null
+++ b/ChangeLog.md
@@ -0,0 +1,3 @@
+## 0.1.6
+
+Provide `appCloseConnection` to get the underlying connection from an `AppData`.
diff --git a/Data/Streaming/Network.hs b/Data/Streaming/Network.hs
--- a/Data/Streaming/Network.hs
+++ b/Data/Streaming/Network.hs
@@ -53,6 +53,7 @@
     , appWrite
     , appSockAddr
     , appLocalAddr
+    , appCloseConnection
       -- * Functions
       -- ** General
     , bindPortGen
@@ -559,6 +560,7 @@
                 , appWrite' = sendAll socket
                 , appSockAddr' = addr
                 , appLocalAddr' = mlocal
+                , appCloseConnection' = NS.sClose socket
                 }
           in
             app ad
@@ -573,6 +575,7 @@
         , appWrite' = sendAll s
         , appSockAddr' = address
         , appLocalAddr' = Nothing
+        , appCloseConnection' = NS.sClose s
         })
 
 appLocalAddr :: AppData -> Maybe NS.SockAddr
@@ -580,6 +583,13 @@
 
 appSockAddr :: AppData -> NS.SockAddr
 appSockAddr = appSockAddr'
+
+-- | Close the underlying connection. One possible use case is simulating
+-- connection failures in a test suite.
+--
+-- Since 0.1.6
+appCloseConnection :: AppData -> IO ()
+appCloseConnection = appCloseConnection'
 
 class HasReadWrite a where
     readLens :: Functor f => (IO ByteString -> f (IO ByteString)) -> a -> f a
diff --git a/Data/Streaming/Network/Internal.hs b/Data/Streaming/Network/Internal.hs
--- a/Data/Streaming/Network/Internal.hs
+++ b/Data/Streaming/Network/Internal.hs
@@ -111,4 +111,5 @@
     , appWrite' :: !(ByteString -> IO ())
     , appSockAddr' :: !SockAddr
     , appLocalAddr' :: !(Maybe SockAddr)
+    , appCloseConnection' :: !(IO ())
     }
diff --git a/streaming-commons.cabal b/streaming-commons.cabal
--- a/streaming-commons.cabal
+++ b/streaming-commons.cabal
@@ -1,5 +1,5 @@
 name:                streaming-commons
-version:             0.1.5
+version:             0.1.6
 synopsis:            Common lower-level functions needed by various streaming data libraries
 description:         Provides low-dependency functionality commonly needed by various streaming data libraries, such as conduit and pipes.
 homepage:            https://github.com/fpco/streaming-commons
@@ -17,6 +17,7 @@
     include/*.h
     cbits/*.c
     test/LICENSE.gz
+    ChangeLog.md
 
 library
   exposed-modules:     Data.Streaming.Blaze