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

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

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index f8b6b41..88ed583 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -617,62 +617,6 @@ installHLS' path inst ver = do
     (inst </> toF)
   lift $ chmod_755 (inst </> toF)
 
--- | Installs hls binaries in an isolated location provided by user,
--- doesn't make any symlinks
-
-installHLSBinIsolated :: ( MonadMask m
-                         , MonadCatch m
-                         , MonadReader env m
-                         , HasPlatformReq env
-                         , HasGHCupInfo env
-                         , HasDirs env
-                         , HasSettings 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
-                           ()
-installHLSBinIsolated isoDir ver = do
-  dlinfo <- liftE $ getDownloadInfo HLS ver
-
-  lift $ $(logDebug) [i|Requested to install hls 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 HLS to #{isoDir}|]
-
-  liftE $ installHLS' workdir isoDir ver
-
-
 -- | Installs hls binaries @haskell-language-server-\<ghcver\>@
 -- into @~\/.ghcup\/bin/@, as well as @haskell-languager-server-wrapper@.
 installHLSBin :: ( MonadMask m