remove installGHCBinIsolated function.
This commit is contained in:
parent
37ea18a0d8
commit
62d03b776b
45
lib/GHCup.hs
45
lib/GHCup.hs
@ -246,51 +246,6 @@ installGHCBindist dlinfo ver isoFilepath = do
|
|||||||
lift $ $(logWarn) "environments). If you encounter problems, unset CC and LD and reinstall."
|
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
|
-- | Install a packed GHC distribution. This only deals with unpacking and the GHC
|
||||||
-- build system and nothing else.
|
-- build system and nothing else.
|
||||||
installPackedGHC :: ( MonadMask m
|
installPackedGHC :: ( MonadMask m
|
||||||
|
Loading…
Reference in New Issue
Block a user