Don't error on non-empty dirs during cleanup

2023-07-17 23:11:59 +08:00 · 2023-07-17 23:11:59 +08:00 · 09d72e7c97
parent d551cc8077
commit 09d72e7c97
1 changed files with 1 additions and 1 deletions
--- a/lib/GHCup/GHC.hs
+++ b/lib/GHCup/GHC.hs
@ -731,7 +731,7 @@ rmGHCVer ver = do
    Just files -> do
      lift $ logInfo $ "Removing files safely from: " <> T.pack dir
      forM_ files (lift . hideError NoSuchThing . recycleFile . (\f -> dir </> dropDrive f))
-      removeEmptyDirsRecursive dir
+      hideError UnsatisfiedConstraints $ removeEmptyDirsRecursive dir
      survivors <- liftIO $ hideErrorDef [doesNotExistErrorType] [] $ listDirectory dir
      f <- recordedInstallationFile GHC ver
      lift $ recycleFile f