{-# LANGUAGE NoImplicitPrelude #-}
module System.Permissions
( setScriptPerms
, osIsWindows
, setFileExecutable
) where
import qualified System.Posix.Files as Posix
import RIO
osIsWindows :: Bool
osIsWindows = False
setScriptPerms :: MonadIO m => FilePath -> m ()
setScriptPerms fp = do
liftIO $ Posix.setFileMode fp $
Posix.ownerReadMode `Posix.unionFileModes`
Posix.ownerWriteMode `Posix.unionFileModes`
Posix.groupReadMode `Posix.unionFileModes`
Posix.otherReadMode
setFileExecutable :: MonadIO m => FilePath -> m ()
setFileExecutable fp = liftIO $ Posix.setFileMode fp 0o755