diff --git a/System/Process/CommunicationHandle.hsc b/System/Process/CommunicationHandle.hsc index 2f870444..79ec6b26 100644 --- a/System/Process/CommunicationHandle.hsc +++ b/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) diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs index 8d5c6724..5505e897 100644 --- a/System/Process/Internals.hs +++ b/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 diff --git a/changelog.md b/changelog.md index d98115e2..dba898a0 100644 --- a/changelog.md +++ b/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. diff --git a/process.cabal b/process.cabal index 458ee735..284cb13c 100644 --- a/process.cabal +++ b/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