diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.1.0` +`0.1.1` ## Description diff --git a/gen/Network/Google/CivicInfo.hs b/gen/Network/Google/CivicInfo.hs --- a/gen/Network/Google/CivicInfo.hs +++ b/gen/Network/Google/CivicInfo.hs @@ -13,7 +13,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- An API for accessing civic information. +-- Provides polling places, early vote locations, contest data, election +-- officials, and government representatives for U.S. residential +-- addresses. -- -- /See:/ module Network.Google.CivicInfo @@ -114,6 +116,11 @@ -- ** RepresentativesRepresentativeInfoByDivisionRoles , RepresentativesRepresentativeInfoByDivisionRoles (..) + -- ** ElectionsQueryRequest + , ElectionsQueryRequest + , electionsQueryRequest + , eqrContextParams + -- ** Channel , Channel , channel @@ -144,6 +151,11 @@ , dsrName , dsrOcdId + -- ** DivisionSearchRequest + , DivisionSearchRequest + , divisionSearchRequest + , dsrContextParams + -- ** AdministrativeBody , AdministrativeBody , administrativeBody @@ -158,9 +170,15 @@ , abElectionOfficials , abName , abElectionRulesURL + , abAddressLines , abVoterServices , abElectionRegistrationURL + -- ** RepresentativeInfoRequest + , RepresentativeInfoRequest + , representativeInfoRequest + , rirContextParams + -- ** Contest , Contest , contest @@ -225,13 +243,24 @@ , sName , sOfficial + -- ** DivisionRepresentativeInfoRequest + , DivisionRepresentativeInfoRequest + , divisionRepresentativeInfoRequest + , drirContextParams + -- ** ElectoralDistrict , ElectoralDistrict , electoralDistrict + , edKgForeignKey , edName , edScope , edId + -- ** VoterInfoRequest + , VoterInfoRequest + , voterInfoRequest + , virContextParams + -- ** SimpleAddressType , SimpleAddressType , simpleAddressType @@ -242,6 +271,11 @@ , satCity , satLine1 , satLocationName + + -- ** ContextParams + , ContextParams + , contextParams + , cpClientProFile -- ** AdministrationRegion , AdministrationRegion diff --git a/gen/Network/Google/CivicInfo/Types.hs b/gen/Network/Google/CivicInfo/Types.hs --- a/gen/Network/Google/CivicInfo/Types.hs +++ b/gen/Network/Google/CivicInfo/Types.hs @@ -90,6 +90,11 @@ -- * RepresentativesRepresentativeInfoByDivisionRoles , RepresentativesRepresentativeInfoByDivisionRoles (..) + -- * ElectionsQueryRequest + , ElectionsQueryRequest + , electionsQueryRequest + , eqrContextParams + -- * Channel , Channel , channel @@ -120,6 +125,11 @@ , dsrName , dsrOcdId + -- * DivisionSearchRequest + , DivisionSearchRequest + , divisionSearchRequest + , dsrContextParams + -- * AdministrativeBody , AdministrativeBody , administrativeBody @@ -134,9 +144,15 @@ , abElectionOfficials , abName , abElectionRulesURL + , abAddressLines , abVoterServices , abElectionRegistrationURL + -- * RepresentativeInfoRequest + , RepresentativeInfoRequest + , representativeInfoRequest + , rirContextParams + -- * Contest , Contest , contest @@ -201,13 +217,24 @@ , sName , sOfficial + -- * DivisionRepresentativeInfoRequest + , DivisionRepresentativeInfoRequest + , divisionRepresentativeInfoRequest + , drirContextParams + -- * ElectoralDistrict , ElectoralDistrict , electoralDistrict + , edKgForeignKey , edName , edScope , edId + -- * VoterInfoRequest + , VoterInfoRequest + , voterInfoRequest + , virContextParams + -- * SimpleAddressType , SimpleAddressType , simpleAddressType @@ -218,6 +245,11 @@ , satCity , satLine1 , satLocationName + + -- * ContextParams + , ContextParams + , contextParams + , cpClientProFile -- * AdministrationRegion , AdministrationRegion diff --git a/gen/Network/Google/CivicInfo/Types/Product.hs b/gen/Network/Google/CivicInfo/Types/Product.hs --- a/gen/Network/Google/CivicInfo/Types/Product.hs +++ b/gen/Network/Google/CivicInfo/Types/Product.hs @@ -519,7 +519,10 @@ (\ s a -> s{_cOrderOnBallot = a}) . mapping _Coerce --- | The candidate\'s name. +-- | The candidate\'s name. If this is a joint ticket it will indicate the +-- name of the candidate at the top of a ticket followed by a \/ and that +-- name of candidate at the bottom of the ticket. e.g. \"Mitt Romney \/ +-- Paul Ryan\" cName :: Lens' Candidate (Maybe Text) cName = lens _cName (\ s a -> s{_cName = a}) @@ -656,6 +659,41 @@ ("sources" .=) <$> _oSources, ("name" .=) <$> _oName, ("levels" .=) <$> _oLevels]) +-- +-- /See:/ 'electionsQueryRequest' smart constructor. +newtype ElectionsQueryRequest = ElectionsQueryRequest' + { _eqrContextParams :: Maybe ContextParams + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ElectionsQueryRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eqrContextParams' +electionsQueryRequest + :: ElectionsQueryRequest +electionsQueryRequest = + ElectionsQueryRequest' + { _eqrContextParams = Nothing + } + +eqrContextParams :: Lens' ElectionsQueryRequest (Maybe ContextParams) +eqrContextParams + = lens _eqrContextParams + (\ s a -> s{_eqrContextParams = a}) + +instance FromJSON ElectionsQueryRequest where + parseJSON + = withObject "ElectionsQueryRequest" + (\ o -> + ElectionsQueryRequest' <$> (o .:? "contextParams")) + +instance ToJSON ElectionsQueryRequest where + toJSON ElectionsQueryRequest'{..} + = object + (catMaybes + [("contextParams" .=) <$> _eqrContextParams]) + -- | A social media or web channel for a candidate. -- -- /See:/ 'channel' smart constructor. @@ -925,6 +963,42 @@ ("name" .=) <$> _dsrName, ("ocdId" .=) <$> _dsrOcdId]) +-- | A search request for political geographies. +-- +-- /See:/ 'divisionSearchRequest' smart constructor. +newtype DivisionSearchRequest = DivisionSearchRequest' + { _dsrContextParams :: Maybe ContextParams + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DivisionSearchRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dsrContextParams' +divisionSearchRequest + :: DivisionSearchRequest +divisionSearchRequest = + DivisionSearchRequest' + { _dsrContextParams = Nothing + } + +dsrContextParams :: Lens' DivisionSearchRequest (Maybe ContextParams) +dsrContextParams + = lens _dsrContextParams + (\ s a -> s{_dsrContextParams = a}) + +instance FromJSON DivisionSearchRequest where + parseJSON + = withObject "DivisionSearchRequest" + (\ o -> + DivisionSearchRequest' <$> (o .:? "contextParams")) + +instance ToJSON DivisionSearchRequest where + toJSON DivisionSearchRequest'{..} + = object + (catMaybes + [("contextParams" .=) <$> _dsrContextParams]) + -- | Information about an election administrative body (e.g. County Board of -- Elections). -- @@ -941,6 +1015,7 @@ , _abElectionOfficials :: !(Maybe [ElectionOfficial]) , _abName :: !(Maybe Text) , _abElectionRulesURL :: !(Maybe Text) + , _abAddressLines :: !(Maybe [Text]) , _abVoterServices :: !(Maybe [Text]) , _abElectionRegistrationURL :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -971,6 +1046,8 @@ -- -- * 'abElectionRulesURL' -- +-- * 'abAddressLines' +-- -- * 'abVoterServices' -- -- * 'abElectionRegistrationURL' @@ -989,6 +1066,7 @@ , _abElectionOfficials = Nothing , _abName = Nothing , _abElectionRulesURL = Nothing + , _abAddressLines = Nothing , _abVoterServices = Nothing , _abElectionRegistrationURL = Nothing } @@ -1065,6 +1143,13 @@ = lens _abElectionRulesURL (\ s a -> s{_abElectionRulesURL = a}) +abAddressLines :: Lens' AdministrativeBody [Text] +abAddressLines + = lens _abAddressLines + (\ s a -> s{_abAddressLines = a}) + . _Default + . _Coerce + -- | A description of the services this administrative body may provide. abVoterServices :: Lens' AdministrativeBody [Text] abVoterServices @@ -1096,6 +1181,7 @@ <*> (o .:? "electionOfficials" .!= mempty) <*> (o .:? "name") <*> (o .:? "electionRulesUrl") + <*> (o .:? "addressLines" .!= mempty) <*> (o .:? "voter_services" .!= mempty) <*> (o .:? "electionRegistrationUrl")) @@ -1118,10 +1204,49 @@ ("electionOfficials" .=) <$> _abElectionOfficials, ("name" .=) <$> _abName, ("electionRulesUrl" .=) <$> _abElectionRulesURL, + ("addressLines" .=) <$> _abAddressLines, ("voter_services" .=) <$> _abVoterServices, ("electionRegistrationUrl" .=) <$> _abElectionRegistrationURL]) +-- | A request for political geography and representative information for an +-- address. +-- +-- /See:/ 'representativeInfoRequest' smart constructor. +newtype RepresentativeInfoRequest = RepresentativeInfoRequest' + { _rirContextParams :: Maybe ContextParams + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'RepresentativeInfoRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rirContextParams' +representativeInfoRequest + :: RepresentativeInfoRequest +representativeInfoRequest = + RepresentativeInfoRequest' + { _rirContextParams = Nothing + } + +rirContextParams :: Lens' RepresentativeInfoRequest (Maybe ContextParams) +rirContextParams + = lens _rirContextParams + (\ s a -> s{_rirContextParams = a}) + +instance FromJSON RepresentativeInfoRequest where + parseJSON + = withObject "RepresentativeInfoRequest" + (\ o -> + RepresentativeInfoRequest' <$> + (o .:? "contextParams")) + +instance ToJSON RepresentativeInfoRequest where + toJSON RepresentativeInfoRequest'{..} + = object + (catMaybes + [("contextParams" .=) <$> _rirContextParams]) + -- | Information about a contest that appears on a voter\'s ballot. -- -- /See:/ 'contest' smart constructor. @@ -1308,8 +1433,8 @@ -- | The set of ballot responses for the referendum. A ballot response -- represents a line on the ballot. Common examples might include \"yes\" --- or \"no\" for referenda, or a judge\'s name for a retention contest. --- This field is only populated for contests of type \'Referendum\'. +-- or \"no\" for referenda. This field is only populated for contests of +-- type \'Referendum\'. conReferendumBallotResponses :: Lens' Contest [Text] conReferendumBallotResponses = lens _conReferendumBallotResponses @@ -1351,7 +1476,8 @@ -- | The type of contest. Usually this will be \'General\', \'Primary\', or -- \'Run-off\' for contests with candidates. For referenda this will be --- \'Referendum\'. +-- \'Referendum\'. For Retention contests this will typically be +-- \'Retention\'. conType :: Lens' Contest (Maybe Text) conType = lens _conType (\ s a -> s{_conType = a}) @@ -1750,19 +1876,61 @@ [("name" .=) <$> _sName, ("official" .=) <$> _sOfficial]) +-- | A request to look up representative information for a single division. +-- +-- /See:/ 'divisionRepresentativeInfoRequest' smart constructor. +newtype DivisionRepresentativeInfoRequest = DivisionRepresentativeInfoRequest' + { _drirContextParams :: Maybe ContextParams + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DivisionRepresentativeInfoRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'drirContextParams' +divisionRepresentativeInfoRequest + :: DivisionRepresentativeInfoRequest +divisionRepresentativeInfoRequest = + DivisionRepresentativeInfoRequest' + { _drirContextParams = Nothing + } + +drirContextParams :: Lens' DivisionRepresentativeInfoRequest (Maybe ContextParams) +drirContextParams + = lens _drirContextParams + (\ s a -> s{_drirContextParams = a}) + +instance FromJSON DivisionRepresentativeInfoRequest + where + parseJSON + = withObject "DivisionRepresentativeInfoRequest" + (\ o -> + DivisionRepresentativeInfoRequest' <$> + (o .:? "contextParams")) + +instance ToJSON DivisionRepresentativeInfoRequest + where + toJSON DivisionRepresentativeInfoRequest'{..} + = object + (catMaybes + [("contextParams" .=) <$> _drirContextParams]) + -- | Describes the geographic scope of a contest. -- -- /See:/ 'electoralDistrict' smart constructor. data ElectoralDistrict = ElectoralDistrict' - { _edName :: !(Maybe Text) - , _edScope :: !(Maybe Text) - , _edId :: !(Maybe Text) + { _edKgForeignKey :: !(Maybe Text) + , _edName :: !(Maybe Text) + , _edScope :: !(Maybe Text) + , _edId :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ElectoralDistrict' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'edKgForeignKey' +-- -- * 'edName' -- -- * 'edScope' @@ -1772,11 +1940,17 @@ :: ElectoralDistrict electoralDistrict = ElectoralDistrict' - { _edName = Nothing + { _edKgForeignKey = Nothing + , _edName = Nothing , _edScope = Nothing , _edId = Nothing } +edKgForeignKey :: Lens' ElectoralDistrict (Maybe Text) +edKgForeignKey + = lens _edKgForeignKey + (\ s a -> s{_edKgForeignKey = a}) + -- | The name of the district. edName :: Lens' ElectoralDistrict (Maybe Text) edName = lens _edName (\ s a -> s{_edName = a}) @@ -1799,15 +1973,54 @@ = withObject "ElectoralDistrict" (\ o -> ElectoralDistrict' <$> - (o .:? "name") <*> (o .:? "scope") <*> (o .:? "id")) + (o .:? "kgForeignKey") <*> (o .:? "name") <*> + (o .:? "scope") + <*> (o .:? "id")) instance ToJSON ElectoralDistrict where toJSON ElectoralDistrict'{..} = object (catMaybes - [("name" .=) <$> _edName, ("scope" .=) <$> _edScope, + [("kgForeignKey" .=) <$> _edKgForeignKey, + ("name" .=) <$> _edName, ("scope" .=) <$> _edScope, ("id" .=) <$> _edId]) +-- | A request for information about a voter. +-- +-- /See:/ 'voterInfoRequest' smart constructor. +newtype VoterInfoRequest = VoterInfoRequest' + { _virContextParams :: Maybe ContextParams + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'VoterInfoRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'virContextParams' +voterInfoRequest + :: VoterInfoRequest +voterInfoRequest = + VoterInfoRequest' + { _virContextParams = Nothing + } + +virContextParams :: Lens' VoterInfoRequest (Maybe ContextParams) +virContextParams + = lens _virContextParams + (\ s a -> s{_virContextParams = a}) + +instance FromJSON VoterInfoRequest where + parseJSON + = withObject "VoterInfoRequest" + (\ o -> + VoterInfoRequest' <$> (o .:? "contextParams")) + +instance ToJSON VoterInfoRequest where + toJSON VoterInfoRequest'{..} + = object + (catMaybes + [("contextParams" .=) <$> _virContextParams]) + -- | A simple representation of an address. -- -- /See:/ 'simpleAddressType' smart constructor. @@ -1902,6 +2115,40 @@ ("line3" .=) <$> _satLine3, ("zip" .=) <$> _satZip, ("city" .=) <$> _satCity, ("line1" .=) <$> _satLine1, ("locationName" .=) <$> _satLocationName]) + +-- +-- /See:/ 'contextParams' smart constructor. +newtype ContextParams = ContextParams' + { _cpClientProFile :: Maybe Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ContextParams' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cpClientProFile' +contextParams + :: ContextParams +contextParams = + ContextParams' + { _cpClientProFile = Nothing + } + +cpClientProFile :: Lens' ContextParams (Maybe Text) +cpClientProFile + = lens _cpClientProFile + (\ s a -> s{_cpClientProFile = a}) + +instance FromJSON ContextParams where + parseJSON + = withObject "ContextParams" + (\ o -> ContextParams' <$> (o .:? "clientProfile")) + +instance ToJSON ContextParams where + toJSON ContextParams'{..} + = object + (catMaybes + [("clientProfile" .=) <$> _cpClientProFile]) -- | Describes information about a regional election administrative area. -- diff --git a/gen/Network/Google/Resource/CivicInfo/Divisions/Search.hs b/gen/Network/Google/Resource/CivicInfo/Divisions/Search.hs --- a/gen/Network/Google/Resource/CivicInfo/Divisions/Search.hs +++ b/gen/Network/Google/Resource/CivicInfo/Divisions/Search.hs @@ -33,6 +33,7 @@ , DivisionsSearch -- * Request Lenses + , dsPayload , dsQuery ) where @@ -47,27 +48,38 @@ "divisions" :> QueryParam "query" Text :> QueryParam "alt" AltJSON :> - Get '[JSON] DivisionSearchResponse + ReqBody '[JSON] DivisionSearchRequest :> + Get '[JSON] DivisionSearchResponse -- | Searches for political divisions by their natural name or OCD ID. -- -- /See:/ 'divisionsSearch' smart constructor. -newtype DivisionsSearch = DivisionsSearch' - { _dsQuery :: Maybe Text +data DivisionsSearch = DivisionsSearch' + { _dsPayload :: !DivisionSearchRequest + , _dsQuery :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'DivisionsSearch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'dsPayload' +-- -- * 'dsQuery' divisionsSearch - :: DivisionsSearch -divisionsSearch = + :: DivisionSearchRequest -- ^ 'dsPayload' + -> DivisionsSearch +divisionsSearch pDsPayload_ = DivisionsSearch' - { _dsQuery = Nothing + { _dsPayload = pDsPayload_ + , _dsQuery = Nothing } +-- | Multipart request metadata. +dsPayload :: Lens' DivisionsSearch DivisionSearchRequest +dsPayload + = lens _dsPayload (\ s a -> s{_dsPayload = a}) + -- | The search query. Queries can cover any parts of a OCD ID or a human -- readable division name. All words given in the query are treated as -- required patterns. In addition to that, most query operators of the @@ -80,7 +92,8 @@ type Rs DivisionsSearch = DivisionSearchResponse type Scopes DivisionsSearch = '[] requestClient DivisionsSearch'{..} - = go _dsQuery (Just AltJSON) civicInfoService + = go _dsQuery (Just AltJSON) _dsPayload + civicInfoService where go = buildClient (Proxy :: Proxy DivisionsSearchResource) diff --git a/gen/Network/Google/Resource/CivicInfo/Elections/ElectionQuery.hs b/gen/Network/Google/Resource/CivicInfo/Elections/ElectionQuery.hs --- a/gen/Network/Google/Resource/CivicInfo/Elections/ElectionQuery.hs +++ b/gen/Network/Google/Resource/CivicInfo/Elections/ElectionQuery.hs @@ -32,6 +32,8 @@ , electionsElectionQuery , ElectionsElectionQuery + -- * Request Lenses + , eeqPayload ) where import Network.Google.CivicInfo.Types @@ -44,27 +46,40 @@ "v2" :> "elections" :> QueryParam "alt" AltJSON :> - Get '[JSON] ElectionsQueryResponse + ReqBody '[JSON] ElectionsQueryRequest :> + Get '[JSON] ElectionsQueryResponse -- | List of available elections to query. -- -- /See:/ 'electionsElectionQuery' smart constructor. -data ElectionsElectionQuery = - ElectionsElectionQuery' - deriving (Eq,Show,Data,Typeable,Generic) +newtype ElectionsElectionQuery = ElectionsElectionQuery' + { _eeqPayload :: ElectionsQueryRequest + } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ElectionsElectionQuery' with the minimum fields required to make a request. -- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eeqPayload' electionsElectionQuery - :: ElectionsElectionQuery -electionsElectionQuery = ElectionsElectionQuery' + :: ElectionsQueryRequest -- ^ 'eeqPayload' + -> ElectionsElectionQuery +electionsElectionQuery pEeqPayload_ = + ElectionsElectionQuery' + { _eeqPayload = pEeqPayload_ + } +-- | Multipart request metadata. +eeqPayload :: Lens' ElectionsElectionQuery ElectionsQueryRequest +eeqPayload + = lens _eeqPayload (\ s a -> s{_eeqPayload = a}) + instance GoogleRequest ElectionsElectionQuery where type Rs ElectionsElectionQuery = ElectionsQueryResponse type Scopes ElectionsElectionQuery = '[] - requestClient ElectionsElectionQuery'{} - = go (Just AltJSON) civicInfoService + requestClient ElectionsElectionQuery'{..} + = go (Just AltJSON) _eeqPayload civicInfoService where go = buildClient (Proxy :: Proxy ElectionsElectionQueryResource) diff --git a/gen/Network/Google/Resource/CivicInfo/Elections/VoterInfoQuery.hs b/gen/Network/Google/Resource/CivicInfo/Elections/VoterInfoQuery.hs --- a/gen/Network/Google/Resource/CivicInfo/Elections/VoterInfoQuery.hs +++ b/gen/Network/Google/Resource/CivicInfo/Elections/VoterInfoQuery.hs @@ -34,8 +34,10 @@ , ElectionsVoterInfoQuery -- * Request Lenses + , eviqReturnAllAvailableData , eviqElectionId , eviqAddress + , eviqPayload , eviqOfficialOnly ) where @@ -49,40 +51,59 @@ "v2" :> "voterinfo" :> QueryParam "address" Text :> - QueryParam "electionId" (Textual Int64) :> - QueryParam "officialOnly" Bool :> - QueryParam "alt" AltJSON :> - Get '[JSON] VoterInfoResponse + QueryParam "returnAllAvailableData" Bool :> + QueryParam "electionId" (Textual Int64) :> + QueryParam "officialOnly" Bool :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] VoterInfoRequest :> + Get '[JSON] VoterInfoResponse -- | Looks up information relevant to a voter based on the voter\'s -- registered address. -- -- /See:/ 'electionsVoterInfoQuery' smart constructor. data ElectionsVoterInfoQuery = ElectionsVoterInfoQuery' - { _eviqElectionId :: !(Textual Int64) - , _eviqAddress :: !Text - , _eviqOfficialOnly :: !Bool + { _eviqReturnAllAvailableData :: !Bool + , _eviqElectionId :: !(Textual Int64) + , _eviqAddress :: !Text + , _eviqPayload :: !VoterInfoRequest + , _eviqOfficialOnly :: !Bool } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ElectionsVoterInfoQuery' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'eviqReturnAllAvailableData' +-- -- * 'eviqElectionId' -- -- * 'eviqAddress' -- +-- * 'eviqPayload' +-- -- * 'eviqOfficialOnly' electionsVoterInfoQuery :: Text -- ^ 'eviqAddress' + -> VoterInfoRequest -- ^ 'eviqPayload' -> ElectionsVoterInfoQuery -electionsVoterInfoQuery pEviqAddress_ = +electionsVoterInfoQuery pEviqAddress_ pEviqPayload_ = ElectionsVoterInfoQuery' - { _eviqElectionId = 0 + { _eviqReturnAllAvailableData = False + , _eviqElectionId = 0 , _eviqAddress = pEviqAddress_ + , _eviqPayload = pEviqPayload_ , _eviqOfficialOnly = False } +-- | If set to true, the query will return the success codeand include any +-- partial information when it is unable to determine a matching address or +-- unable to determine the election for electionId=0 queries. +eviqReturnAllAvailableData :: Lens' ElectionsVoterInfoQuery Bool +eviqReturnAllAvailableData + = lens _eviqReturnAllAvailableData + (\ s a -> s{_eviqReturnAllAvailableData = a}) + -- | The unique ID of the election to look up. A list of election IDs can be -- obtained at -- https:\/\/www.googleapis.com\/civicinfo\/{version}\/elections @@ -97,6 +118,11 @@ eviqAddress = lens _eviqAddress (\ s a -> s{_eviqAddress = a}) +-- | Multipart request metadata. +eviqPayload :: Lens' ElectionsVoterInfoQuery VoterInfoRequest +eviqPayload + = lens _eviqPayload (\ s a -> s{_eviqPayload = a}) + -- | If set to true, only data from official state sources will be returned. eviqOfficialOnly :: Lens' ElectionsVoterInfoQuery Bool eviqOfficialOnly @@ -107,9 +133,12 @@ type Rs ElectionsVoterInfoQuery = VoterInfoResponse type Scopes ElectionsVoterInfoQuery = '[] requestClient ElectionsVoterInfoQuery'{..} - = go (Just _eviqAddress) (Just _eviqElectionId) + = go (Just _eviqAddress) + (Just _eviqReturnAllAvailableData) + (Just _eviqElectionId) (Just _eviqOfficialOnly) (Just AltJSON) + _eviqPayload civicInfoService where go = buildClient diff --git a/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByAddress.hs b/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByAddress.hs --- a/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByAddress.hs +++ b/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByAddress.hs @@ -36,6 +36,7 @@ -- * Request Lenses , rribaRoles , rribaAddress + , rribaPayload , rribaIncludeOffices , rribaLevels ) where @@ -59,7 +60,8 @@ RepresentativesRepresentativeInfoByAddressLevels :> QueryParam "alt" AltJSON :> - Get '[JSON] RepresentativeInfoResponse + ReqBody '[JSON] RepresentativeInfoRequest :> + Get '[JSON] RepresentativeInfoResponse -- | Looks up political geography and representative information for a single -- address. @@ -68,6 +70,7 @@ data RepresentativesRepresentativeInfoByAddress = RepresentativesRepresentativeInfoByAddress' { _rribaRoles :: !(Maybe [RepresentativesRepresentativeInfoByAddressRoles]) , _rribaAddress :: !(Maybe Text) + , _rribaPayload :: !RepresentativeInfoRequest , _rribaIncludeOffices :: !Bool , _rribaLevels :: !(Maybe [RepresentativesRepresentativeInfoByAddressLevels]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -80,15 +83,19 @@ -- -- * 'rribaAddress' -- +-- * 'rribaPayload' +-- -- * 'rribaIncludeOffices' -- -- * 'rribaLevels' representativesRepresentativeInfoByAddress - :: RepresentativesRepresentativeInfoByAddress -representativesRepresentativeInfoByAddress = + :: RepresentativeInfoRequest -- ^ 'rribaPayload' + -> RepresentativesRepresentativeInfoByAddress +representativesRepresentativeInfoByAddress pRribaPayload_ = RepresentativesRepresentativeInfoByAddress' { _rribaRoles = Nothing , _rribaAddress = Nothing + , _rribaPayload = pRribaPayload_ , _rribaIncludeOffices = True , _rribaLevels = Nothing } @@ -108,6 +115,11 @@ rribaAddress = lens _rribaAddress (\ s a -> s{_rribaAddress = a}) +-- | Multipart request metadata. +rribaPayload :: Lens' RepresentativesRepresentativeInfoByAddress RepresentativeInfoRequest +rribaPayload + = lens _rribaPayload (\ s a -> s{_rribaPayload = a}) + -- | Whether to return information about offices and officials. If false, -- only the top-level district information will be returned. rribaIncludeOffices :: Lens' RepresentativesRepresentativeInfoByAddress Bool @@ -137,6 +149,7 @@ (Just _rribaIncludeOffices) (_rribaLevels ^. _Default) (Just AltJSON) + _rribaPayload civicInfoService where go = buildClient diff --git a/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByDivision.hs b/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByDivision.hs --- a/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByDivision.hs +++ b/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByDivision.hs @@ -34,6 +34,7 @@ -- * Request Lenses , rribdRoles + , rribdPayload , rribdRecursive , rribdOcdId , rribdLevels @@ -58,13 +59,15 @@ RepresentativesRepresentativeInfoByDivisionLevels :> QueryParam "alt" AltJSON :> - Get '[JSON] RepresentativeInfoData + ReqBody '[JSON] DivisionRepresentativeInfoRequest :> + Get '[JSON] RepresentativeInfoData -- | Looks up representative information for a single geographic division. -- -- /See:/ 'representativesRepresentativeInfoByDivision' smart constructor. data RepresentativesRepresentativeInfoByDivision = RepresentativesRepresentativeInfoByDivision' { _rribdRoles :: !(Maybe [RepresentativesRepresentativeInfoByDivisionRoles]) + , _rribdPayload :: !DivisionRepresentativeInfoRequest , _rribdRecursive :: !(Maybe Bool) , _rribdOcdId :: !Text , _rribdLevels :: !(Maybe [RepresentativesRepresentativeInfoByDivisionLevels]) @@ -76,17 +79,21 @@ -- -- * 'rribdRoles' -- +-- * 'rribdPayload' +-- -- * 'rribdRecursive' -- -- * 'rribdOcdId' -- -- * 'rribdLevels' representativesRepresentativeInfoByDivision - :: Text -- ^ 'rribdOcdId' + :: DivisionRepresentativeInfoRequest -- ^ 'rribdPayload' + -> Text -- ^ 'rribdOcdId' -> RepresentativesRepresentativeInfoByDivision -representativesRepresentativeInfoByDivision pRribdOcdId_ = +representativesRepresentativeInfoByDivision pRribdPayload_ pRribdOcdId_ = RepresentativesRepresentativeInfoByDivision' { _rribdRoles = Nothing + , _rribdPayload = pRribdPayload_ , _rribdRecursive = Nothing , _rribdOcdId = pRribdOcdId_ , _rribdLevels = Nothing @@ -101,6 +108,11 @@ _Default . _Coerce +-- | Multipart request metadata. +rribdPayload :: Lens' RepresentativesRepresentativeInfoByDivision DivisionRepresentativeInfoRequest +rribdPayload + = lens _rribdPayload (\ s a -> s{_rribdPayload = a}) + -- | If true, information about all divisions contained in the division -- requested will be included as well. For example, if querying -- ocd-division\/country:us\/district:dc, this would also return all DC\'s @@ -137,6 +149,7 @@ _rribdRecursive (_rribdLevels ^. _Default) (Just AltJSON) + _rribdPayload civicInfoService where go = buildClient diff --git a/gogol-civicinfo.cabal b/gogol-civicinfo.cabal --- a/gogol-civicinfo.cabal +++ b/gogol-civicinfo.cabal @@ -1,5 +1,5 @@ name: gogol-civicinfo -version: 0.1.0 +version: 0.1.1 synopsis: Google Civic Information SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -11,10 +11,12 @@ category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 -extra-source-files: README.md +extra-source-files: README.md src/.gitkeep description: - An API for accessing civic information. + Provides polling places, early vote locations, contest data, election + officials, and government representatives for U.S. residential + addresses. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! @@ -46,5 +48,5 @@ , Network.Google.CivicInfo.Types.Sum build-depends: - gogol-core == 0.1.0.* + gogol-core == 0.1.1.* , base >= 4.7 && < 5 diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep