parseLocation :: Parser Location
parseLocation = fieldWrapperParser (Location) $ short 'l' <> long "location" <> metavar "LOCATION"
parseLocation :: Parser Location
parseLocation = fieldWrapperParser (Location) $ short 'l' <> long "location" <> metavar "LOCATION"
parseLocation = fieldWrapperParser (Location) $ short 'l' <> long "location" <> metavar "LOCATION"