From 433608753a94c0a7b2aa8007781ca422db52593c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 6 Mar 2023 12:15:53 -0400 Subject: [PATCH] further fix windows build Thanks to jkniiv for this patch. --- Utility/DirWatcher/Win32Notify.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Utility/DirWatcher/Win32Notify.hs b/Utility/DirWatcher/Win32Notify.hs index a6a7e4ce97..0b02053c9a 100644 --- a/Utility/DirWatcher/Win32Notify.hs +++ b/Utility/DirWatcher/Win32Notify.hs @@ -12,7 +12,7 @@ import Utility.DirWatcher.Types import qualified Utility.RawFilePath as R import System.Win32.Notify -import qualified System.PosixCompat.Files (isRegularFile) +import System.PosixCompat.Files (isRegularFile) watchDir :: FilePath -> (FilePath -> Bool) -> Bool -> WatchHooks -> IO WatchManager watchDir dir ignored scanevents hooks = do @@ -60,7 +60,7 @@ watchDir dir ignored scanevents hooks = do where runhook h s = maybe noop (\a -> a f s) (h hooks) - getstatus = catchMaybeIO . R.getFileStatus . fromRawFilePath + getstatus = catchMaybeIO . R.getFileStatus . toRawFilePath {- Check each component of the path to see if it's ignored. -} ignoredPath :: (FilePath -> Bool) -> FilePath -> Bool -- 2.30.2