hmailOptions :: OA.Parser (IO ())
hmailOptions = pure hmailMain
  <*> ( (fmap Verbosity . switch) (long "verbose" <> help "write debug output") )
  <*> ( hmailImapOptions <> hmailSmtpOptions )
hmailOptions :: OA.Parser (IO ())
hmailOptions = pure hmailMain
  <*> ( (fmap Verbosity . switch) (long "verbose" <> help "write debug output") )
  <*> ( hmailImapOptions <> hmailSmtpOptions )
hmailOptions = pure hmailMain
  <*> ( (fmap Verbosity . switch) (long "verbose" <> help "write debug output") )
  <*> ( hmailImapOptions <> hmailSmtpOptions )