{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Jobs.Types.Sum where
import Network.Google.Prelude hiding (Bytes)
data CompensationFilterType
= FilterTypeUnspecified
| UnitOnly
| UnitAndAmount
| AnnualizedBaseAmount
| AnnualizedTotalAmount
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CompensationFilterType
instance FromHttpApiData CompensationFilterType where
parseQueryParam = \case
"FILTER_TYPE_UNSPECIFIED" -> Right FilterTypeUnspecified
"UNIT_ONLY" -> Right UnitOnly
"UNIT_AND_AMOUNT" -> Right UnitAndAmount
"ANNUALIZED_BASE_AMOUNT" -> Right AnnualizedBaseAmount
"ANNUALIZED_TOTAL_AMOUNT" -> Right AnnualizedTotalAmount
x -> Left ("Unable to parse CompensationFilterType from: " <> x)
instance ToHttpApiData CompensationFilterType where
toQueryParam = \case
FilterTypeUnspecified -> "FILTER_TYPE_UNSPECIFIED"
UnitOnly -> "UNIT_ONLY"
UnitAndAmount -> "UNIT_AND_AMOUNT"
AnnualizedBaseAmount -> "ANNUALIZED_BASE_AMOUNT"
AnnualizedTotalAmount -> "ANNUALIZED_TOTAL_AMOUNT"
instance FromJSON CompensationFilterType where
parseJSON = parseJSONText "CompensationFilterType"
instance ToJSON CompensationFilterType where
toJSON = toJSONText
data HistogramResultSearchType
= SearchTypeUnspecified
| CompanyId
| EmploymentType
| CompanySize
| DatePublished
| EducationLevel
| ExperienceLevel
| Admin1
| Country
| City
| Locale
| Language
| Category
| CityCoordinate
| Admin1Country
| CompanyDisplayName
| BaseCompensationUnit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable HistogramResultSearchType
instance FromHttpApiData HistogramResultSearchType where
parseQueryParam = \case
"SEARCH_TYPE_UNSPECIFIED" -> Right SearchTypeUnspecified
"COMPANY_ID" -> Right CompanyId
"EMPLOYMENT_TYPE" -> Right EmploymentType
"COMPANY_SIZE" -> Right CompanySize
"DATE_PUBLISHED" -> Right DatePublished
"EDUCATION_LEVEL" -> Right EducationLevel
"EXPERIENCE_LEVEL" -> Right ExperienceLevel
"ADMIN_1" -> Right Admin1
"COUNTRY" -> Right Country
"CITY" -> Right City
"LOCALE" -> Right Locale
"LANGUAGE" -> Right Language
"CATEGORY" -> Right Category
"CITY_COORDINATE" -> Right CityCoordinate
"ADMIN_1_COUNTRY" -> Right Admin1Country
"COMPANY_DISPLAY_NAME" -> Right CompanyDisplayName
"BASE_COMPENSATION_UNIT" -> Right BaseCompensationUnit
x -> Left ("Unable to parse HistogramResultSearchType from: " <> x)
instance ToHttpApiData HistogramResultSearchType where
toQueryParam = \case
SearchTypeUnspecified -> "SEARCH_TYPE_UNSPECIFIED"
CompanyId -> "COMPANY_ID"
EmploymentType -> "EMPLOYMENT_TYPE"
CompanySize -> "COMPANY_SIZE"
DatePublished -> "DATE_PUBLISHED"
EducationLevel -> "EDUCATION_LEVEL"
ExperienceLevel -> "EXPERIENCE_LEVEL"
Admin1 -> "ADMIN_1"
Country -> "COUNTRY"
City -> "CITY"
Locale -> "LOCALE"
Language -> "LANGUAGE"
Category -> "CATEGORY"
CityCoordinate -> "CITY_COORDINATE"
Admin1Country -> "ADMIN_1_COUNTRY"
CompanyDisplayName -> "COMPANY_DISPLAY_NAME"
BaseCompensationUnit -> "BASE_COMPENSATION_UNIT"
instance FromJSON HistogramResultSearchType where
parseJSON = parseJSONText "HistogramResultSearchType"
instance ToJSON HistogramResultSearchType where
toJSON = toJSONText
data CommuteFilterCommuteMethod
= CommuteMethodUnspecified
| Driving
| Transit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CommuteFilterCommuteMethod
instance FromHttpApiData CommuteFilterCommuteMethod where
parseQueryParam = \case
"COMMUTE_METHOD_UNSPECIFIED" -> Right CommuteMethodUnspecified
"DRIVING" -> Right Driving
"TRANSIT" -> Right Transit
x -> Left ("Unable to parse CommuteFilterCommuteMethod from: " <> x)
instance ToHttpApiData CommuteFilterCommuteMethod where
toQueryParam = \case
CommuteMethodUnspecified -> "COMMUTE_METHOD_UNSPECIFIED"
Driving -> "DRIVING"
Transit -> "TRANSIT"
instance FromJSON CommuteFilterCommuteMethod where
parseJSON = parseJSONText "CommuteFilterCommuteMethod"
instance ToJSON CommuteFilterCommuteMethod where
toJSON = toJSONText
data SearchJobsRequestDiversificationLevel
= DiversificationLevelUnspecified
| Disabled
| Simple
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SearchJobsRequestDiversificationLevel
instance FromHttpApiData SearchJobsRequestDiversificationLevel where
parseQueryParam = \case
"DIVERSIFICATION_LEVEL_UNSPECIFIED" -> Right DiversificationLevelUnspecified
"DISABLED" -> Right Disabled
"SIMPLE" -> Right Simple
x -> Left ("Unable to parse SearchJobsRequestDiversificationLevel from: " <> x)
instance ToHttpApiData SearchJobsRequestDiversificationLevel where
toQueryParam = \case
DiversificationLevelUnspecified -> "DIVERSIFICATION_LEVEL_UNSPECIFIED"
Disabled -> "DISABLED"
Simple -> "SIMPLE"
instance FromJSON SearchJobsRequestDiversificationLevel where
parseJSON = parseJSONText "SearchJobsRequestDiversificationLevel"
instance ToJSON SearchJobsRequestDiversificationLevel where
toJSON = toJSONText
data CompensationHistogramResultType
= CompensationHistogramRequestTypeUnspecified
| Base
| AnnualizedBase
| AnnualizedTotal
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CompensationHistogramResultType
instance FromHttpApiData CompensationHistogramResultType where
parseQueryParam = \case
"COMPENSATION_HISTOGRAM_REQUEST_TYPE_UNSPECIFIED" -> Right CompensationHistogramRequestTypeUnspecified
"BASE" -> Right Base
"ANNUALIZED_BASE" -> Right AnnualizedBase
"ANNUALIZED_TOTAL" -> Right AnnualizedTotal
x -> Left ("Unable to parse CompensationHistogramResultType from: " <> x)
instance ToHttpApiData CompensationHistogramResultType where
toQueryParam = \case
CompensationHistogramRequestTypeUnspecified -> "COMPENSATION_HISTOGRAM_REQUEST_TYPE_UNSPECIFIED"
Base -> "BASE"
AnnualizedBase -> "ANNUALIZED_BASE"
AnnualizedTotal -> "ANNUALIZED_TOTAL"
instance FromJSON CompensationHistogramResultType where
parseJSON = parseJSONText "CompensationHistogramResultType"
instance ToJSON CompensationHistogramResultType where
toJSON = toJSONText
data CompensationEntryType
= CETCompensationTypeUnspecified
| CETBase
| CETBonus
| CETSigningBonus
| CETEquity
| CETProfitSharing
| CETCommissions
| CETTips
| CETOtherCompensationType
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CompensationEntryType
instance FromHttpApiData CompensationEntryType where
parseQueryParam = \case
"COMPENSATION_TYPE_UNSPECIFIED" -> Right CETCompensationTypeUnspecified
"BASE" -> Right CETBase
"BONUS" -> Right CETBonus
"SIGNING_BONUS" -> Right CETSigningBonus
"EQUITY" -> Right CETEquity
"PROFIT_SHARING" -> Right CETProfitSharing
"COMMISSIONS" -> Right CETCommissions
"TIPS" -> Right CETTips
"OTHER_COMPENSATION_TYPE" -> Right CETOtherCompensationType
x -> Left ("Unable to parse CompensationEntryType from: " <> x)
instance ToHttpApiData CompensationEntryType where
toQueryParam = \case
CETCompensationTypeUnspecified -> "COMPENSATION_TYPE_UNSPECIFIED"
CETBase -> "BASE"
CETBonus -> "BONUS"
CETSigningBonus -> "SIGNING_BONUS"
CETEquity -> "EQUITY"
CETProfitSharing -> "PROFIT_SHARING"
CETCommissions -> "COMMISSIONS"
CETTips -> "TIPS"
CETOtherCompensationType -> "OTHER_COMPENSATION_TYPE"
instance FromJSON CompensationEntryType where
parseJSON = parseJSONText "CompensationEntryType"
instance ToJSON CompensationEntryType where
toJSON = toJSONText
data DeviceInfoDeviceType
= DeviceTypeUnspecified
| Web
| MobileWeb
| Android
| Ios
| Bot
| Other
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DeviceInfoDeviceType
instance FromHttpApiData DeviceInfoDeviceType where
parseQueryParam = \case
"DEVICE_TYPE_UNSPECIFIED" -> Right DeviceTypeUnspecified
"WEB" -> Right Web
"MOBILE_WEB" -> Right MobileWeb
"ANDROID" -> Right Android
"IOS" -> Right Ios
"BOT" -> Right Bot
"OTHER" -> Right Other
x -> Left ("Unable to parse DeviceInfoDeviceType from: " <> x)
instance ToHttpApiData DeviceInfoDeviceType where
toQueryParam = \case
DeviceTypeUnspecified -> "DEVICE_TYPE_UNSPECIFIED"
Web -> "WEB"
MobileWeb -> "MOBILE_WEB"
Android -> "ANDROID"
Ios -> "IOS"
Bot -> "BOT"
Other -> "OTHER"
instance FromJSON DeviceInfoDeviceType where
parseJSON = parseJSONText "DeviceInfoDeviceType"
instance ToJSON DeviceInfoDeviceType where
toJSON = toJSONText
data CompensationEntryUnit
= CompensationUnitUnspecified
| Hourly
| Daily
| Weekly
| Monthly
| Yearly
| OneTime
| OtherCompensationUnit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CompensationEntryUnit
instance FromHttpApiData CompensationEntryUnit where
parseQueryParam = \case
"COMPENSATION_UNIT_UNSPECIFIED" -> Right CompensationUnitUnspecified
"HOURLY" -> Right Hourly
"DAILY" -> Right Daily
"WEEKLY" -> Right Weekly
"MONTHLY" -> Right Monthly
"YEARLY" -> Right Yearly
"ONE_TIME" -> Right OneTime
"OTHER_COMPENSATION_UNIT" -> Right OtherCompensationUnit
x -> Left ("Unable to parse CompensationEntryUnit from: " <> x)
instance ToHttpApiData CompensationEntryUnit where
toQueryParam = \case
CompensationUnitUnspecified -> "COMPENSATION_UNIT_UNSPECIFIED"
Hourly -> "HOURLY"
Daily -> "DAILY"
Weekly -> "WEEKLY"
Monthly -> "MONTHLY"
Yearly -> "YEARLY"
OneTime -> "ONE_TIME"
OtherCompensationUnit -> "OTHER_COMPENSATION_UNIT"
instance FromJSON CompensationEntryUnit where
parseJSON = parseJSONText "CompensationEntryUnit"
instance ToJSON CompensationEntryUnit where
toJSON = toJSONText
data JobJobLevel
= JobLevelUnspecified
| EntryLevel
| Experienced
| Manager
| Director
| Executive
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable JobJobLevel
instance FromHttpApiData JobJobLevel where
parseQueryParam = \case
"JOB_LEVEL_UNSPECIFIED" -> Right JobLevelUnspecified
"ENTRY_LEVEL" -> Right EntryLevel
"EXPERIENCED" -> Right Experienced
"MANAGER" -> Right Manager
"DIRECTOR" -> Right Director
"EXECUTIVE" -> Right Executive
x -> Left ("Unable to parse JobJobLevel from: " <> x)
instance ToHttpApiData JobJobLevel where
toQueryParam = \case
JobLevelUnspecified -> "JOB_LEVEL_UNSPECIFIED"
EntryLevel -> "ENTRY_LEVEL"
Experienced -> "EXPERIENCED"
Manager -> "MANAGER"
Director -> "DIRECTOR"
Executive -> "EXECUTIVE"
instance FromJSON JobJobLevel where
parseJSON = parseJSONText "JobJobLevel"
instance ToJSON JobJobLevel where
toJSON = toJSONText
data JobVisibility
= VisibilityUnspecified
| AccountOnly
| SharedWithGoogle
| SharedWithPublic
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable JobVisibility
instance FromHttpApiData JobVisibility where
parseQueryParam = \case
"VISIBILITY_UNSPECIFIED" -> Right VisibilityUnspecified
"ACCOUNT_ONLY" -> Right AccountOnly
"SHARED_WITH_GOOGLE" -> Right SharedWithGoogle
"SHARED_WITH_PUBLIC" -> Right SharedWithPublic
x -> Left ("Unable to parse JobVisibility from: " <> x)
instance ToHttpApiData JobVisibility where
toQueryParam = \case
VisibilityUnspecified -> "VISIBILITY_UNSPECIFIED"
AccountOnly -> "ACCOUNT_ONLY"
SharedWithGoogle -> "SHARED_WITH_GOOGLE"
SharedWithPublic -> "SHARED_WITH_PUBLIC"
instance FromJSON JobVisibility where
parseJSON = parseJSONText "JobVisibility"
instance ToJSON JobVisibility where
toJSON = toJSONText
data CustomRankingInfoImportanceLevel
= ImportanceLevelUnspecified
| None
| Low
| Mild
| Medium
| High
| Extreme
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CustomRankingInfoImportanceLevel
instance FromHttpApiData CustomRankingInfoImportanceLevel where
parseQueryParam = \case
"IMPORTANCE_LEVEL_UNSPECIFIED" -> Right ImportanceLevelUnspecified
"NONE" -> Right None
"LOW" -> Right Low
"MILD" -> Right Mild
"MEDIUM" -> Right Medium
"HIGH" -> Right High
"EXTREME" -> Right Extreme
x -> Left ("Unable to parse CustomRankingInfoImportanceLevel from: " <> x)
instance ToHttpApiData CustomRankingInfoImportanceLevel where
toQueryParam = \case
ImportanceLevelUnspecified -> "IMPORTANCE_LEVEL_UNSPECIFIED"
None -> "NONE"
Low -> "LOW"
Mild -> "MILD"
Medium -> "MEDIUM"
High -> "HIGH"
Extreme -> "EXTREME"
instance FromJSON CustomRankingInfoImportanceLevel where
parseJSON = parseJSONText "CustomRankingInfoImportanceLevel"
instance ToJSON CustomRankingInfoImportanceLevel where
toJSON = toJSONText
data JobPostingRegion
= PostingRegionUnspecified
| AdministrativeArea
| NATion
| Telecommute
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable JobPostingRegion
instance FromHttpApiData JobPostingRegion where
parseQueryParam = \case
"POSTING_REGION_UNSPECIFIED" -> Right PostingRegionUnspecified
"ADMINISTRATIVE_AREA" -> Right AdministrativeArea
"NATION" -> Right NATion
"TELECOMMUTE" -> Right Telecommute
x -> Left ("Unable to parse JobPostingRegion from: " <> x)
instance ToHttpApiData JobPostingRegion where
toQueryParam = \case
PostingRegionUnspecified -> "POSTING_REGION_UNSPECIFIED"
AdministrativeArea -> "ADMINISTRATIVE_AREA"
NATion -> "NATION"
Telecommute -> "TELECOMMUTE"
instance FromJSON JobPostingRegion where
parseJSON = parseJSONText "JobPostingRegion"
instance ToJSON JobPostingRegion where
toJSON = toJSONText
data CompanySize
= CSCompanySizeUnspecified
| CSMini
| CSSmall
| CSSmedium
| CSMedium
| CSBig
| CSBigger
| CSGiant
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CompanySize
instance FromHttpApiData CompanySize where
parseQueryParam = \case
"COMPANY_SIZE_UNSPECIFIED" -> Right CSCompanySizeUnspecified
"MINI" -> Right CSMini
"SMALL" -> Right CSSmall
"SMEDIUM" -> Right CSSmedium
"MEDIUM" -> Right CSMedium
"BIG" -> Right CSBig
"BIGGER" -> Right CSBigger
"GIANT" -> Right CSGiant
x -> Left ("Unable to parse CompanySize from: " <> x)
instance ToHttpApiData CompanySize where
toQueryParam = \case
CSCompanySizeUnspecified -> "COMPANY_SIZE_UNSPECIFIED"
CSMini -> "MINI"
CSSmall -> "SMALL"
CSSmedium -> "SMEDIUM"
CSMedium -> "MEDIUM"
CSBig -> "BIG"
CSBigger -> "BIGGER"
CSGiant -> "GIANT"
instance FromJSON CompanySize where
parseJSON = parseJSONText "CompanySize"
instance ToJSON CompanySize where
toJSON = toJSONText
data Xgafv
= X1
| X2
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable Xgafv
instance FromHttpApiData Xgafv where
parseQueryParam = \case
"1" -> Right X1
"2" -> Right X2
x -> Left ("Unable to parse Xgafv from: " <> x)
instance ToHttpApiData Xgafv where
toQueryParam = \case
X1 -> "1"
X2 -> "2"
instance FromJSON Xgafv where
parseJSON = parseJSONText "Xgafv"
instance ToJSON Xgafv where
toJSON = toJSONText
data CommuteFilterRoadTraffic
= RoadTrafficUnspecified
| TrafficFree
| BusyHour
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CommuteFilterRoadTraffic
instance FromHttpApiData CommuteFilterRoadTraffic where
parseQueryParam = \case
"ROAD_TRAFFIC_UNSPECIFIED" -> Right RoadTrafficUnspecified
"TRAFFIC_FREE" -> Right TrafficFree
"BUSY_HOUR" -> Right BusyHour
x -> Left ("Unable to parse CommuteFilterRoadTraffic from: " <> x)
instance ToHttpApiData CommuteFilterRoadTraffic where
toQueryParam = \case
RoadTrafficUnspecified -> "ROAD_TRAFFIC_UNSPECIFIED"
TrafficFree -> "TRAFFIC_FREE"
BusyHour -> "BUSY_HOUR"
instance FromJSON CommuteFilterRoadTraffic where
parseJSON = parseJSONText "CommuteFilterRoadTraffic"
instance ToJSON CommuteFilterRoadTraffic where
toJSON = toJSONText
data CompensationHistogramRequestType
= CHRTCompensationHistogramRequestTypeUnspecified
| CHRTBase
| CHRTAnnualizedBase
| CHRTAnnualizedTotal
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CompensationHistogramRequestType
instance FromHttpApiData CompensationHistogramRequestType where
parseQueryParam = \case
"COMPENSATION_HISTOGRAM_REQUEST_TYPE_UNSPECIFIED" -> Right CHRTCompensationHistogramRequestTypeUnspecified
"BASE" -> Right CHRTBase
"ANNUALIZED_BASE" -> Right CHRTAnnualizedBase
"ANNUALIZED_TOTAL" -> Right CHRTAnnualizedTotal
x -> Left ("Unable to parse CompensationHistogramRequestType from: " <> x)
instance ToHttpApiData CompensationHistogramRequestType where
toQueryParam = \case
CHRTCompensationHistogramRequestTypeUnspecified -> "COMPENSATION_HISTOGRAM_REQUEST_TYPE_UNSPECIFIED"
CHRTBase -> "BASE"
CHRTAnnualizedBase -> "ANNUALIZED_BASE"
CHRTAnnualizedTotal -> "ANNUALIZED_TOTAL"
instance FromJSON CompensationHistogramRequestType where
parseJSON = parseJSONText "CompensationHistogramRequestType"
instance ToJSON CompensationHistogramRequestType where
toJSON = toJSONText
data CompletionResultType
= CompletionTypeUnspecified
| JobTitle
| CompanyName
| Combined
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CompletionResultType
instance FromHttpApiData CompletionResultType where
parseQueryParam = \case
"COMPLETION_TYPE_UNSPECIFIED" -> Right CompletionTypeUnspecified
"JOB_TITLE" -> Right JobTitle
"COMPANY_NAME" -> Right CompanyName
"COMBINED" -> Right Combined
x -> Left ("Unable to parse CompletionResultType from: " <> x)
instance ToHttpApiData CompletionResultType where
toQueryParam = \case
CompletionTypeUnspecified -> "COMPLETION_TYPE_UNSPECIFIED"
JobTitle -> "JOB_TITLE"
CompanyName -> "COMPANY_NAME"
Combined -> "COMBINED"
instance FromJSON CompletionResultType where
parseJSON = parseJSONText "CompletionResultType"
instance ToJSON CompletionResultType where
toJSON = toJSONText
data LocationLocationType
= LLTLocationTypeUnspecified
| LLTCountry
| LLTAdministrativeArea
| LLTSubAdministrativeArea
| LLTLocality
| LLTPostalCode
| LLTSubLocality
| LLTSubLocality1
| LLTSubLocality2
| LLTNeighborhood
| LLTStreetAddress
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LocationLocationType
instance FromHttpApiData LocationLocationType where
parseQueryParam = \case
"LOCATION_TYPE_UNSPECIFIED" -> Right LLTLocationTypeUnspecified
"COUNTRY" -> Right LLTCountry
"ADMINISTRATIVE_AREA" -> Right LLTAdministrativeArea
"SUB_ADMINISTRATIVE_AREA" -> Right LLTSubAdministrativeArea
"LOCALITY" -> Right LLTLocality
"POSTAL_CODE" -> Right LLTPostalCode
"SUB_LOCALITY" -> Right LLTSubLocality
"SUB_LOCALITY_1" -> Right LLTSubLocality1
"SUB_LOCALITY_2" -> Right LLTSubLocality2
"NEIGHBORHOOD" -> Right LLTNeighborhood
"STREET_ADDRESS" -> Right LLTStreetAddress
x -> Left ("Unable to parse LocationLocationType from: " <> x)
instance ToHttpApiData LocationLocationType where
toQueryParam = \case
LLTLocationTypeUnspecified -> "LOCATION_TYPE_UNSPECIFIED"
LLTCountry -> "COUNTRY"
LLTAdministrativeArea -> "ADMINISTRATIVE_AREA"
LLTSubAdministrativeArea -> "SUB_ADMINISTRATIVE_AREA"
LLTLocality -> "LOCALITY"
LLTPostalCode -> "POSTAL_CODE"
LLTSubLocality -> "SUB_LOCALITY"
LLTSubLocality1 -> "SUB_LOCALITY_1"
LLTSubLocality2 -> "SUB_LOCALITY_2"
LLTNeighborhood -> "NEIGHBORHOOD"
LLTStreetAddress -> "STREET_ADDRESS"
instance FromJSON LocationLocationType where
parseJSON = parseJSONText "LocationLocationType"
instance ToJSON LocationLocationType where
toJSON = toJSONText
data JobEventType
= JobEventTypeUnspecified
| Impression
| View
| ViewRedirect
| ApplicationStart
| ApplicationFinish
| ApplicationQuickSubmission
| ApplicationRedirect
| ApplicationStartFromSearch
| ApplicationRedirectFromSearch
| ApplicationCompanySubmit
| Bookmark
| Notification
| Hired
| SentCv
| InterviewGranted
| NotInterested
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable JobEventType
instance FromHttpApiData JobEventType where
parseQueryParam = \case
"JOB_EVENT_TYPE_UNSPECIFIED" -> Right JobEventTypeUnspecified
"IMPRESSION" -> Right Impression
"VIEW" -> Right View
"VIEW_REDIRECT" -> Right ViewRedirect
"APPLICATION_START" -> Right ApplicationStart
"APPLICATION_FINISH" -> Right ApplicationFinish
"APPLICATION_QUICK_SUBMISSION" -> Right ApplicationQuickSubmission
"APPLICATION_REDIRECT" -> Right ApplicationRedirect
"APPLICATION_START_FROM_SEARCH" -> Right ApplicationStartFromSearch
"APPLICATION_REDIRECT_FROM_SEARCH" -> Right ApplicationRedirectFromSearch
"APPLICATION_COMPANY_SUBMIT" -> Right ApplicationCompanySubmit
"BOOKMARK" -> Right Bookmark
"NOTIFICATION" -> Right Notification
"HIRED" -> Right Hired
"SENT_CV" -> Right SentCv
"INTERVIEW_GRANTED" -> Right InterviewGranted
"NOT_INTERESTED" -> Right NotInterested
x -> Left ("Unable to parse JobEventType from: " <> x)
instance ToHttpApiData JobEventType where
toQueryParam = \case
JobEventTypeUnspecified -> "JOB_EVENT_TYPE_UNSPECIFIED"
Impression -> "IMPRESSION"
View -> "VIEW"
ViewRedirect -> "VIEW_REDIRECT"
ApplicationStart -> "APPLICATION_START"
ApplicationFinish -> "APPLICATION_FINISH"
ApplicationQuickSubmission -> "APPLICATION_QUICK_SUBMISSION"
ApplicationRedirect -> "APPLICATION_REDIRECT"
ApplicationStartFromSearch -> "APPLICATION_START_FROM_SEARCH"
ApplicationRedirectFromSearch -> "APPLICATION_REDIRECT_FROM_SEARCH"
ApplicationCompanySubmit -> "APPLICATION_COMPANY_SUBMIT"
Bookmark -> "BOOKMARK"
Notification -> "NOTIFICATION"
Hired -> "HIRED"
SentCv -> "SENT_CV"
InterviewGranted -> "INTERVIEW_GRANTED"
NotInterested -> "NOT_INTERESTED"
instance FromJSON JobEventType where
parseJSON = parseJSONText "JobEventType"
instance ToJSON JobEventType where
toJSON = toJSONText
data SearchJobsRequestSearchMode
= SearchModeUnspecified
| JobSearch
| FeaturedJobSearch
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SearchJobsRequestSearchMode
instance FromHttpApiData SearchJobsRequestSearchMode where
parseQueryParam = \case
"SEARCH_MODE_UNSPECIFIED" -> Right SearchModeUnspecified
"JOB_SEARCH" -> Right JobSearch
"FEATURED_JOB_SEARCH" -> Right FeaturedJobSearch
x -> Left ("Unable to parse SearchJobsRequestSearchMode from: " <> x)
instance ToHttpApiData SearchJobsRequestSearchMode where
toQueryParam = \case
SearchModeUnspecified -> "SEARCH_MODE_UNSPECIFIED"
JobSearch -> "JOB_SEARCH"
FeaturedJobSearch -> "FEATURED_JOB_SEARCH"
instance FromJSON SearchJobsRequestSearchMode where
parseJSON = parseJSONText "SearchJobsRequestSearchMode"
instance ToJSON SearchJobsRequestSearchMode where
toJSON = toJSONText
data LocationFilterTelecommutePreference
= TelecommutePreferenceUnspecified
| TelecommuteExcluded
| TelecommuteAllowed
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LocationFilterTelecommutePreference
instance FromHttpApiData LocationFilterTelecommutePreference where
parseQueryParam = \case
"TELECOMMUTE_PREFERENCE_UNSPECIFIED" -> Right TelecommutePreferenceUnspecified
"TELECOMMUTE_EXCLUDED" -> Right TelecommuteExcluded
"TELECOMMUTE_ALLOWED" -> Right TelecommuteAllowed
x -> Left ("Unable to parse LocationFilterTelecommutePreference from: " <> x)
instance ToHttpApiData LocationFilterTelecommutePreference where
toQueryParam = \case
TelecommutePreferenceUnspecified -> "TELECOMMUTE_PREFERENCE_UNSPECIFIED"
TelecommuteExcluded -> "TELECOMMUTE_EXCLUDED"
TelecommuteAllowed -> "TELECOMMUTE_ALLOWED"
instance FromJSON LocationFilterTelecommutePreference where
parseJSON = parseJSONText "LocationFilterTelecommutePreference"
instance ToJSON LocationFilterTelecommutePreference where
toJSON = toJSONText
data ProcessingOptionsHTMLSanitization
= HTMLSanitizationUnspecified
| HTMLSanitizationDisabled
| SimpleFormattingOnly
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ProcessingOptionsHTMLSanitization
instance FromHttpApiData ProcessingOptionsHTMLSanitization where
parseQueryParam = \case
"HTML_SANITIZATION_UNSPECIFIED" -> Right HTMLSanitizationUnspecified
"HTML_SANITIZATION_DISABLED" -> Right HTMLSanitizationDisabled
"SIMPLE_FORMATTING_ONLY" -> Right SimpleFormattingOnly
x -> Left ("Unable to parse ProcessingOptionsHTMLSanitization from: " <> x)
instance ToHttpApiData ProcessingOptionsHTMLSanitization where
toQueryParam = \case
HTMLSanitizationUnspecified -> "HTML_SANITIZATION_UNSPECIFIED"
HTMLSanitizationDisabled -> "HTML_SANITIZATION_DISABLED"
SimpleFormattingOnly -> "SIMPLE_FORMATTING_ONLY"
instance FromJSON ProcessingOptionsHTMLSanitization where
parseJSON = parseJSONText "ProcessingOptionsHTMLSanitization"
instance ToJSON ProcessingOptionsHTMLSanitization where
toJSON = toJSONText
data SearchJobsRequestJobView
= JobViewUnspecified
| JobViewIdOnly
| JobViewMinimal
| JobViewSmall
| JobViewFull
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SearchJobsRequestJobView
instance FromHttpApiData SearchJobsRequestJobView where
parseQueryParam = \case
"JOB_VIEW_UNSPECIFIED" -> Right JobViewUnspecified
"JOB_VIEW_ID_ONLY" -> Right JobViewIdOnly
"JOB_VIEW_MINIMAL" -> Right JobViewMinimal
"JOB_VIEW_SMALL" -> Right JobViewSmall
"JOB_VIEW_FULL" -> Right JobViewFull
x -> Left ("Unable to parse SearchJobsRequestJobView from: " <> x)
instance ToHttpApiData SearchJobsRequestJobView where
toQueryParam = \case
JobViewUnspecified -> "JOB_VIEW_UNSPECIFIED"
JobViewIdOnly -> "JOB_VIEW_ID_ONLY"
JobViewMinimal -> "JOB_VIEW_MINIMAL"
JobViewSmall -> "JOB_VIEW_SMALL"
JobViewFull -> "JOB_VIEW_FULL"
instance FromJSON SearchJobsRequestJobView where
parseJSON = parseJSONText "SearchJobsRequestJobView"
instance ToJSON SearchJobsRequestJobView where
toJSON = toJSONText