diff options
| -rw-r--r-- | Utility/Daemon.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs index b604b1794..11aa57686 100644 --- a/Utility/Daemon.hs +++ b/Utility/Daemon.hs @@ -81,6 +81,8 @@ lockPidFile pidfile = do newfile = pidfile ++ ".new" #else {- Not atomic on Windows, oh well. -} + unlessM (isNothing <$> checkDaemon pidfile) + alreadyRunning pid <- getPID writeFile pidfile (show pid) lckfile <- winLockFile pid pidfile |