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