From 76e4c21a3db4b8851bd8369d2ca4bcaeb1bb9cb5 Mon Sep 17 00:00:00 2001
From: Phil Ruffwind <rf@rufflewind.com>
Date: Fri, 25 May 2018 10:38:11 -0700
Subject: [PATCH] createSymbolicLinkUnpriv: include unpriv flag when calling
 API

Actually fixes #83.
---
 System/Directory/Internal/Windows.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/System/Directory/Internal/Windows.hsc b/System/Directory/Internal/Windows.hsc
index 00c7b562..3ebe65fa 100644
--- 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