HSHHelpers 0.15 → 0.16

raw patch · 2 files changed

+7/−6 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• HSH/Helpers/UnixUsers.hs +6/−5
• HSHHelpers.cabal +1/−1

@@ -32,10 +32,11 @@  -- wrapper over groupadd groupadd :: SysGroup -> IO (Either String ())-groupadd (SysGroup g) = -- runErrorT $ do-  -- inPath "groupadd"-  tryS $ runIO $ render1 [("g",g)] "groupadd $g$"+groupadd (SysGroup g) = tryS $ runIO $ render1 [("g",g)] "groupadd $g$" +groupdel :: SysGroup -> IO (Either String ())+groupdel (SysGroup g) = tryS $ runIO $ render1 [("g",g)] "groupdel $g$"+ -- a wrapper over the useradd command  useradd :: SysUser -> (Maybe SysGroup) -> (Maybe SysShell) -> (Maybe SysHomedir) -> IO (Either String ()) useradd (SysUser uname) mbG mbSh mbHomedir = do@@ -145,9 +146,9 @@       recurse = if recurse' then "-R" else ""   runIO $ traceIt $ render1 [("op",op)                              , ("ugo",ugo)-                             , ("recurse","recurse")+                             , ("recurse",recurse)                              , ("perm",perm)-                             , ("path",path)] "chmod $ugo$$op$$perm$ $path$"+                             , ("path",path)] "chmod $ugo$$op$$perm$ $recurse$ $path$"  -- could work on getUsersWithoutGroups, getUsersWithoutHomeDir, rmUsersWithoutGroups, etc -- should put haddock readable comment that this might be a dangerous thing to do, 

@@ -1,5 +1,5 @@ Name: HSHHelpers-Version: 0.15+Version: 0.16 License: GPL License-file: gpl.txt Description: