commonOpts :: Parser CommonOpts
commonOpts = CommonOpts
  <$> flag Normal Verbose
       ( long "verbose"
       <> short 'v'
       <> help "Enable verbose mode" )
commonOpts :: Parser CommonOpts
commonOpts = CommonOpts
  <$> flag Normal Verbose
       ( long "verbose"
       <> short 'v'
       <> help "Enable verbose mode" )
commonOpts = CommonOpts
  <$> flag Normal Verbose
       ( long "verbose"
       <> short 'v'
       <> help "Enable verbose mode" )