diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence 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 @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.CivicInfo --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated 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 @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.CivicInfo.Types --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -251,7 +252,7 @@ import Network.Google.Prelude -- | Default request referring to version 'v2' of the Google Civic Information API. This contains the host and root path used as a starting point for constructing service requests. -civicInfoService :: Service +civicInfoService :: ServiceConfig civicInfoService = defaultService (ServiceId "civicinfo:v2") "www.googleapis.com" 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 @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.CivicInfo.Types.Product --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -23,7 +23,7 @@ -- | Political geographic divisions that contain the requested address. -- -- /See:/ 'representativeInfoResponseDivisions' smart constructor. -newtype RepresentativeInfoResponseDivisions = RepresentativeInfoResponseDivisions +newtype RepresentativeInfoResponseDivisions = RepresentativeInfoResponseDivisions' { _rirdAddtional :: HashMap Text GeographicDivision } deriving (Eq,Show,Data,Typeable,Generic) @@ -36,7 +36,7 @@ :: HashMap Text GeographicDivision -- ^ 'rirdAddtional' -> RepresentativeInfoResponseDivisions representativeInfoResponseDivisions pRirdAddtional_ = - RepresentativeInfoResponseDivisions + RepresentativeInfoResponseDivisions' { _rirdAddtional = _Coerce # pRirdAddtional_ } @@ -52,7 +52,7 @@ parseJSON = withObject "RepresentativeInfoResponseDivisions" (\ o -> - RepresentativeInfoResponseDivisions <$> + RepresentativeInfoResponseDivisions' <$> (parseJSONObject o)) instance ToJSON RepresentativeInfoResponseDivisions @@ -62,7 +62,7 @@ -- | The result of a voter info lookup query. -- -- /See:/ 'voterInfoResponse' smart constructor. -data VoterInfoResponse = VoterInfoResponse +data VoterInfoResponse = VoterInfoResponse' { _virOtherElections :: !(Maybe [Election]) , _virContests :: !(Maybe [Contest]) , _virState :: !(Maybe [AdministrationRegion]) @@ -104,7 +104,7 @@ voterInfoResponse :: VoterInfoResponse voterInfoResponse = - VoterInfoResponse + VoterInfoResponse' { _virOtherElections = Nothing , _virContests = Nothing , _virState = Nothing @@ -204,7 +204,7 @@ parseJSON = withObject "VoterInfoResponse" (\ o -> - VoterInfoResponse <$> + VoterInfoResponse' <$> (o .:? "otherElections" .!= mempty) <*> (o .:? "contests" .!= mempty) <*> (o .:? "state" .!= mempty) @@ -218,7 +218,7 @@ <*> (o .:? "precinctId")) instance ToJSON VoterInfoResponse where - toJSON VoterInfoResponse{..} + toJSON VoterInfoResponse'{..} = object (catMaybes [("otherElections" .=) <$> _virOtherElections, @@ -238,7 +238,7 @@ -- ballot. -- -- /See:/ 'pollingLocation' smart constructor. -data PollingLocation = PollingLocation +data PollingLocation = PollingLocation' { _plVoterServices :: !(Maybe Text) , _plEndDate :: !(Maybe Text) , _plSources :: !(Maybe [Source]) @@ -274,7 +274,7 @@ pollingLocation :: PollingLocation pollingLocation = - PollingLocation + PollingLocation' { _plVoterServices = Nothing , _plEndDate = Nothing , _plSources = Nothing @@ -343,7 +343,7 @@ parseJSON = withObject "PollingLocation" (\ o -> - PollingLocation <$> + PollingLocation' <$> (o .:? "voterServices") <*> (o .:? "endDate") <*> (o .:? "sources" .!= mempty) <*> (o .:? "address") @@ -354,7 +354,7 @@ <*> (o .:? "notes")) instance ToJSON PollingLocation where - toJSON PollingLocation{..} + toJSON PollingLocation'{..} = object (catMaybes [("voterServices" .=) <$> _plVoterServices, @@ -369,7 +369,7 @@ -- | Describes a political geography. -- -- /See:/ 'geographicDivision' smart constructor. -data GeographicDivision = GeographicDivision +data GeographicDivision = GeographicDivision' { _gdName :: !(Maybe Text) , _gdOfficeIndices :: !(Maybe [Textual Word32]) , _gdAlsoKnownAs :: !(Maybe [Text]) @@ -387,7 +387,7 @@ geographicDivision :: GeographicDivision geographicDivision = - GeographicDivision + GeographicDivision' { _gdName = Nothing , _gdOfficeIndices = Nothing , _gdAlsoKnownAs = Nothing @@ -427,12 +427,12 @@ parseJSON = withObject "GeographicDivision" (\ o -> - GeographicDivision <$> + GeographicDivision' <$> (o .:? "name") <*> (o .:? "officeIndices" .!= mempty) <*> (o .:? "alsoKnownAs" .!= mempty)) instance ToJSON GeographicDivision where - toJSON GeographicDivision{..} + toJSON GeographicDivision'{..} = object (catMaybes [("name" .=) <$> _gdName, @@ -442,7 +442,7 @@ -- | Information about a candidate running for elected office. -- -- /See:/ 'candidate' smart constructor. -data Candidate = Candidate +data Candidate = Candidate' { _cEmail :: !(Maybe Text) , _cPhone :: !(Maybe Text) , _cPhotoURL :: !(Maybe Text) @@ -475,7 +475,7 @@ candidate :: Candidate candidate = - Candidate + Candidate' { _cEmail = Nothing , _cPhone = Nothing , _cPhotoURL = Nothing @@ -531,7 +531,7 @@ parseJSON = withObject "Candidate" (\ o -> - Candidate <$> + Candidate' <$> (o .:? "email") <*> (o .:? "phone") <*> (o .:? "photoUrl") <*> (o .:? "channels" .!= mempty) @@ -541,7 +541,7 @@ <*> (o .:? "party")) instance ToJSON Candidate where - toJSON Candidate{..} + toJSON Candidate'{..} = object (catMaybes [("email" .=) <$> _cEmail, ("phone" .=) <$> _cPhone, @@ -554,7 +554,7 @@ -- | Information about an Office held by one or more Officials. -- -- /See:/ 'office' smart constructor. -data Office = Office +data Office = Office' { _oDivisionId :: !(Maybe Text) , _oRoles :: !(Maybe [Text]) , _oOfficialIndices :: !(Maybe [Textual Word32]) @@ -581,7 +581,7 @@ office :: Office office = - Office + Office' { _oDivisionId = Nothing , _oRoles = Nothing , _oOfficialIndices = Nothing @@ -639,7 +639,7 @@ parseJSON = withObject "Office" (\ o -> - Office <$> + Office' <$> (o .:? "divisionId") <*> (o .:? "roles" .!= mempty) <*> (o .:? "officialIndices" .!= mempty) <*> (o .:? "sources" .!= mempty) @@ -647,7 +647,7 @@ <*> (o .:? "levels" .!= mempty)) instance ToJSON Office where - toJSON Office{..} + toJSON Office'{..} = object (catMaybes [("divisionId" .=) <$> _oDivisionId, @@ -659,7 +659,7 @@ -- | A social media or web channel for a candidate. -- -- /See:/ 'channel' smart constructor. -data Channel = Channel +data Channel = Channel' { _cId :: !(Maybe Text) , _cType :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -674,7 +674,7 @@ channel :: Channel channel = - Channel + Channel' { _cId = Nothing , _cType = Nothing } @@ -692,10 +692,10 @@ instance FromJSON Channel where parseJSON = withObject "Channel" - (\ o -> Channel <$> (o .:? "id") <*> (o .:? "type")) + (\ o -> Channel' <$> (o .:? "id") <*> (o .:? "type")) instance ToJSON Channel where - toJSON Channel{..} + toJSON Channel'{..} = object (catMaybes [("id" .=) <$> _cId, ("type" .=) <$> _cType]) @@ -703,7 +703,7 @@ -- | Information about the election that was queried. -- -- /See:/ 'election' smart constructor. -data Election = Election +data Election = Election' { _eOcdDivisionId :: !(Maybe Text) , _eElectionDay :: !(Maybe Text) , _eName :: !(Maybe Text) @@ -724,7 +724,7 @@ election :: Election election = - Election + Election' { _eOcdDivisionId = Nothing , _eElectionDay = Nothing , _eName = Nothing @@ -759,13 +759,13 @@ parseJSON = withObject "Election" (\ o -> - Election <$> + Election' <$> (o .:? "ocdDivisionId") <*> (o .:? "electionDay") <*> (o .:? "name") <*> (o .:? "id")) instance ToJSON Election where - toJSON Election{..} + toJSON Election'{..} = object (catMaybes [("ocdDivisionId" .=) <$> _eOcdDivisionId, @@ -775,7 +775,7 @@ -- | The result of a representative info lookup query. -- -- /See:/ 'representativeInfoResponse' smart constructor. -data RepresentativeInfoResponse = RepresentativeInfoResponse +data RepresentativeInfoResponse = RepresentativeInfoResponse' { _rirKind :: !Text , _rirNormalizedInput :: !(Maybe SimpleAddressType) , _rirOfficials :: !(Maybe [Official]) @@ -799,7 +799,7 @@ representativeInfoResponse :: RepresentativeInfoResponse representativeInfoResponse = - RepresentativeInfoResponse + RepresentativeInfoResponse' { _rirKind = "civicinfo#representativeInfoResponse" , _rirNormalizedInput = Nothing , _rirOfficials = Nothing @@ -843,7 +843,7 @@ parseJSON = withObject "RepresentativeInfoResponse" (\ o -> - RepresentativeInfoResponse <$> + RepresentativeInfoResponse' <$> (o .:? "kind" .!= "civicinfo#representativeInfoResponse") <*> (o .:? "normalizedInput") @@ -852,7 +852,7 @@ <*> (o .:? "offices" .!= mempty)) instance ToJSON RepresentativeInfoResponse where - toJSON RepresentativeInfoResponse{..} + toJSON RepresentativeInfoResponse'{..} = object (catMaybes [Just ("kind" .= _rirKind), @@ -865,7 +865,7 @@ -- query. -- -- /See:/ 'divisionSearchResult' smart constructor. -data DivisionSearchResult = DivisionSearchResult +data DivisionSearchResult = DivisionSearchResult' { _dsrAliases :: !(Maybe [Text]) , _dsrName :: !(Maybe Text) , _dsrOcdId :: !(Maybe Text) @@ -883,7 +883,7 @@ divisionSearchResult :: DivisionSearchResult divisionSearchResult = - DivisionSearchResult + DivisionSearchResult' { _dsrAliases = Nothing , _dsrName = Nothing , _dsrOcdId = Nothing @@ -913,12 +913,12 @@ parseJSON = withObject "DivisionSearchResult" (\ o -> - DivisionSearchResult <$> + DivisionSearchResult' <$> (o .:? "aliases" .!= mempty) <*> (o .:? "name") <*> (o .:? "ocdId")) instance ToJSON DivisionSearchResult where - toJSON DivisionSearchResult{..} + toJSON DivisionSearchResult'{..} = object (catMaybes [("aliases" .=) <$> _dsrAliases, @@ -929,7 +929,7 @@ -- Elections). -- -- /See:/ 'administrativeBody' smart constructor. -data AdministrativeBody = AdministrativeBody +data AdministrativeBody = AdministrativeBody' { _abCorrespondenceAddress :: !(Maybe SimpleAddressType) , _abAbsenteeVotingInfoURL :: !(Maybe Text) , _abHoursOfOperation :: !(Maybe Text) @@ -977,7 +977,7 @@ administrativeBody :: AdministrativeBody administrativeBody = - AdministrativeBody + AdministrativeBody' { _abCorrespondenceAddress = Nothing , _abAbsenteeVotingInfoURL = Nothing , _abHoursOfOperation = Nothing @@ -1084,7 +1084,7 @@ parseJSON = withObject "AdministrativeBody" (\ o -> - AdministrativeBody <$> + AdministrativeBody' <$> (o .:? "correspondenceAddress") <*> (o .:? "absenteeVotingInfoUrl") <*> (o .:? "hoursOfOperation") @@ -1100,7 +1100,7 @@ <*> (o .:? "electionRegistrationUrl")) instance ToJSON AdministrativeBody where - toJSON AdministrativeBody{..} + toJSON AdministrativeBody'{..} = object (catMaybes [("correspondenceAddress" .=) <$> @@ -1125,7 +1125,7 @@ -- | Information about a contest that appears on a voter\'s ballot. -- -- /See:/ 'contest' smart constructor. -data Contest = Contest +data Contest = Contest' { _conReferendumPassageThreshold :: !(Maybe Text) , _conRoles :: !(Maybe [Text]) , _conReferendumURL :: !(Maybe Text) @@ -1206,7 +1206,7 @@ contest :: Contest contest = - Contest + Contest' { _conReferendumPassageThreshold = Nothing , _conRoles = Nothing , _conReferendumURL = Nothing @@ -1412,7 +1412,7 @@ parseJSON = withObject "Contest" (\ o -> - Contest <$> + Contest' <$> (o .:? "referendumPassageThreshold") <*> (o .:? "roles" .!= mempty) <*> (o .:? "referendumUrl") @@ -1439,7 +1439,7 @@ <*> (o .:? "ballotPlacement")) instance ToJSON Contest where - toJSON Contest{..} + toJSON Contest'{..} = object (catMaybes [("referendumPassageThreshold" .=) <$> @@ -1475,7 +1475,7 @@ -- | The result of a division search query. -- -- /See:/ 'divisionSearchResponse' smart constructor. -data DivisionSearchResponse = DivisionSearchResponse +data DivisionSearchResponse = DivisionSearchResponse' { _dsrResults :: !(Maybe [DivisionSearchResult]) , _dsrKind :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -1490,7 +1490,7 @@ divisionSearchResponse :: DivisionSearchResponse divisionSearchResponse = - DivisionSearchResponse + DivisionSearchResponse' { _dsrResults = Nothing , _dsrKind = "civicinfo#divisionSearchResponse" } @@ -1510,13 +1510,13 @@ parseJSON = withObject "DivisionSearchResponse" (\ o -> - DivisionSearchResponse <$> + DivisionSearchResponse' <$> (o .:? "results" .!= mempty) <*> (o .:? "kind" .!= "civicinfo#divisionSearchResponse")) instance ToJSON DivisionSearchResponse where - toJSON DivisionSearchResponse{..} + toJSON DivisionSearchResponse'{..} = object (catMaybes [("results" .=) <$> _dsrResults, @@ -1525,7 +1525,7 @@ -- | Political geographic divisions that contain the requested address. -- -- /See:/ 'representativeInfoDataDivisions' smart constructor. -newtype RepresentativeInfoDataDivisions = RepresentativeInfoDataDivisions +newtype RepresentativeInfoDataDivisions = RepresentativeInfoDataDivisions' { _riddAddtional :: HashMap Text GeographicDivision } deriving (Eq,Show,Data,Typeable,Generic) @@ -1538,7 +1538,7 @@ :: HashMap Text GeographicDivision -- ^ 'riddAddtional' -> RepresentativeInfoDataDivisions representativeInfoDataDivisions pRiddAddtional_ = - RepresentativeInfoDataDivisions + RepresentativeInfoDataDivisions' { _riddAddtional = _Coerce # pRiddAddtional_ } @@ -1554,7 +1554,7 @@ parseJSON = withObject "RepresentativeInfoDataDivisions" (\ o -> - RepresentativeInfoDataDivisions <$> + RepresentativeInfoDataDivisions' <$> (parseJSONObject o)) instance ToJSON RepresentativeInfoDataDivisions where @@ -1563,7 +1563,7 @@ -- | Information about individual election officials. -- -- /See:/ 'electionOfficial' smart constructor. -data ElectionOfficial = ElectionOfficial +data ElectionOfficial = ElectionOfficial' { _eoFaxNumber :: !(Maybe Text) , _eoName :: !(Maybe Text) , _eoOfficePhoneNumber :: !(Maybe Text) @@ -1587,7 +1587,7 @@ electionOfficial :: ElectionOfficial electionOfficial = - ElectionOfficial + ElectionOfficial' { _eoFaxNumber = Nothing , _eoName = Nothing , _eoOfficePhoneNumber = Nothing @@ -1624,14 +1624,14 @@ parseJSON = withObject "ElectionOfficial" (\ o -> - ElectionOfficial <$> + ElectionOfficial' <$> (o .:? "faxNumber") <*> (o .:? "name") <*> (o .:? "officePhoneNumber") <*> (o .:? "emailAddress") <*> (o .:? "title")) instance ToJSON ElectionOfficial where - toJSON ElectionOfficial{..} + toJSON ElectionOfficial'{..} = object (catMaybes [("faxNumber" .=) <$> _eoFaxNumber, @@ -1642,7 +1642,7 @@ -- -- /See:/ 'representativeInfoData' smart constructor. -data RepresentativeInfoData = RepresentativeInfoData +data RepresentativeInfoData = RepresentativeInfoData' { _ridOfficials :: !(Maybe [Official]) , _ridDivisions :: !(Maybe RepresentativeInfoDataDivisions) , _ridOffices :: !(Maybe [Office]) @@ -1660,7 +1660,7 @@ representativeInfoData :: RepresentativeInfoData representativeInfoData = - RepresentativeInfoData + RepresentativeInfoData' { _ridOfficials = Nothing , _ridDivisions = Nothing , _ridOffices = Nothing @@ -1691,13 +1691,13 @@ parseJSON = withObject "RepresentativeInfoData" (\ o -> - RepresentativeInfoData <$> + RepresentativeInfoData' <$> (o .:? "officials" .!= mempty) <*> (o .:? "divisions") <*> (o .:? "offices" .!= mempty)) instance ToJSON RepresentativeInfoData where - toJSON RepresentativeInfoData{..} + toJSON RepresentativeInfoData'{..} = object (catMaybes [("officials" .=) <$> _ridOfficials, @@ -1708,7 +1708,7 @@ -- it. -- -- /See:/ 'source' smart constructor. -data Source = Source +data Source = Source' { _sName :: !(Maybe Text) , _sOfficial :: !(Maybe Bool) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1723,7 +1723,7 @@ source :: Source source = - Source + Source' { _sName = Nothing , _sOfficial = Nothing } @@ -1741,10 +1741,10 @@ parseJSON = withObject "Source" (\ o -> - Source <$> (o .:? "name") <*> (o .:? "official")) + Source' <$> (o .:? "name") <*> (o .:? "official")) instance ToJSON Source where - toJSON Source{..} + toJSON Source'{..} = object (catMaybes [("name" .=) <$> _sName, @@ -1753,7 +1753,7 @@ -- | Describes the geographic scope of a contest. -- -- /See:/ 'electoralDistrict' smart constructor. -data ElectoralDistrict = ElectoralDistrict +data ElectoralDistrict = ElectoralDistrict' { _edName :: !(Maybe Text) , _edScope :: !(Maybe Text) , _edId :: !(Maybe Text) @@ -1771,7 +1771,7 @@ electoralDistrict :: ElectoralDistrict electoralDistrict = - ElectoralDistrict + ElectoralDistrict' { _edName = Nothing , _edScope = Nothing , _edId = Nothing @@ -1798,11 +1798,11 @@ parseJSON = withObject "ElectoralDistrict" (\ o -> - ElectoralDistrict <$> + ElectoralDistrict' <$> (o .:? "name") <*> (o .:? "scope") <*> (o .:? "id")) instance ToJSON ElectoralDistrict where - toJSON ElectoralDistrict{..} + toJSON ElectoralDistrict'{..} = object (catMaybes [("name" .=) <$> _edName, ("scope" .=) <$> _edScope, @@ -1811,7 +1811,7 @@ -- | A simple representation of an address. -- -- /See:/ 'simpleAddressType' smart constructor. -data SimpleAddressType = SimpleAddressType +data SimpleAddressType = SimpleAddressType' { _satLine2 :: !(Maybe Text) , _satState :: !(Maybe Text) , _satLine3 :: !(Maybe Text) @@ -1841,7 +1841,7 @@ simpleAddressType :: SimpleAddressType simpleAddressType = - SimpleAddressType + SimpleAddressType' { _satLine2 = Nothing , _satState = Nothing , _satLine3 = Nothing @@ -1885,7 +1885,7 @@ parseJSON = withObject "SimpleAddressType" (\ o -> - SimpleAddressType <$> + SimpleAddressType' <$> (o .:? "line2") <*> (o .:? "state") <*> (o .:? "line3") <*> (o .:? "zip") @@ -1894,7 +1894,7 @@ <*> (o .:? "locationName")) instance ToJSON SimpleAddressType where - toJSON SimpleAddressType{..} + toJSON SimpleAddressType'{..} = object (catMaybes [("line2" .=) <$> _satLine2, @@ -1906,7 +1906,7 @@ -- | Describes information about a regional election administrative area. -- -- /See:/ 'administrationRegion' smart constructor. -data AdministrationRegion = AdministrationRegion +data AdministrationRegion = AdministrationRegion' { _arLocalJurisdiction :: !(Maybe AdministrationRegion) , _arSources :: !(Maybe [Source]) , _arName :: !(Maybe Text) @@ -1930,7 +1930,7 @@ administrationRegion :: AdministrationRegion administrationRegion = - AdministrationRegion + AdministrationRegion' { _arLocalJurisdiction = Nothing , _arSources = Nothing , _arName = Nothing @@ -1973,7 +1973,7 @@ parseJSON = withObject "AdministrationRegion" (\ o -> - AdministrationRegion <$> + AdministrationRegion' <$> (o .:? "local_jurisdiction") <*> (o .:? "sources" .!= mempty) <*> (o .:? "name") @@ -1981,7 +1981,7 @@ <*> (o .:? "id")) instance ToJSON AdministrationRegion where - toJSON AdministrationRegion{..} + toJSON AdministrationRegion'{..} = object (catMaybes [("local_jurisdiction" .=) <$> _arLocalJurisdiction, @@ -1994,7 +1994,7 @@ -- | The list of elections available for this version of the API. -- -- /See:/ 'electionsQueryResponse' smart constructor. -data ElectionsQueryResponse = ElectionsQueryResponse +data ElectionsQueryResponse = ElectionsQueryResponse' { _eqrKind :: !Text , _eqrElections :: !(Maybe [Election]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -2009,7 +2009,7 @@ electionsQueryResponse :: ElectionsQueryResponse electionsQueryResponse = - ElectionsQueryResponse + ElectionsQueryResponse' { _eqrKind = "civicinfo#electionsQueryResponse" , _eqrElections = Nothing } @@ -2030,12 +2030,12 @@ parseJSON = withObject "ElectionsQueryResponse" (\ o -> - ElectionsQueryResponse <$> + ElectionsQueryResponse' <$> (o .:? "kind" .!= "civicinfo#electionsQueryResponse") <*> (o .:? "elections" .!= mempty)) instance ToJSON ElectionsQueryResponse where - toJSON ElectionsQueryResponse{..} + toJSON ElectionsQueryResponse'{..} = object (catMaybes [Just ("kind" .= _eqrKind), @@ -2044,7 +2044,7 @@ -- | Information about a person holding an elected office. -- -- /See:/ 'official' smart constructor. -data Official = Official +data Official = Official' { _offPhotoURL :: !(Maybe Text) , _offURLs :: !(Maybe [Text]) , _offChannels :: !(Maybe [Channel]) @@ -2077,7 +2077,7 @@ official :: Official official = - Official + Official' { _offPhotoURL = Nothing , _offURLs = Nothing , _offChannels = Nothing @@ -2139,7 +2139,7 @@ parseJSON = withObject "Official" (\ o -> - Official <$> + Official' <$> (o .:? "photoUrl") <*> (o .:? "urls" .!= mempty) <*> (o .:? "channels" .!= mempty) <*> (o .:? "address" .!= mempty) @@ -2149,7 +2149,7 @@ <*> (o .:? "party")) instance ToJSON Official where - toJSON Official{..} + toJSON Official'{..} = object (catMaybes [("photoUrl" .=) <$> _offPhotoURL, diff --git a/gen/Network/Google/CivicInfo/Types/Sum.hs b/gen/Network/Google/CivicInfo/Types/Sum.hs --- a/gen/Network/Google/CivicInfo/Types/Sum.hs +++ b/gen/Network/Google/CivicInfo/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.CivicInfo.Types.Sum --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -40,25 +40,25 @@ -- ^ @subLocality1@ | SUBLOCALITY2 -- ^ @subLocality2@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable RepresentativesRepresentativeInfoByDivisionLevels -instance FromText RepresentativesRepresentativeInfoByDivisionLevels where - fromText = \case - "administrativeArea1" -> Just ADMINISTRATIVEAREA1 - "administrativeArea2" -> Just ADMINISTRATIVEAREA2 - "country" -> Just Country - "international" -> Just International - "locality" -> Just Locality - "regional" -> Just Regional - "special" -> Just Special - "subLocality1" -> Just SUBLOCALITY1 - "subLocality2" -> Just SUBLOCALITY2 - _ -> Nothing +instance FromHttpApiData RepresentativesRepresentativeInfoByDivisionLevels where + parseQueryParam = \case + "administrativeArea1" -> Right ADMINISTRATIVEAREA1 + "administrativeArea2" -> Right ADMINISTRATIVEAREA2 + "country" -> Right Country + "international" -> Right International + "locality" -> Right Locality + "regional" -> Right Regional + "special" -> Right Special + "subLocality1" -> Right SUBLOCALITY1 + "subLocality2" -> Right SUBLOCALITY2 + x -> Left ("Unable to parse RepresentativesRepresentativeInfoByDivisionLevels from: " <> x) -instance ToText RepresentativesRepresentativeInfoByDivisionLevels where - toText = \case +instance ToHttpApiData RepresentativesRepresentativeInfoByDivisionLevels where + toQueryParam = \case ADMINISTRATIVEAREA1 -> "administrativeArea1" ADMINISTRATIVEAREA2 -> "administrativeArea2" Country -> "country" @@ -97,25 +97,25 @@ -- ^ @subLocality1@ | RRIBALSUBLOCALITY2 -- ^ @subLocality2@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable RepresentativesRepresentativeInfoByAddressLevels -instance FromText RepresentativesRepresentativeInfoByAddressLevels where - fromText = \case - "administrativeArea1" -> Just RRIBALADMINISTRATIVEAREA1 - "administrativeArea2" -> Just RRIBALADMINISTRATIVEAREA2 - "country" -> Just RRIBALCountry - "international" -> Just RRIBALInternational - "locality" -> Just RRIBALLocality - "regional" -> Just RRIBALRegional - "special" -> Just RRIBALSpecial - "subLocality1" -> Just RRIBALSUBLOCALITY1 - "subLocality2" -> Just RRIBALSUBLOCALITY2 - _ -> Nothing +instance FromHttpApiData RepresentativesRepresentativeInfoByAddressLevels where + parseQueryParam = \case + "administrativeArea1" -> Right RRIBALADMINISTRATIVEAREA1 + "administrativeArea2" -> Right RRIBALADMINISTRATIVEAREA2 + "country" -> Right RRIBALCountry + "international" -> Right RRIBALInternational + "locality" -> Right RRIBALLocality + "regional" -> Right RRIBALRegional + "special" -> Right RRIBALSpecial + "subLocality1" -> Right RRIBALSUBLOCALITY1 + "subLocality2" -> Right RRIBALSUBLOCALITY2 + x -> Left ("Unable to parse RepresentativesRepresentativeInfoByAddressLevels from: " <> x) -instance ToText RepresentativesRepresentativeInfoByAddressLevels where - toText = \case +instance ToHttpApiData RepresentativesRepresentativeInfoByAddressLevels where + toQueryParam = \case RRIBALADMINISTRATIVEAREA1 -> "administrativeArea1" RRIBALADMINISTRATIVEAREA2 -> "administrativeArea2" RRIBALCountry -> "country" @@ -158,27 +158,27 @@ -- ^ @schoolBoard@ | SpecialPurposeOfficer -- ^ @specialPurposeOfficer@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable RepresentativesRepresentativeInfoByDivisionRoles -instance FromText RepresentativesRepresentativeInfoByDivisionRoles where - fromText = \case - "deputyHeadOfGovernment" -> Just DeputyHeadOfGovernment - "executiveCouncil" -> Just ExecutiveCouncil - "governmentOfficer" -> Just GovernmentOfficer - "headOfGovernment" -> Just HeadOfGovernment - "headOfState" -> Just HeadOfState - "highestCourtJudge" -> Just HighestCourtJudge - "judge" -> Just Judge - "legislatorLowerBody" -> Just LegislatorLowerBody - "legislatorUpperBody" -> Just LegislatorUpperBody - "schoolBoard" -> Just SchoolBoard - "specialPurposeOfficer" -> Just SpecialPurposeOfficer - _ -> Nothing +instance FromHttpApiData RepresentativesRepresentativeInfoByDivisionRoles where + parseQueryParam = \case + "deputyHeadOfGovernment" -> Right DeputyHeadOfGovernment + "executiveCouncil" -> Right ExecutiveCouncil + "governmentOfficer" -> Right GovernmentOfficer + "headOfGovernment" -> Right HeadOfGovernment + "headOfState" -> Right HeadOfState + "highestCourtJudge" -> Right HighestCourtJudge + "judge" -> Right Judge + "legislatorLowerBody" -> Right LegislatorLowerBody + "legislatorUpperBody" -> Right LegislatorUpperBody + "schoolBoard" -> Right SchoolBoard + "specialPurposeOfficer" -> Right SpecialPurposeOfficer + x -> Left ("Unable to parse RepresentativesRepresentativeInfoByDivisionRoles from: " <> x) -instance ToText RepresentativesRepresentativeInfoByDivisionRoles where - toText = \case +instance ToHttpApiData RepresentativesRepresentativeInfoByDivisionRoles where + toQueryParam = \case DeputyHeadOfGovernment -> "deputyHeadOfGovernment" ExecutiveCouncil -> "executiveCouncil" GovernmentOfficer -> "governmentOfficer" @@ -223,27 +223,27 @@ -- ^ @schoolBoard@ | RRIBARSpecialPurposeOfficer -- ^ @specialPurposeOfficer@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable RepresentativesRepresentativeInfoByAddressRoles -instance FromText RepresentativesRepresentativeInfoByAddressRoles where - fromText = \case - "deputyHeadOfGovernment" -> Just RRIBARDeputyHeadOfGovernment - "executiveCouncil" -> Just RRIBARExecutiveCouncil - "governmentOfficer" -> Just RRIBARGovernmentOfficer - "headOfGovernment" -> Just RRIBARHeadOfGovernment - "headOfState" -> Just RRIBARHeadOfState - "highestCourtJudge" -> Just RRIBARHighestCourtJudge - "judge" -> Just RRIBARJudge - "legislatorLowerBody" -> Just RRIBARLegislatorLowerBody - "legislatorUpperBody" -> Just RRIBARLegislatorUpperBody - "schoolBoard" -> Just RRIBARSchoolBoard - "specialPurposeOfficer" -> Just RRIBARSpecialPurposeOfficer - _ -> Nothing +instance FromHttpApiData RepresentativesRepresentativeInfoByAddressRoles where + parseQueryParam = \case + "deputyHeadOfGovernment" -> Right RRIBARDeputyHeadOfGovernment + "executiveCouncil" -> Right RRIBARExecutiveCouncil + "governmentOfficer" -> Right RRIBARGovernmentOfficer + "headOfGovernment" -> Right RRIBARHeadOfGovernment + "headOfState" -> Right RRIBARHeadOfState + "highestCourtJudge" -> Right RRIBARHighestCourtJudge + "judge" -> Right RRIBARJudge + "legislatorLowerBody" -> Right RRIBARLegislatorLowerBody + "legislatorUpperBody" -> Right RRIBARLegislatorUpperBody + "schoolBoard" -> Right RRIBARSchoolBoard + "specialPurposeOfficer" -> Right RRIBARSpecialPurposeOfficer + x -> Left ("Unable to parse RepresentativesRepresentativeInfoByAddressRoles from: " <> x) -instance ToText RepresentativesRepresentativeInfoByAddressRoles where - toText = \case +instance ToHttpApiData RepresentativesRepresentativeInfoByAddressRoles where + toQueryParam = \case RRIBARDeputyHeadOfGovernment -> "deputyHeadOfGovernment" RRIBARExecutiveCouncil -> "executiveCouncil" RRIBARGovernmentOfficer -> "governmentOfficer" 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CivicInfo.Divisions.Search --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -52,7 +52,7 @@ -- | Searches for political divisions by their natural name or OCD ID. -- -- /See:/ 'divisionsSearch' smart constructor. -newtype DivisionsSearch = DivisionsSearch +newtype DivisionsSearch = DivisionsSearch' { _dsQuery :: Maybe Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ divisionsSearch :: DivisionsSearch divisionsSearch = - DivisionsSearch + DivisionsSearch' { _dsQuery = Nothing } @@ -78,7 +78,8 @@ instance GoogleRequest DivisionsSearch where type Rs DivisionsSearch = DivisionSearchResponse - requestClient DivisionsSearch{..} + type Scopes DivisionsSearch = '[] + requestClient DivisionsSearch'{..} = go _dsQuery (Just AltJSON) civicInfoService where go = buildClient 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CivicInfo.Elections.ElectionQuery --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -50,19 +50,20 @@ -- -- /See:/ 'electionsElectionQuery' smart constructor. data ElectionsElectionQuery = - ElectionsElectionQuery + ElectionsElectionQuery' deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ElectionsElectionQuery' with the minimum fields required to make a request. -- electionsElectionQuery :: ElectionsElectionQuery -electionsElectionQuery = ElectionsElectionQuery +electionsElectionQuery = ElectionsElectionQuery' instance GoogleRequest ElectionsElectionQuery where type Rs ElectionsElectionQuery = ElectionsQueryResponse - requestClient ElectionsElectionQuery{} + type Scopes ElectionsElectionQuery = '[] + requestClient ElectionsElectionQuery'{} = go (Just AltJSON) civicInfoService where go = buildClient 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CivicInfo.Elections.VoterInfoQuery --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -58,7 +58,7 @@ -- registered address. -- -- /See:/ 'electionsVoterInfoQuery' smart constructor. -data ElectionsVoterInfoQuery = ElectionsVoterInfoQuery +data ElectionsVoterInfoQuery = ElectionsVoterInfoQuery' { _eviqElectionId :: !(Textual Int64) , _eviqAddress :: !Text , _eviqOfficialOnly :: !Bool @@ -77,7 +77,7 @@ :: Text -- ^ 'eviqAddress' -> ElectionsVoterInfoQuery electionsVoterInfoQuery pEviqAddress_ = - ElectionsVoterInfoQuery + ElectionsVoterInfoQuery' { _eviqElectionId = 0 , _eviqAddress = pEviqAddress_ , _eviqOfficialOnly = False @@ -105,7 +105,8 @@ instance GoogleRequest ElectionsVoterInfoQuery where type Rs ElectionsVoterInfoQuery = VoterInfoResponse - requestClient ElectionsVoterInfoQuery{..} + type Scopes ElectionsVoterInfoQuery = '[] + requestClient ElectionsVoterInfoQuery'{..} = go (Just _eviqAddress) (Just _eviqElectionId) (Just _eviqOfficialOnly) (Just AltJSON) 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CivicInfo.Representatives.RepresentativeInfoByAddress --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,7 +65,7 @@ -- address. -- -- /See:/ 'representativesRepresentativeInfoByAddress' smart constructor. -data RepresentativesRepresentativeInfoByAddress = RepresentativesRepresentativeInfoByAddress +data RepresentativesRepresentativeInfoByAddress = RepresentativesRepresentativeInfoByAddress' { _rribaRoles :: !(Maybe [RepresentativesRepresentativeInfoByAddressRoles]) , _rribaAddress :: !(Maybe Text) , _rribaIncludeOffices :: !Bool @@ -86,7 +86,7 @@ representativesRepresentativeInfoByAddress :: RepresentativesRepresentativeInfoByAddress representativesRepresentativeInfoByAddress = - RepresentativesRepresentativeInfoByAddress + RepresentativesRepresentativeInfoByAddress' { _rribaRoles = Nothing , _rribaAddress = Nothing , _rribaIncludeOffices = True @@ -128,8 +128,11 @@ RepresentativesRepresentativeInfoByAddress where type Rs RepresentativesRepresentativeInfoByAddress = RepresentativeInfoResponse + type Scopes + RepresentativesRepresentativeInfoByAddress + = '[] requestClient - RepresentativesRepresentativeInfoByAddress{..} + RepresentativesRepresentativeInfoByAddress'{..} = go (_rribaRoles ^. _Default) _rribaAddress (Just _rribaIncludeOffices) (_rribaLevels ^. _Default) 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.CivicInfo.Representatives.RepresentativeInfoByDivision --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- | Looks up representative information for a single geographic division. -- -- /See:/ 'representativesRepresentativeInfoByDivision' smart constructor. -data RepresentativesRepresentativeInfoByDivision = RepresentativesRepresentativeInfoByDivision +data RepresentativesRepresentativeInfoByDivision = RepresentativesRepresentativeInfoByDivision' { _rribdRoles :: !(Maybe [RepresentativesRepresentativeInfoByDivisionRoles]) , _rribdRecursive :: !(Maybe Bool) , _rribdOcdId :: !Text @@ -85,7 +85,7 @@ :: Text -- ^ 'rribdOcdId' -> RepresentativesRepresentativeInfoByDivision representativesRepresentativeInfoByDivision pRribdOcdId_ = - RepresentativesRepresentativeInfoByDivision + RepresentativesRepresentativeInfoByDivision' { _rribdRoles = Nothing , _rribdRecursive = Nothing , _rribdOcdId = pRribdOcdId_ @@ -128,8 +128,11 @@ RepresentativesRepresentativeInfoByDivision where type Rs RepresentativesRepresentativeInfoByDivision = RepresentativeInfoData + type Scopes + RepresentativesRepresentativeInfoByDivision + = '[] requestClient - RepresentativesRepresentativeInfoByDivision{..} + RepresentativesRepresentativeInfoByDivision'{..} = go _rribdOcdId (_rribdRoles ^. _Default) _rribdRecursive (_rribdLevels ^. _Default) 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.0.1 +version: 0.1.0 synopsis: Google Civic Information SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2015 Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 @@ -46,5 +46,5 @@ , Network.Google.CivicInfo.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5