Fix tests

Fix EXDEV handler on windows wrt #345
2022-04-15 16:02:07 +02:00 · 2022-04-14 22:32:22 +02:00
1 changed files with 2 additions and 2 deletions
--- a/lib/GHCup/Utils/Prelude.hs
+++ b/lib/GHCup/Utils/Prelude.hs
@@ -473,7 +473,7 @@ recyclePathForcibly fp
      liftIO (moveFile fp dest)
          `catch`
          (\e -> if | isDoesNotExistError e -> pure ()
-                    | isPermissionError e || ioeGetErrorType e == UnsupportedOperation {- EXDEV on windows -} -> recover (liftIO $ removePathForcibly fp)
+                    | isPermissionError e || e == unsupportedOperation {- EXDEV on windows -} -> recover (liftIO $ removePathForcibly fp)
                    | otherwise -> throwIO e)
          `finally`
            liftIO (handleIO (\_ -> pure ()) $ removePathForcibly tmp)
@@ -515,7 +515,7 @@ recycleFile fp
      let dest = tmp </> takeFileName fp
      liftIO (moveFile fp dest)
        `catch`
-          (\e -> if isPermissionError e || ioeGetErrorType e == UnsupportedOperation {- EXDEV on windows -} then recover (liftIO $ removePathForcibly fp) else throwIO e)
+          (\e -> if isPermissionError e || e == unsupportedOperation {- EXDEV on windows -} then recover (liftIO $ removePathForcibly fp) else throwIO e)
        `finally`
          liftIO (handleIO (\_ -> pure ()) $ removePathForcibly tmp)
  | otherwise = liftIO $ removeFile fp
Author	SHA1	Message	Date
Julian Ospald	c74d7e282e	Fix tests	2022-04-15 16:02:07 +02:00
Julian Ospald	0a02899539	Fix EXDEV handler on windows wrt #345	2022-04-14 22:32:22 +02:00