Skip to content
Snippets Groups Projects
Commit 3fae516c authored by Arjun Kathuria's avatar Arjun Kathuria :rocket:
Browse files

Adds using 'rmFile' fn in rmGhcupDirs, it has better windows handling logic

parent 33eaa765
No related branches found
No related tags found
1 merge request!101[WIP] Feature "nuke"
......@@ -1314,7 +1314,8 @@ rmTool ListResult {lVer, lTool, lCross} = do
rmGhcupDirs :: ( MonadReader AppState m
, MonadIO m
, MonadLogger m
, MonadCatch m )
, MonadCatch m
, MonadMask m )
=> m ()
rmGhcupDirs = do
dirs@Dirs
......@@ -1365,7 +1366,7 @@ rmGhcupDirs = do
removeDirIfEmpty logsDir
deleteFile filepath = do
hideError InappropriateType $ liftIO $ removeFile filepath
hideError InappropriateType $ rmFile filepath
removeDirIfEmpty filepath =
hideError UnsatisfiedConstraints $ liftIO $ removeDirectory filepath
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment