hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

factor out installStack' function

Browse Source
This commit is contained in:
Arjun Kathuria 2021-07-23 16:43:43 +05:30
parent 9a79af6fd2
commit 42d4a66493
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/GHCup.hs
View File

@ -854,13 +854,14 @@ installStackBindist dlinfo ver = do
let lInstStack = headMay . reverse . sort $ sVers let lInstStack = headMay . reverse . sort $ sVers
when (maybe True (ver >=) lInstStack) $ liftE $ setStack ver when (maybe True (ver >=) lInstStack) $ liftE $ setStack ver
where
-- | Install an unpacked stack distribution. -- | Install an unpacked stack distribution.
installStack' :: (MonadLogger m, MonadCatch m, MonadIO m) installStack' :: (MonadLogger m, MonadCatch m, MonadIO m)
=> FilePath -- ^ Path to the unpacked stack bindist (where the executable resides) => FilePath -- ^ Path to the unpacked stack bindist (where the executable resides)
-> FilePath -- ^ Path to install to -> FilePath -- ^ Path to install to
-> Version
-> Excepts '[CopyError] m () -> Excepts '[CopyError] m ()
installStack' path inst = do installStack' path inst ver = do
lift $ $(logInfo) "Installing stack" lift $ $(logInfo) "Installing stack"
let stackFile = "stack" let stackFile = "stack"
liftIO $ createDirRecursive' inst liftIO $ createDirRecursive' inst
@ -873,7 +874,6 @@ installStackBindist dlinfo ver = do
--------------------- ---------------------
--[ Set GHC/cabal ]-- --[ Set GHC/cabal ]--
--------------------- ---------------------