createSymbolicLinkUnpriv: include unpriv flag when calling API

Actually fixes haskell#83.
Rufflewind · May 25, 2018 · 76e4c21 · 76e4c21
1 parent f6face0
commit 76e4c21
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/Directory/Internal/Windows.hsc b/System/Directory/Internal/Windows.hsc
@@ -497,7 +497,7 @@ createSymbolicLinkUnpriv link _target _isDir =
     call pLink pTarget flags win32_sYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE
   where
     call pLink pTarget flags unpriv = do
-      status <- c_CreateSymbolicLink pLink pTarget flags
+      status <- c_CreateSymbolicLink pLink pTarget (flags .|. unpriv)
       when (status == 0) $ do
         e <- Win32.getLastError
         case () of