diff options
Diffstat (limited to 'Utility/CopyFile.hs')
| -rw-r--r-- | Utility/CopyFile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/CopyFile.hs b/Utility/CopyFile.hs index 6601d0a80..503ab842a 100644 --- a/Utility/CopyFile.hs +++ b/Utility/CopyFile.hs @@ -47,10 +47,10 @@ createLinkOrCopy :: FilePath -> FilePath -> IO Bool #ifndef mingw32_HOST_OS createLinkOrCopy src dest = go `catchIO` const fallback where - go = do + go = do createLink src dest return True - fallback = copyFileExternal CopyAllMetaData src dest + fallback = copyFileExternal CopyAllMetaData src dest #else createLinkOrCopy = copyFileExternal CopyAllMetaData #endif |