setsid when running webapp in foreground too

This avoids ssh prompting for passwords on stdin, ever.

It may also change other behavior of other programs, as there is no
controlling terminal now. However, setsid was already done when running the
assistant in daemon mode, so any behavior changes should not be really new.

Assistant.hs

@@ -84,9 +84,7 @@ startDaemon assistant foreground startdelay cannotrun listenhost startbrowser =
 				fdToHandle =<< dup stdError
 			let undaemonize a = do
 				debugM desc $ "logging to " ++ logfile
-				Utility.Daemon.lockPidFile pidfile
-				Utility.LogFile.redirLog logfd
-				a
+				Utility.Daemon.foreground logfd (Just pidfile) a
 			start undaemonize $ 
 				case startbrowser of
 					Nothing -> Nothing

Utility/Daemon.hs

@@ -56,6 +56,15 @@ daemonize logfd pidfile changedirectory a = do
 	out = exitImmediately ExitSuccess
 #endif
 
+{- To run an action that is normally daemonized in the forground. -}
+foreground :: Fd -> Maybe FilePath -> IO () -> IO ()
+foreground logfd pidfile a = do
+	maybe noop lockPidFile pidfile
+	_ <- createSession
+	redirLog logfd
+	a
+	exitImmediately ExitSuccess
+
 {- Locks the pid file, with an exclusive, non-blocking lock,
  - and leaves it locked on return.
  -