mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

stuf on Windows

Browse source
This commit is contained in:
Joey Hess 2013-12-04 15:37:53 -04:00
parent b718a01b74
commit aef1d7e76d
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Assistant/Restart.hs
View file

@ -5,6 +5,8 @@
- Licensed under the GNU AGPL version 3 or higher. - Licensed under the GNU AGPL version 3 or higher.
-} -}
{-# LANGUAGE CPP #-}
module Assistant.Restart where module Assistant.Restart where
import Assistant.Common import Assistant.Common
@ -21,8 +23,10 @@ import qualified Annex
import qualified Git import qualified Git
import Control.Concurrent import Control.Concurrent
import System.Posix (getProcessID, signalProcess, sigTERM)
import System.Process (cwd) import System.Process (cwd)
#ifndef mingw32_HOST_OS
import System.Posix (getProcessID, signalProcess, sigTERM)
#endif
{- Before the assistant can be restarted, have to remove our {- Before the assistant can be restarted, have to remove our
- gitAnnexUrlFile and our gitAnnexPidFile. Pausing the watcher is also - gitAnnexUrlFile and our gitAnnexPidFile. Pausing the watcher is also
@ -41,11 +45,15 @@ prepRestart = do
- Wait for browser to update before terminating this process. -} - Wait for browser to update before terminating this process. -}
postRestart :: URLString -> Assistant () postRestart :: URLString -> Assistant ()
postRestart url = do postRestart url = do
#ifndef mingw32_HOST_OS
modifyDaemonStatus_ $ \status -> status { globalRedirUrl = Just url } modifyDaemonStatus_ $ \status -> status { globalRedirUrl = Just url }
liftIO . sendNotification . globalRedirNotifier =<< getDaemonStatus liftIO . sendNotification . globalRedirNotifier =<< getDaemonStatus
void $ liftIO $ forkIO $ do void $ liftIO $ forkIO $ do
threadDelaySeconds (Seconds 120) threadDelaySeconds (Seconds 120)
signalProcess sigTERM =<< getProcessID signalProcess sigTERM =<< getProcessID
#else
error "TODO windows postRestart"
#endif
runRestart :: Assistant URLString runRestart :: Assistant URLString
runRestart = liftIO . newAssistantUrl runRestart = liftIO . newAssistantUrl