gogol-civicinfo 0.0.1 → 0.1.0

raw patch · 11 files changed

+191/−181 lines, 11 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/CivicInfo.hs +1/−1
• gen/Network/Google/CivicInfo/Types.hs +3/−2
• gen/Network/Google/CivicInfo/Types/Product.hs +87/−87
• gen/Network/Google/CivicInfo/Types/Sum.hs +65/−65
• gen/Network/Google/Resource/CivicInfo/Divisions/Search.hs +5/−4
• gen/Network/Google/Resource/CivicInfo/Elections/ElectionQuery.hs +5/−4
• gen/Network/Google/Resource/CivicInfo/Elections/VoterInfoQuery.hs +5/−4
• gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByAddress.hs +7/−4
• gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByDivision.hs +7/−4
• gogol-civicinfo.cabal +3/−3

@@ -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

@@ -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 <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -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 <brendan.g.hay@gmail.com> -- 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"

@@ -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 <brendan.g.hay@gmail.com> -- 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,

@@ -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 <brendan.g.hay@gmail.com> -- 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"

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com>-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