fix compatibility with unix-2.8

- breaking change: not compatible with unix-2.7
This commit is contained in:
Ruifeng Xie 2023-12-30 18:46:09 +01:00 committed by Ai-Ya-Ya
commit bae6456026

View file

@ -8,7 +8,7 @@ import System.Posix.Process (createSession, forkProcess)
detach :: IO () -> IO Bool
detach daemon = do
void $ forkProcess $ do
devnull <- openFd "/dev/null" ReadWrite Nothing defaultFileFlags
devnull <- openFd "/dev/null" ReadWrite defaultFileFlags
void $ dupTo devnull stdInput
void $ dupTo devnull stdOutput
void $ dupTo devnull stdError