Do not create non-existing files when copying

Fixes haskell#177
Rufflewind · May 20, 2024 · 81d4be1 · 81d4be1
1 parent 8d3a20d
commit 81d4be1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/Directory/Internal/Windows.hsc b/System/Directory/Internal/Windows.hsc
@@ -113,7 +113,7 @@ openFileForRead (OsString path) =
       Win32.gENERIC_READ
       maxShareMode
       Nothing
-      Win32.oPEN_ALWAYS
+      Win32.oPEN_EXISTING
       (Win32.fILE_ATTRIBUTE_NORMAL .|. possiblyOverlapped)
       Nothing)
     Win32.closeHandle