[commit: packages/directory] master: Use fILE_ATTRIBUTE_REPARSE_POINT from Win32 when available (e6b3ac7)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/directory

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e6b3ac7f73d6e20a98e61623994f1fb782897621/directory

>---------------------------------------------------------------

commit e6b3ac7f73d6e20a98e61623994f1fb782897621
Author: Phil Ruffwind <rf at rufflewind.com>
Date:   Mon Mar 6 22:51:55 2017 -0500

    Use fILE_ATTRIBUTE_REPARSE_POINT from Win32 when available
    
    Could also use createSymbolicLink from Win32, but then it would be hard
    figure out what the error code was :/


>---------------------------------------------------------------

e6b3ac7f73d6e20a98e61623994f1fb782897621
 System/Directory/Internal/Windows.hsc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/System/Directory/Internal/Windows.hsc b/System/Directory/Internal/Windows.hsc
index 338db8b..b3da63e 100644
--- a/System/Directory/Internal/Windows.hsc
+++ b/System/Directory/Internal/Windows.hsc
@@ -39,7 +39,11 @@ win32_eRROR_INVALID_FUNCTION :: Win32.ErrCode
 win32_eRROR_INVALID_FUNCTION = 0x1
 
 win32_fILE_ATTRIBUTE_REPARSE_POINT :: Win32.FileAttributeOrFlag
+#if MIN_VERSION_Win32(2, 4, 0)
+win32_fILE_ATTRIBUTE_REPARSE_POINT = Win32.fILE_ATTRIBUTE_REPARSE_POINT
+#else
 win32_fILE_ATTRIBUTE_REPARSE_POINT = (#const FILE_ATTRIBUTE_REPARSE_POINT)
+#endif
 
 win32_fILE_SHARE_DELETE :: Win32.ShareMode
 #if MIN_VERSION_Win32(2, 3, 1)