sendMail1 :: Email -> IO ()
sendMail1 e = do
  let tmp  = uid e
  let cmd  = mailCmd e
  writeFile tmp (text e)
  status  <- if send e then show `fmap` system cmd else return "FAKESEND"
  putStrLn $ printf "[exec: %s] Status[%s]: %s %s" cmd status (uid e) (to e)
sendMail1 :: Email -> IO ()
sendMail1 e = do
  let tmp  = uid e
  let cmd  = mailCmd e
  writeFile tmp (text e)
  status  <- if send e then show `fmap` system cmd else return "FAKESEND"
  putStrLn $ printf "[exec: %s] Status[%s]: %s %s" cmd status (uid e) (to e)
sendMail1 e = do
  let tmp  = uid e
  let cmd  = mailCmd e
  writeFile tmp (text e)
  status  <- if send e then show `fmap` system cmd else return "FAKESEND"
  putStrLn $ printf "[exec: %s] Status[%s]: %s %s" cmd status (uid e) (to e)