module Autolib.Util.Chmod where

--  $Id$

import System.Cmd

-- FIXME: check for shell command injection
chmod :: String -> FilePath -> IO ()
chmod :: String -> String -> IO ()
chmod String
flags String
f = do
    String -> IO ExitCode
system (String -> IO ExitCode) -> String -> IO ExitCode
forall a b. (a -> b) -> a -> b
$ [String] -> String
unwords [ String
"chmod",  String
flags, String
f ]
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()