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

swap checkFileAlreadyExists with throwIfFileAlreadyExists

Browse Source
This commit is contained in:
Arjun Kathuria 2021-08-24 20:39:07 +05:30
parent 8c486e8d46
commit df758d828b
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/GHCup.hs
View File

@ -484,8 +484,7 @@ installCabalUnpacked path inst mver' = do
<> exeExt
let destPath = inst </> destFileName
whenM (checkFileAlreadyExists destPath)
(throwE $ FileAlreadyExistsError destPath)
liftE $ throwIfFileAlreadyExists destPath
handleIO (throwE . CopyError . show) $ liftIO $ copyFile
(path </> cabalFile <> exeExt)
@ -628,8 +627,7 @@ installHLSUnpacked path inst mver' = do
let srcPath = path </> f
let destPath = inst </> toF
whenM (checkFileAlreadyExists destPath)
(throwE $ FileAlreadyExistsError destPath)
liftE $ throwIfFileAlreadyExists destPath
handleIO (throwE . CopyError . show) $ liftIO $ copyFile
srcPath
@ -644,8 +642,7 @@ installHLSUnpacked path inst mver' = do
srcWrapperPath = path </> wrapper <> exeExt
destWrapperPath = inst </> toF
whenM (checkFileAlreadyExists destWrapperPath)
(throwE $ FileAlreadyExistsError destWrapperPath)
liftE $ throwIfFileAlreadyExists destWrapperPath
handleIO (throwE . CopyError . show) $ liftIO $ copyFile
srcWrapperPath
@ -815,8 +812,7 @@ installStackUnpacked path inst mver' = do
<> exeExt
destPath = inst </> destFileName
whenM (checkFileAlreadyExists destPath)
(throwE $ FileAlreadyExistsError destPath)
liftE $ throwIfFileAlreadyExists destPath
handleIO (throwE . CopyError . show) $ liftIO $ copyFile
(path </> stackFile <> exeExt)
@ -2380,4 +2376,10 @@ whereIsTool tool ver@GHCTargetVersion {..} = do
liftIO $ canonicalizePath currentRunningExecPath
throwIfFileAlreadyExists :: ( MonadIO m ) =>
FilePath ->
Excepts '[FileAlreadyExistsError] m ()
throwIfFileAlreadyExists fp = whenM (checkFileAlreadyExists fp)
(throwE $ FileAlreadyExistsError fp)