cpkg-0.1.0.0: src/System/Directory/Executable.cpphs

module System.Directory.Executable ( mkExecutable ) where

import           System.Directory

#ifdef mingw32_HOST_OS
mkExecutable :: FilePath -> IO ()
mkExecutable = mempty
#else
mkExecutable :: FilePath -> IO ()
mkExecutable fp = do
    perms <- getPermissions fp
    setPermissions fp (setOwnerExecutable True perms)
#endif