parseUsername :: Parser Username
parseUsername = fieldWrapperParser (Username) $ short 'u' <> long "username" <> metavar "USERNAME"
parseUsername :: Parser Username
parseUsername = fieldWrapperParser (Username) $ short 'u' <> long "username" <> metavar "USERNAME"
parseUsername = fieldWrapperParser (Username) $ short 'u' <> long "username" <> metavar "USERNAME"