{-# LINE 1 "System\\Win32\\WindowsString\\SymbolicLink.hsc" #-}{-# LANGUAGE CPP #-}{- |
 Module : System.Win32.SymbolicLink
 Copyright : 2012 shelarcy
 License : BSD-style
 Maintainer : shelarcy@gmail.com
 Stability : Provisional
 Portability : Non-portable (Win32 API)
 Handling symbolic link using Win32 API. [Vista of later and desktop app only]
 Note: When using the createSymbolicLink* functions without the
 SYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE flag, you should worry about UAC
 (User Account Control) when use this module's function in your application:
 * require to use 'Run As Administrator' to run your application.
 * or modify your application's manifect file to add
 \<requestedExecutionLevel level='requireAdministrator' uiAccess='false'/\>.
 Starting from Windows 10 version 1703 (Creators Update), after enabling
 Developer Mode, users can create symbolic links without requiring the
 Administrator privilege in the current process. Supply a 'True' flag in
 addition to the target and link name to enable this behavior.
-}moduleSystem.Win32.WindowsString.SymbolicLink(SymbolicLinkFlags,sYMBOLIC_LINK_FLAG_FILE,sYMBOLIC_LINK_FLAG_DIRECTORY,sYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE,createSymbolicLink,createSymbolicLink',createSymbolicLinkFile,createSymbolicLinkDirectory)whereimportSystem.Win32.SymbolicLink.InternalimportData.Bits((.|.))importSystem.Win32.WindowsString.TypesimportSystem.Win32.WindowsString.File(failIfFalseWithRetry_)importSystem.OsPath.WindowsimportUnsafe.Coerce(unsafeCoerce)
#include "windows_cconv.h"
-- | createSymbolicLink* functions don't check that file is exist or not.
--
-- NOTE: createSymbolicLink* functions are /flipped arguments/ to provide compatibility for Unix,
-- except 'createSymbolicLink''.
--
-- If you want to create symbolic link by Windows way, use 'createSymbolicLink'' instead.
createSymbolicLink::WindowsPath-- ^ Target file path
->WindowsPath-- ^ Symbolic link name
->SymbolicLinkFlags->IO()createSymbolicLink=flipcreateSymbolicLink'createSymbolicLinkFile::WindowsPath-- ^ Target file path
->WindowsPath-- ^ Symbolic link name
->Bool-- ^ Create the symbolic link with the unprivileged mode
->IO()createSymbolicLinkFiletargetlinkunprivileged=createSymbolicLink'linktarget(ifunprivilegedthensYMBOLIC_LINK_FLAG_FILE.|.sYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATEelsesYMBOLIC_LINK_FLAG_FILE)createSymbolicLinkDirectory::WindowsPath-- ^ Target file path
->WindowsPath-- ^ Symbolic link name
->Bool-- ^ Create the symbolic link with the unprivileged mode
->IO()createSymbolicLinkDirectorytargetlinkunprivileged=createSymbolicLink'linktarget(ifunprivilegedthensYMBOLIC_LINK_FLAG_DIRECTORY.|.sYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATEelsesYMBOLIC_LINK_FLAG_DIRECTORY)createSymbolicLink'::WindowsPath-- ^ Symbolic link name
->WindowsPath-- ^ Target file path
->SymbolicLinkFlags->IO()createSymbolicLink'linktargetflag=dowithTStringlink$\c_link->withTStringtarget$\c_target->failIfFalseWithRetry_(unwords["CreateSymbolicLink",showlink,showtarget])$c_CreateSymbolicLinkc_linkc_target(unsafeCoerceflag)