windows and osx build fixes for recent ByteString conversion work

This commit is contained in:
Joey Hess 2025-01-24 11:37:17 -04:00
parent f0c206cea6
commit f0b9b46cb2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 8 additions and 6 deletions

View file

@ -189,6 +189,6 @@ winLockFile pid pidfile = do
prefix = pidfile ++ "."
suffix = ".lck"
cleanstale = mapM_ (void . tryIO . removeFile) =<<
(filter iswinlockfile <$> dirContents (fromRawFilePath (parentDir (toRawFilePath pidfile))))
(filter iswinlockfile . map fromRawFilePath <$> dirContents (parentDir (toRawFilePath pidfile)))
iswinlockfile f = suffix `isSuffixOf` f && prefix `isPrefixOf` f
#endif