further fix windows build

Thanks to jkniiv for this patch.

diff --git a/Utility/DirWatcher/Win32Notify.hs b/Utility/DirWatcher/Win32Notify.hs
index a6a7e4ce97ca619bb3c85268a99bf09343b5b4ab..0b02053c9a2ef6010aa75a86502a0bc17e59da24 100644 (file)
--- 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