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

Fix windows

Browse Source
This commit is contained in:
Julian Ospald 2022-05-21 00:33:01 +02:00
parent 5741e069ad
commit b5fb8772fe
Signed by: hasufell
GPG Key ID: 3786C5262ECB4A3F
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/GHCup/Utils/File/Windows.hs
View File

@ -295,15 +295,15 @@ deleteFile = WS.deleteFile
install :: FilePath -> FilePath -> Bool -> IO () install :: FilePath -> FilePath -> Bool -> IO ()
install = moveFile install = copyFile
moveFile :: FilePath -> FilePath -> IO () moveFile :: FilePath -> FilePath -> IO ()
moveFile from to = Win32.moveFileEx from (Just to) 0 moveFile from to = WS.moveFileEx from (Just to) 0
moveFilePortable :: FilePath -> FilePath -> IO () moveFilePortable :: FilePath -> FilePath -> IO ()
moveFilePortable = Win32.moveFile moveFilePortable = WS.moveFile
removeEmptyDirectory :: FilePath -> IO () removeEmptyDirectory :: FilePath -> IO ()