From ae5e213b5956cce23cbbc46b78506d1f8d8c47c0 Mon Sep 17 00:00:00 2001
From: Arjun Kathuria <arjun.kathuria8@gmail.com>
Date: Sun, 25 Jul 2021 22:25:25 +0530
Subject: [PATCH] deletes `installStackBinIsolated` function

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

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index a04cc9a..f09d923 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -781,61 +781,6 @@ installStack' path inst ver = do
   lift $ chmod_755 destPath
 
 
--- | Installs stack into an isolated location sepcified by the user,
--- also, doesn't make any symlinks.
-
-installStackBinIsolated :: ( MonadMask m
-                           , MonadCatch m
-                           , MonadReader env m
-                           , HasDirs env
-                           , HasSettings env
-                           , HasPlatformReq env
-                           , HasGHCupInfo env
-                           , MonadLogger m
-                           , MonadResource m
-                           , MonadIO m
-                           , MonadUnliftIO m
-                           , MonadFail m
-                           )
-                        => FilePath
-                        -> Version
-                        -> Excepts
-                             '[ AlreadyInstalled
-                              , CopyError
-                              , DigestError
-                              , DownloadFailed
-                              , NoDownload
-                              , NotInstalled
-                              , UnknownArchive
-                              , TarDirDoesNotExist
-#if !defined(TAR)
-                              , ArchiveResult
-#endif
-                              ]
-                             m
-                             ()
-installStackBinIsolated isoDir ver = do
-  dlinfo <- liftE $ getDownloadInfo Stack ver
-
-  lift $ $(logDebug) [i|Requested to install stack version #{ver}|]
-
-  PlatformRequest {_rPlatform} <- lift getPlatformReq
-
-  -- download (or use cached version)
-  dl <- liftE $ downloadCached dlinfo Nothing
-
-  -- unpack
-  tmpUnpack <- lift withGHCupTmpDir
-  liftE $ unpackToDir tmpUnpack dl
-  void $ lift $ darwinNotarization _rPlatform tmpUnpack
-
-  -- the subdir of the archive where we do the work
-  workdir <- maybe (pure tmpUnpack) (liftE . intoSubdir tmpUnpack) (view dlSubdir dlinfo)
-
-  lift $ $(logInfo) [i|isolated installing Stack to #{isoDir}|]
-
-  liftE $ installStack' workdir isoDir ver
-
     ---------------------
     --[ Set GHC/cabal ]--
     ---------------------