module HSH.Helpers.Email where
import HSH
import HSH.Helpers.Utils
import Text.StringTemplate.Helpers
newtype PureInput = PureInput { unpureinput :: String }
deriving (Read,Show)
mailxEmail :: String -> String -> [Char] -> IO (Either String ())
mailxEmail emailBody subject "" = return . Left $ "no email recipient"
mailxEmail emailBody subject recipient = tryS $ runIO $ echo emailBody -|- mailxCommand
where mailxCommand = render1 [("subject",subject),("recipient",recipient)]
"mailx -s \"$subject$\" $recipient$"