hmailImapOptions :: OA.Parser (DInit Maybe)
hmailImapOptions = F.fold
  [ hostOpt d_imapHostnamel (long "imap-hostname" <> metavar "HOST"
    <> help "The (imap) host to connect to")
  , portOpt d_imapPortl (long "imap-port" <> metavar "PORT"
    <> value 993 <> help "The (imap) port to connect to"
    <> showDefault )
  , userOpt d_imapUsernamel (long "imap-username" <> metavar "USER"
    <> help "The username of the (imap) account to log into")
  , passOpt d_imapPasswordl (long "imap-password" <> metavar "PWD"
    <> help "The password for the (imap) account") ]
hmailImapOptions :: OA.Parser (DInit Maybe)
hmailImapOptions = F.fold
  [ hostOpt d_imapHostnamel (long "imap-hostname" <> metavar "HOST"
    <> help "The (imap) host to connect to")
  , portOpt d_imapPortl (long "imap-port" <> metavar "PORT"
    <> value 993 <> help "The (imap) port to connect to"
    <> showDefault )
  , userOpt d_imapUsernamel (long "imap-username" <> metavar "USER"
    <> help "The username of the (imap) account to log into")
  , passOpt d_imapPasswordl (long "imap-password" <> metavar "PWD"
    <> help "The password for the (imap) account") ]
hmailImapOptions = F.fold
  [ hostOpt d_imapHostnamel (long "imap-hostname" <> metavar "HOST"
    <> help "The (imap) host to connect to")
  , portOpt d_imapPortl (long "imap-port" <> metavar "PORT"
    <> value 993 <> help "The (imap) port to connect to"
    <> showDefault )
  , userOpt d_imapUsernamel (long "imap-username" <> metavar "USER"
    <> help "The username of the (imap) account to log into")
  , passOpt d_imapPasswordl (long "imap-password" <> metavar "PWD"
    <> help "The password for the (imap) account") ]