summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
authorGravatar Joey Hess <id@joeyh.name>2013-05-14 16:32:03 -0500
committerGravatar Joey Hess <id@joeyh.name>2013-05-14 16:32:03 -0500
commit5b016d04f85e3acde643a4476d1ed5802bdce044 (patch)
tree4344491471fc9755fbc1f641e71f60af1edd1782 /Utility
parent3e27b7d44a2d8f4d8d92fbc1142d0c087a8d3dc8 (diff)
fill in a few windows stubs
Diffstat (limited to 'Utility')
-rwxr-xr-x[-rw-r--r--]Utility/Daemon.hs17
1 files changed, 9 insertions, 8 deletions
diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs
index b23a654cd..e1cd25088 100644..100755
--- a/Utility/Daemon.hs
+++ b/Utility/Daemon.hs
@@ -15,6 +15,7 @@ import Utility.LogFile
#ifndef __WINDOWS__
import System.Posix
#else
+import System.PosixCompat
import System.Posix.Types
#endif
@@ -48,16 +49,16 @@ daemonize logfd pidfile changedirectory a = do
out
out = exitImmediately ExitSuccess
#else
-daemonize = error "daemonize TODO"
+daemonize = error "daemonize is not implemented on Windows" -- TODO
#endif
{- Locks the pid file, with an exclusive, non-blocking lock.
- Writes the pid to the file, fully atomically.
- Fails if the pid file is already locked by another process. -}
lockPidFile :: FilePath -> IO ()
-#ifndef __WINDOWS__
lockPidFile file = do
createDirectoryIfMissing True (parentDir file)
+#ifndef __WINDOWS__
fd <- openFd file ReadWrite (Just stdFileMode) defaultFileFlags
locked <- catchMaybeIO $ setLock fd (WriteLock, AbsoluteSeek, 0, 0)
fd' <- openFd newfile ReadWrite (Just stdFileMode) defaultFileFlags
@@ -68,13 +69,13 @@ lockPidFile file = do
(_, Nothing) -> alreadyRunning
_ -> do
_ <- fdWrite fd' =<< show <$> getProcessID
- renameFile newfile file
closeFd fd
- where
- newfile = file ++ ".new"
#else
-lockPidFile = error "lockPidFile TODO"
+ writeFile newfile "-1"
#endif
+ renameFile newfile file
+ where
+ newfile = file ++ ".new"
alreadyRunning :: IO ()
alreadyRunning = error "Daemon is already running."
@@ -104,7 +105,7 @@ checkDaemon pidfile = do
" (got " ++ show pid' ++
"; expected " ++ show pid ++ " )"
#else
-checkDaemon = error "checkDaemon TODO"
+checkDaemon pidfile = maybe Nothing readish <$> catchMaybeIO (readFile pidfile)
#endif
{- Stops the daemon, safely. -}
@@ -115,5 +116,5 @@ stopDaemon pidfile = go =<< checkDaemon pidfile
go Nothing = noop
go (Just pid) = signalProcess sigTERM pid
#else
-stopDaemon = error "stopDaemon TODO"
+stopDaemon = error "stopDaemon is not implemented on Windows" -- TODO
#endif