flag_verbosity :: Parser Verbosity
flag_verbosity = flag Quiet Verbose $ mconcat
    [ long "verbose"
    , short 'v'
    , help "Print diagnostic information"
    ]
flag_verbosity :: Parser Verbosity
flag_verbosity = flag Quiet Verbose $ mconcat
    [ long "verbose"
    , short 'v'
    , help "Print diagnostic information"
    ]
flag_verbosity = flag Quiet Verbose $ mconcat
    [ long "verbose"
    , short 'v'
    , help "Print diagnostic information"
    ]