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

change type of rmGhcup fn from "Excepts '[NotInstalled] m ()" to m ()

Browse Source
This commit is contained in:
Arjun Kathuria 2021-06-26 23:26:31 +05:30
parent bb7229d224
commit d166cc84a1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/GHCup.hs
View File

@ -1284,13 +1284,13 @@ rmStackVer ver = do
-- assuming the current scheme of having just 1 ghcup bin, no version info is required. -- assuming the current scheme of having just 1 ghcup bin, no version info is required.
rmGhcup :: ( MonadReader AppState m rmGhcup :: ( MonadReader AppState m
, MonadIO m, , MonadIO m
MonadCatch m , MonadCatch m
) )
=> Excepts '[NotInstalled] m () => m ()
rmGhcup = do rmGhcup = do
AppState {dirs = Dirs {binDir}} <- lift ask AppState {dirs = Dirs {binDir}} <- ask
let ghcupFilename = "ghcup" <> exeExt let ghcupFilename = "ghcup" <> exeExt
let ghcupFilepath = binDir </> ghcupFilename let ghcupFilepath = binDir </> ghcupFilename
#if defined(IS_WINDOWS) #if defined(IS_WINDOWS)
@ -1332,7 +1332,7 @@ rmTool ListResult {lVer, lTool, lCross} = do
rmStackVer lVer rmStackVer lVer
GHCup -> do GHCup -> do
rmGhcup lift rmGhcup
rmGhcupDirs :: ( MonadReader AppState m rmGhcupDirs :: ( MonadReader AppState m
, MonadIO m , MonadIO m