hmailSmtpOptions :: OA.Parser (DInit Maybe)
hmailSmtpOptions = F.fold
  [ hostOpt d_smtpHostnamel (long "smtp-hostname" <> metavar "HOST"
    <> help "The (smtp) host to connect to")
  , portOpt d_smtpPortl (long "smtp-port" <> metavar "PORT"
    <> help "The (smtp) port to connect to")
  , userOpt d_smtpUsernamel (long "smtp-username" <> metavar "USER"
    <> help "The username of the (smtp) account to log into")
  , passOpt d_smtpPasswordl (long "smtp-password" <> metavar "PWD"
    <> help "The password for the (smtp) account") ]
hmailSmtpOptions :: OA.Parser (DInit Maybe)
hmailSmtpOptions = F.fold
  [ hostOpt d_smtpHostnamel (long "smtp-hostname" <> metavar "HOST"
    <> help "The (smtp) host to connect to")
  , portOpt d_smtpPortl (long "smtp-port" <> metavar "PORT"
    <> help "The (smtp) port to connect to")
  , userOpt d_smtpUsernamel (long "smtp-username" <> metavar "USER"
    <> help "The username of the (smtp) account to log into")
  , passOpt d_smtpPasswordl (long "smtp-password" <> metavar "PWD"
    <> help "The password for the (smtp) account") ]
hmailSmtpOptions = F.fold
  [ hostOpt d_smtpHostnamel (long "smtp-hostname" <> metavar "HOST"
    <> help "The (smtp) host to connect to")
  , portOpt d_smtpPortl (long "smtp-port" <> metavar "PORT"
    <> help "The (smtp) port to connect to")
  , userOpt d_smtpUsernamel (long "smtp-username" <> metavar "USER"
    <> help "The username of the (smtp) account to log into")
  , passOpt d_smtpPasswordl (long "smtp-password" <> metavar "PWD"
    <> help "The password for the (smtp) account") ]