From b5fb8772fea835961bc94e43d170a7a283addfd1 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sat, 21 May 2022 00:33:01 +0200 Subject: [PATCH] Fix windows --- lib/GHCup/Utils/File/Windows.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/GHCup/Utils/File/Windows.hs b/lib/GHCup/Utils/File/Windows.hs index 5d168cf..84d979b 100644 --- a/lib/GHCup/Utils/File/Windows.hs +++ b/lib/GHCup/Utils/File/Windows.hs @@ -295,15 +295,15 @@ deleteFile = WS.deleteFile install :: FilePath -> FilePath -> Bool -> IO () -install = moveFile +install = copyFile 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 = Win32.moveFile +moveFilePortable = WS.moveFile removeEmptyDirectory :: FilePath -> IO ()