diff --git a/app/ghcup/BrickMain.hs b/app/ghcup/BrickMain.hs index 4e21adf..e23724f 100644 --- a/app/ghcup/BrickMain.hs +++ b/app/ghcup/BrickMain.hs @@ -442,7 +442,6 @@ install' _ (_, ListResult {..}) = do , DownloadFailed , NoUpdate , TarDirDoesNotExist - , IsolatedDirNotEmpty ] run (do diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs index 382ddc8..aef3ed7 100644 --- a/app/ghcup/Main.hs +++ b/app/ghcup/Main.hs @@ -1478,7 +1478,6 @@ Report bugs at |] , TarDirDoesNotExist , NextVerNotFound , NoToolVersionSet - , IsolatedDirNotEmpty ] let runInstTool mInstPlatform action' = do diff --git a/lib/GHCup.hs b/lib/GHCup.hs index 6874737..da07ff2 100644 --- a/lib/GHCup.hs +++ b/lib/GHCup.hs @@ -405,7 +405,6 @@ installCabalBindist :: ( MonadMask m #if !defined(TAR) , ArchiveResult #endif - , IsolatedDirNotEmpty ] m () @@ -426,8 +425,7 @@ installCabalBindist dlinfo ver isoFilepath = do ) (throwE $ AlreadyInstalled Cabal ver) - Just isoDir -> - liftE $ isolatedInstallSanityCheck isoDir + _ -> pure () -- check isn't required in isolated installs -- download (or use cached version) dl <- liftE $ downloadCached dlinfo Nothing @@ -500,7 +498,6 @@ installCabalBin :: ( MonadMask m #if !defined(TAR) , ArchiveResult #endif - , IsolatedDirNotEmpty ] m ()