From 4f7d41a8cc408f77393e8102ac9877e71aa80802 Mon Sep 17 00:00:00 2001
From: Arjun Kathuria <arjun.kathuria8@gmail.com>
Date: Sun, 25 Jul 2021 13:39:44 +0530
Subject: [PATCH] remove installGHCBinIsolated function.

---
 lib/GHCup.hs | 45 ---------------------------------------------
 1 file changed, 45 deletions(-)

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index 5f86cad..75d37a6 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -243,51 +243,6 @@ installGHCBindist dlinfo ver isoFilepath = do
         lift $ $(logWarn) "environments). If you encounter problems, unset CC and LD and reinstall."
 
 
--- | Installs GHC to a specified location, doesn't make any symlinks.
-installGHCBinIsolated :: ( MonadFail m
-                 , MonadMask m
-                 , MonadCatch m
-                 , MonadReader env m
-                 , HasPlatformReq env
-                 , HasGHCupInfo env
-                 , HasDirs env
-                 , HasSettings env
-                 , MonadLogger m
-                 , MonadResource m
-                 , MonadIO m
-                 , MonadUnliftIO m
-                 )
-              => FilePath
-              -> Version         -- ^ the version to install
-              -> Excepts
-                   '[ AlreadyInstalled
-                    , BuildFailed
-                    , DigestError
-                    , DownloadFailed
-                    , NoDownload
-                    , NotInstalled
-                    , UnknownArchive
-                    , TarDirDoesNotExist
-#if !defined(TAR)
-                    , ArchiveResult
-#endif
-                    ]
-                   m
-                   ()
-
-installGHCBinIsolated isoDir ver = do
-  dlinfo <- liftE $ getDownloadInfo GHC ver
-
-  lift $ $(logDebug) [i|Requested to install GHC with #{ver}|]
-
-  -- download (or use cached version)
-  dl <- liftE $ downloadCached dlinfo Nothing
-
-  lift $ $(logInfo) [i|isolated installing GHC to #{isoDir}|]
-
-  liftE $ installPackedGHC dl (view dlSubdir dlinfo) isoDir ver
-
-
 -- | Install a packed GHC distribution. This only deals with unpacking and the GHC
 -- build system and nothing else.
 installPackedGHC :: ( MonadMask m