remotedaemon: Fork to background by default. Added --foreground switch to enable old behavior.
Groundwork for tor hidden services, which the remotedaemon will serve.
This commit is contained in:
parent
d50b0f3bb3
commit
a101b8de37
8 changed files with 97 additions and 36 deletions
|
@ -30,7 +30,7 @@ remoteControlThread :: NamedThread
|
|||
remoteControlThread = namedThread "RemoteControl" $ do
|
||||
program <- liftIO programPath
|
||||
(cmd, params) <- liftIO $ toBatchCommand
|
||||
(program, [Param "remotedaemon"])
|
||||
(program, [Param "remotedaemon", Param "--foreground"])
|
||||
let p = proc cmd (toCommand params)
|
||||
(Just toh, Just fromh, _, pid) <- liftIO $ createProcess p
|
||||
{ std_in = CreatePipe
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue