module System.Directory.Executable ( mkExecutable ) where

import           System.Directory





mkExecutable :: FilePath -> IO ()
mkExecutable :: FilePath -> IO ()
mkExecutable FilePath
fp = do
    Permissions
perms <- FilePath -> IO Permissions
getPermissions FilePath
fp
    FilePath -> Permissions -> IO ()
setPermissions FilePath
fp (Bool -> Permissions -> Permissions
setOwnerExecutable Bool
True Permissions
perms)