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

fix build on windows

Browse source
This commit is contained in:
Joey Hess 2020-11-17 11:58:45 -04:00
parent 1be38362aa
commit bce8865824
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Utility/Daemon.hs
View file

@ -176,14 +176,14 @@ stopDaemon pidfile = go =<< checkDaemon pidfile
- when eg, restarting the daemon.
-}
#ifdef mingw32_HOST_OS
winLockFile :: PID -> FilePath -> IO FilePath
winLockFile :: PID -> FilePath -> IO RawFilePath
winLockFile pid pidfile = do
cleanstale
return $ prefix ++ show pid ++ suffix
return $ toRawFilePath $ prefix ++ show pid ++ suffix
where
prefix = pidfile ++ "."
suffix = ".lck"
cleanstale = mapM_ (void . tryIO . removeFile) =<<
(filter iswinlockfile <$> dirContents (parentDir pidfile))
(filter iswinlockfile <$> dirContents (fromRawFilePath (parentDir (toRawFilePath pidfile))))
iswinlockfile f = suffix `isSuffixOf` f && prefix `isPrefixOf` f
#endif