Disabled pid file feature to avoid obnoxious failuer to start.

1 files changed, 4 insertions, 1 deletions

diff --git a/Presence/main.hs b/Presence/main.hs
index 784faaca..3215913b 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -856,6 +856,9 @@ getOptions (x0:xs) = getOptions xs
 main = do
     opts <- fmap getOptions getArgs
     let use_ip4 = if isJust (Map.lookup "4" opts) then AF_INET else AF_INET6
-    runOnce ["/var/run/presence.pid","/tmp/presence.pid"] (start use_ip4) sendUSR1
+    -- Disabled because of failing to start after a crash:
+    --   -- This code sends USR1 to a running instance to trigger rescan of utmp file.
+    --   runOnce ["/var/run/presence.pid","/tmp/presence.pid"] (start use_ip4) sendUSR1
+    start use_ip4