HSHHelpers 0.17 → 0.18

raw patch · 4 files changed

+25/−5 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ HSH.Helpers.Email: PureInput :: String -> PureInput

+ HSH.Helpers.Email: instance Read PureInput

+ HSH.Helpers.Email: instance Show PureInput

+ HSH.Helpers.Email: newtype PureInput

+ HSH.Helpers.Email: unpureinput :: PureInput -> String

Files

HSH/Helpers.hs +1/−1
HSH/Helpers/Email.hs +21/−0
HSH/Helpers/UnixUsers.hs +1/−2
HSHHelpers.cabal +2/−2

HSH/Helpers.hs view

@@ -10,7 +10,7 @@ import HSH.Helpers.UnixUsers import HSH.Helpers.FileManip import HSH.Helpers.Utils-+import HSH.Helpers.Email import HSH

+ HSH/Helpers/Email.hs view

@@ -0,0 +1,21 @@+module HSH.Helpers.Email where+import HSH+import Text.StringTemplate.Helpers++newtype PureInput = PureInput { unpureinput :: String }+  deriving (Read,Show)+++{- |+  Send an email via mailx.++  For sysadmin steps required for this command to work with most of the work outsourced to gmail, see last three posts in thread++  http://groups.google.com/group/HAppS/browse_thread/thread/93317d4d7317040f/14cd89d98f1f4041++  This assumes a unixy environment, +-}+mailxEmail emailBody subject recipient = runIO $ echo emailBody -|- mailxCommand+  where mailxCommand = render1 [("subject",subject),("recipient",recipient)]+                               "mailx -s \"$subject$\" $recipient$"+

HSH/Helpers/UnixUsers.hs view

@@ -13,7 +13,6 @@ import Text.StringTemplate.Helpers  import HSH.Helpers.Utils-import Debug.Trace.Helpers  -- similar formats, so we can share most of the logic isSystemUser :: SysUser -> IO Bool@@ -138,7 +137,7 @@         ChmodWX -> "wx"         ChmodRWX -> "rwx"       recurse = if recurse' then "-R" else ""-  runIO $ traceIt $ render1 [("op",op)+  runIO $           render1 [("op",op)                              , ("ugo",ugo)                              , ("recurse",recurse)                              , ("perm",perm)

HSHHelpers.cabal view

@@ -1,5 +1,5 @@ Name: HSHHelpers-Version: 0.17+Version: 0.18 License: GPL License-file: gpl.txt Description: @@ -14,7 +14,7 @@ Stability: Beta Copyright: Copyright (c) 2008 Thomas Hartman Exposed-Modules: HSH.Helpers, HSH.Helpers.Instances, HSH.Helpers.UnixUsers, HSH.Helpers.FileManip, -                 HSH.Helpers.Utils+                 HSH.Helpers.Utils, HSH.Helpers.Email Build-Depends: base, HSH, unix, HStringTemplateHelpers, MissingH, regex-pcre, directory, bytestring, filepath, mtl,                DebugTraceHelpers Category: System