Bump version to 1.6.19 not 1.7

System/Process/CommunicationHandle.hsc

@@ -98,7 +98,7 @@ import Control.DeepSeq (NFData, rnf)
 -- 'readCreateProcessWithExitCodeCommunicationHandle' provides a high-level API
 -- to this functionality. See there for example code.
 --
--- @since 1.7.0.0
+-- @since 1.6.19.0
 newtype CommunicationHandle =
   CommunicationHandle
 ##if defined(mingw32_HOST_OS)
@@ -115,7 +115,7 @@ type HANDLE = Ptr ()
 ##  endif
 #endif
 
--- @since 1.7.0.0
+-- @since 1.6.19.0
 instance Show CommunicationHandle where
   showsPrec p (CommunicationHandle h) =
     showsPrec p
@@ -124,7 +124,7 @@ instance Show CommunicationHandle where
 ##endif
       h
 
--- @since 1.7.0.0
+-- @since 1.6.19.0
 instance Read CommunicationHandle where
   readsPrec p str =
     fmap
@@ -138,14 +138,14 @@ instance Read CommunicationHandle where
 -- | Turn the 'CommunicationHandle' into a 'Handle' that can be read from
 -- in the current process.
 --
--- @since 1.7.0.0
+-- @since 1.6.19.0
 openCommunicationHandleRead :: CommunicationHandle -> IO Handle
 openCommunicationHandleRead = useCommunicationHandle True
 
 -- | Turn the 'CommunicationHandle' into a 'Handle' that can be writte to
 -- in the current process.
 --
--- @since 1.7.0.0
+-- @since 1.6.19.0
 openCommunicationHandleWrite :: CommunicationHandle -> IO Handle
 openCommunicationHandleWrite = useCommunicationHandle False
 
@@ -212,7 +212,7 @@ foreign import ccall "reOpenFileOverlapped"
 -- Use this to close the 'CommunicationHandle' in the parent process after
 -- the 'CommunicationHandle' has been inherited by the child process.
 --
--- @since 1.7.0.0
+-- @since 1.6.19.0
 closeCommunicationHandle :: CommunicationHandle -> IO ()
 closeCommunicationHandle (CommunicationHandle ch) =
   hClose =<< getGhcHandle ch
@@ -259,7 +259,7 @@ getGhcHandle fd = fdToHandle fd
 --
 -- See 'CommunicationHandle'.
 --
--- @since 1.7.0.0
+-- @since 1.6.19.0
 createWeReadTheyWritePipe :: IO (Handle, CommunicationHandle)
 createWeReadTheyWritePipe = createCommunicationPipe id
 
@@ -268,7 +268,7 @@ createWeReadTheyWritePipe = createCommunicationPipe id
 --
 -- See 'CommunicationHandle'.
 --
--- @since 1.7.0.0
+-- @since 1.6.19.0
 createTheyReadWeWritePipe :: IO (CommunicationHandle, Handle)
 createTheyReadWeWritePipe = sw <$> createCommunicationPipe sw
   where
@@ -356,7 +356,7 @@ foreign import ccall "mkNamedPipe" c_mkNamedPipe ::
 -- >   hPut hWrite $ someFn input
 -- >   hClose hWrite
 --
--- @since 1.7.0.0
+-- @since 1.6.19.0
 readCreateProcessWithExitCodeCommunicationHandle
   :: NFData a
   => ((CommunicationHandle, CommunicationHandle) -> CreateProcess)

System/Process/Internals.hs

@@ -257,7 +257,7 @@ interruptProcessGroupOf = interruptProcessGroupOfInternal
 -- that is holding the Handle lock, because when we clean up the process we
 -- try to close that handle, which could otherwise deadlock.
 --
--- @since 1.7.0.0
+-- @since 1.6.19.0
 withForkWait :: IO () -> (IO () ->  IO a) -> IO a
 withForkWait async body = do
   waitVar <- newEmptyMVar :: IO (MVar (Either SomeException ()))
@@ -268,7 +268,7 @@ withForkWait async body = do
 
 -- | Handle any SIGPIPE errors in the given computation.
 --
--- @since 1.7.0.0
+-- @since 1.6.19.0
 ignoreSigPipe :: IO () -> IO ()
 ignoreSigPipe = C.handle $ \e -> case e of
                                    IOError { ioe_type  = ResourceVanished

changelog.md

@@ -1,6 +1,6 @@
 # Changelog for [`process` package](http://hackage.haskell.org/package/process)
 
-## 1.7.0.0 *April 2024*
+## 1.6.19.0 *April 2024*
 
 * Introduce `System.Process.CommunicationHandle`, allowing for platform-independent
   inter-process communication using `Handle`s.

process.cabal

@@ -1,6 +1,6 @@
 cabal-version: 2.4
 name:          process
-version:       1.7.0.0
+version:       1.6.19.0
 -- NOTE: Don't forget to update ./changelog.md
 license:       BSD-3-Clause
 license-file:  LICENSE