remove installGHCBinIsolated function.

This commit is contained in:
Arjun Kathuria 2021-07-25 13:39:44 +05:30
parent 5efe2e5f7a
commit 4f7d41a8cc

View File

@ -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