packages feed

gogol-consumersurveys 0.4.0 → 0.5.0

raw patch · 15 files changed

+220/−166 lines, 15 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description
gen/Network/Google/ConsumerSurveys/Types.hs view
@@ -188,12 +188,12 @@  -- | View your email address userInfoEmailScope :: Proxy '["https://www.googleapis.com/auth/userinfo.email"]-userInfoEmailScope = Proxy;+userInfoEmailScope = Proxy  -- | View the results for your surveys consumerSurveysReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/consumersurveys.readonly"]-consumerSurveysReadOnlyScope = Proxy;+consumerSurveysReadOnlyScope = Proxy  -- | View and edit your surveys and results consumerSurveysScope :: Proxy '["https://www.googleapis.com/auth/consumersurveys"]-consumerSurveysScope = Proxy;+consumerSurveysScope = Proxy
gen/Network/Google/ConsumerSurveys/Types/Product.hs view
@@ -22,13 +22,16 @@  -- -- /See:/ 'surveysListResponse' smart constructor.-data SurveysListResponse = SurveysListResponse'+data SurveysListResponse =+  SurveysListResponse'     { _slrRequestId       :: !(Maybe Text)     , _slrTokenPagination :: !(Maybe TokenPagination)     , _slrPageInfo        :: !(Maybe PageInfo)     , _slrResources       :: !(Maybe [Survey])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -43,13 +46,14 @@ surveysListResponse     :: SurveysListResponse surveysListResponse =-    SurveysListResponse'+  SurveysListResponse'     { _slrRequestId = Nothing     , _slrTokenPagination = Nothing     , _slrPageInfo = Nothing     , _slrResources = Nothing     } + -- | Unique request ID used for logging and debugging. Please include in any -- error reporting or troubleshooting requests. slrRequestId :: Lens' SurveysListResponse (Maybe Text)@@ -92,15 +96,18 @@  -- -- /See:/ 'mobileAppPanel' smart constructor.-data MobileAppPanel = MobileAppPanel'+data MobileAppPanel =+  MobileAppPanel'     { _mapOwners           :: !(Maybe [Text])     , _mapCountry          :: !(Maybe Text)     , _mapName             :: !(Maybe Text)     , _mapMobileAppPanelId :: !(Maybe Text)     , _mapLanguage         :: !(Maybe Text)     , _mapIsPublicPanel    :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MobileAppPanel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,7 +126,7 @@ mobileAppPanel     :: MobileAppPanel mobileAppPanel =-    MobileAppPanel'+  MobileAppPanel'     { _mapOwners = Nothing     , _mapCountry = Nothing     , _mapName = Nothing@@ -128,6 +135,7 @@     , _mapIsPublicPanel = Nothing     } + mapOwners :: Lens' MobileAppPanel [Text] mapOwners   = lens _mapOwners (\ s a -> s{_mapOwners = a}) .@@ -179,11 +187,14 @@  -- -- /See:/ 'tokenPagination' smart constructor.-data TokenPagination = TokenPagination'+data TokenPagination =+  TokenPagination'     { _tpNextPageToken     :: !(Maybe Text)     , _tpPreviousPageToken :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TokenPagination' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -194,11 +205,9 @@ tokenPagination     :: TokenPagination tokenPagination =-    TokenPagination'-    { _tpNextPageToken = Nothing-    , _tpPreviousPageToken = Nothing-    }+  TokenPagination' {_tpNextPageToken = Nothing, _tpPreviousPageToken = Nothing} + tpNextPageToken :: Lens' TokenPagination (Maybe Text) tpNextPageToken   = lens _tpNextPageToken@@ -226,10 +235,13 @@  -- -- /See:/ 'resultsGetRequest' smart constructor.-newtype ResultsGetRequest = ResultsGetRequest'+newtype ResultsGetRequest =+  ResultsGetRequest'     { _rgrResultMask :: Maybe ResultsMask-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResultsGetRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -237,11 +249,9 @@ -- * 'rgrResultMask' resultsGetRequest     :: ResultsGetRequest-resultsGetRequest =-    ResultsGetRequest'-    { _rgrResultMask = Nothing-    }+resultsGetRequest = ResultsGetRequest' {_rgrResultMask = Nothing} + rgrResultMask :: Lens' ResultsGetRequest (Maybe ResultsMask) rgrResultMask   = lens _rgrResultMask@@ -259,13 +269,16 @@  -- -- /See:/ 'mobileAppPanelsListResponse' smart constructor.-data MobileAppPanelsListResponse = MobileAppPanelsListResponse'+data MobileAppPanelsListResponse =+  MobileAppPanelsListResponse'     { _maplrRequestId       :: !(Maybe Text)     , _maplrTokenPagination :: !(Maybe TokenPagination)     , _maplrPageInfo        :: !(Maybe PageInfo)     , _maplrResources       :: !(Maybe [MobileAppPanel])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MobileAppPanelsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -280,13 +293,14 @@ mobileAppPanelsListResponse     :: MobileAppPanelsListResponse mobileAppPanelsListResponse =-    MobileAppPanelsListResponse'+  MobileAppPanelsListResponse'     { _maplrRequestId = Nothing     , _maplrTokenPagination = Nothing     , _maplrPageInfo = Nothing     , _maplrResources = Nothing     } + -- | Unique request ID used for logging and debugging. Please include in any -- error reporting or troubleshooting requests. maplrRequestId :: Lens' MobileAppPanelsListResponse (Maybe Text)@@ -332,12 +346,15 @@  -- -- /See:/ 'pageInfo' smart constructor.-data PageInfo = PageInfo'+data PageInfo =+  PageInfo'     { _piResultPerPage :: !(Maybe (Textual Int32))     , _piTotalResults  :: !(Maybe (Textual Int32))     , _piStartIndex    :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PageInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -350,12 +367,13 @@ pageInfo     :: PageInfo pageInfo =-    PageInfo'+  PageInfo'     { _piResultPerPage = Nothing     , _piTotalResults = Nothing     , _piStartIndex = Nothing     } + piResultPerPage :: Lens' PageInfo (Maybe Int32) piResultPerPage   = lens _piResultPerPage@@ -391,11 +409,14 @@  -- -- /See:/ 'fieldMask' smart constructor.-data FieldMask = FieldMask'+data FieldMask =+  FieldMask'     { _fmId     :: !(Maybe (Textual Int32))     , _fmFields :: !(Maybe [FieldMask])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FieldMask' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -405,12 +426,9 @@ -- * 'fmFields' fieldMask     :: FieldMask-fieldMask =-    FieldMask'-    { _fmId = Nothing-    , _fmFields = Nothing-    }+fieldMask = FieldMask' {_fmId = Nothing, _fmFields = Nothing} + fmId :: Lens' FieldMask (Maybe Int32) fmId   = lens _fmId (\ s a -> s{_fmId = a}) .@@ -437,7 +455,8 @@  -- -- /See:/ 'survey' smart constructor.-data Survey = Survey'+data Survey =+  Survey'     { _sAudience            :: !(Maybe SurveyAudience)     , _sState               :: !(Maybe Text)     , _sOwners              :: !(Maybe [Text])@@ -449,8 +468,10 @@     , _sQuestions           :: !(Maybe [SurveyQuestion])     , _sTitle               :: !(Maybe Text)     , _sDescription         :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Survey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -479,7 +500,7 @@ survey     :: Survey survey =-    Survey'+  Survey'     { _sAudience = Nothing     , _sState = Nothing     , _sOwners = Nothing@@ -493,6 +514,7 @@     , _sDescription = Nothing     } + sAudience :: Lens' Survey (Maybe SurveyAudience) sAudience   = lens _sAudience (\ s a -> s{_sAudience = a})@@ -575,10 +597,13 @@  -- -- /See:/ 'surveysStartResponse' smart constructor.-newtype SurveysStartResponse = SurveysStartResponse'+newtype SurveysStartResponse =+  SurveysStartResponse'     { _ssrRequestId :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysStartResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -586,11 +611,9 @@ -- * 'ssrRequestId' surveysStartResponse     :: SurveysStartResponse-surveysStartResponse =-    SurveysStartResponse'-    { _ssrRequestId = Nothing-    }+surveysStartResponse = SurveysStartResponse' {_ssrRequestId = Nothing} + -- | Unique request ID used for logging and debugging. Please include in any -- error reporting or troubleshooting requests. ssrRequestId :: Lens' SurveysStartResponse (Maybe Text)@@ -610,10 +633,13 @@  -- -- /See:/ 'surveysStopResponse' smart constructor.-newtype SurveysStopResponse = SurveysStopResponse'+newtype SurveysStopResponse =+  SurveysStopResponse'     { _sRequestId :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysStopResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -621,11 +647,9 @@ -- * 'sRequestId' surveysStopResponse     :: SurveysStopResponse-surveysStopResponse =-    SurveysStopResponse'-    { _sRequestId = Nothing-    }+surveysStopResponse = SurveysStopResponse' {_sRequestId = Nothing} + -- | Unique request ID used for logging and debugging. Please include in any -- error reporting or troubleshooting requests. sRequestId :: Lens' SurveysStopResponse (Maybe Text)@@ -644,11 +668,14 @@  -- -- /See:/ 'resultsMask' smart constructor.-data ResultsMask = ResultsMask'+data ResultsMask =+  ResultsMask'     { _rmProjection :: !(Maybe Text)     , _rmFields     :: !(Maybe [FieldMask])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResultsMask' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -658,12 +685,9 @@ -- * 'rmFields' resultsMask     :: ResultsMask-resultsMask =-    ResultsMask'-    { _rmProjection = Nothing-    , _rmFields = Nothing-    }+resultsMask = ResultsMask' {_rmProjection = Nothing, _rmFields = Nothing} + rmProjection :: Lens' ResultsMask (Maybe Text) rmProjection   = lens _rmProjection (\ s a -> s{_rmProjection = a})@@ -690,11 +714,14 @@  -- -- /See:/ 'surveyRejection' smart constructor.-data SurveyRejection = SurveyRejection'+data SurveyRejection =+  SurveyRejection'     { _srExplanation :: !(Maybe Text)     , _srType        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveyRejection' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -704,12 +731,9 @@ -- * 'srType' surveyRejection     :: SurveyRejection-surveyRejection =-    SurveyRejection'-    { _srExplanation = Nothing-    , _srType = Nothing-    }+surveyRejection = SurveyRejection' {_srExplanation = Nothing, _srType = Nothing} + srExplanation :: Lens' SurveyRejection (Maybe Text) srExplanation   = lens _srExplanation@@ -734,11 +758,14 @@  -- -- /See:/ 'surveyResults' smart constructor.-data SurveyResults = SurveyResults'+data SurveyResults =+  SurveyResults'     { _srStatus      :: !(Maybe Text)     , _srSurveyURLId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveyResults' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -748,12 +775,9 @@ -- * 'srSurveyURLId' surveyResults     :: SurveyResults-surveyResults =-    SurveyResults'-    { _srStatus = Nothing-    , _srSurveyURLId = Nothing-    }+surveyResults = SurveyResults' {_srStatus = Nothing, _srSurveyURLId = Nothing} + srStatus :: Lens' SurveyResults (Maybe Text) srStatus = lens _srStatus (\ s a -> s{_srStatus = a}) @@ -778,10 +802,13 @@  -- -- /See:/ 'surveysStartRequest' smart constructor.-newtype SurveysStartRequest = SurveysStartRequest'+newtype SurveysStartRequest =+  SurveysStartRequest'     { _ssrMaxCostPerResponseNanos :: Maybe (Textual Int64)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysStartRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -790,10 +817,9 @@ surveysStartRequest     :: SurveysStartRequest surveysStartRequest =-    SurveysStartRequest'-    { _ssrMaxCostPerResponseNanos = Nothing-    }+  SurveysStartRequest' {_ssrMaxCostPerResponseNanos = Nothing} + -- | Threshold to start a survey automically if the quoted prices is less -- than or equal to this value. See Survey.Cost for more details. ssrMaxCostPerResponseNanos :: Lens' SurveysStartRequest (Maybe Int64)@@ -818,10 +844,13 @@  -- -- /See:/ 'surveysDeleteResponse' smart constructor.-newtype SurveysDeleteResponse = SurveysDeleteResponse'+newtype SurveysDeleteResponse =+  SurveysDeleteResponse'     { _sdrRequestId :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysDeleteResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -829,11 +858,9 @@ -- * 'sdrRequestId' surveysDeleteResponse     :: SurveysDeleteResponse-surveysDeleteResponse =-    SurveysDeleteResponse'-    { _sdrRequestId = Nothing-    }+surveysDeleteResponse = SurveysDeleteResponse' {_sdrRequestId = Nothing} + -- | Unique request ID used for logging and debugging. Please include in any -- error reporting or troubleshooting requests. sdrRequestId :: Lens' SurveysDeleteResponse (Maybe Text)@@ -853,12 +880,15 @@  -- -- /See:/ 'surveyQuestionImage' smart constructor.-data SurveyQuestionImage = SurveyQuestionImage'+data SurveyQuestionImage =+  SurveyQuestionImage'     { _sqiData    :: !(Maybe Bytes)     , _sqiURL     :: !(Maybe Text)     , _sqiAltText :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveyQuestionImage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -871,12 +901,10 @@ surveyQuestionImage     :: SurveyQuestionImage surveyQuestionImage =-    SurveyQuestionImage'-    { _sqiData = Nothing-    , _sqiURL = Nothing-    , _sqiAltText = Nothing-    }+  SurveyQuestionImage'+    {_sqiData = Nothing, _sqiURL = Nothing, _sqiAltText = Nothing} + sqiData :: Lens' SurveyQuestionImage (Maybe ByteString) sqiData   = lens _sqiData (\ s a -> s{_sqiData = a}) .@@ -906,7 +934,8 @@  -- -- /See:/ 'surveyAudience' smart constructor.-data SurveyAudience = SurveyAudience'+data SurveyAudience =+  SurveyAudience'     { _saCountry            :: !(Maybe Text)     , _saAges               :: !(Maybe [Text])     , _saLanguages          :: !(Maybe [Text])@@ -914,8 +943,10 @@     , _saMobileAppPanelId   :: !(Maybe Text)     , _saCountrySubdivision :: !(Maybe Text)     , _saPopulationSource   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveyAudience' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -936,7 +967,7 @@ surveyAudience     :: SurveyAudience surveyAudience =-    SurveyAudience'+  SurveyAudience'     { _saCountry = Nothing     , _saAges = Nothing     , _saLanguages = Nothing@@ -946,6 +977,7 @@     , _saPopulationSource = Nothing     } + saCountry :: Lens' SurveyAudience (Maybe Text) saCountry   = lens _saCountry (\ s a -> s{_saCountry = a})@@ -1005,13 +1037,16 @@  -- -- /See:/ 'surveyCost' smart constructor.-data SurveyCost = SurveyCost'+data SurveyCost =+  SurveyCost'     { _scCurrencyCode            :: !(Maybe Text)     , _scNanos                   :: !(Maybe (Textual Int64))     , _scMaxCostPerResponseNanos :: !(Maybe (Textual Int64))     , _scCostPerResponseNanos    :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveyCost' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1026,13 +1061,14 @@ surveyCost     :: SurveyCost surveyCost =-    SurveyCost'+  SurveyCost'     { _scCurrencyCode = Nothing     , _scNanos = Nothing     , _scMaxCostPerResponseNanos = Nothing     , _scCostPerResponseNanos = Nothing     } + scCurrencyCode :: Lens' SurveyCost (Maybe Text) scCurrencyCode   = lens _scCurrencyCode@@ -1077,7 +1113,8 @@  -- -- /See:/ 'surveyQuestion' smart constructor.-data SurveyQuestion = SurveyQuestion'+data SurveyQuestion =+  SurveyQuestion'     { _sqImages                   :: !(Maybe [SurveyQuestionImage])     , _sqAnswers                  :: !(Maybe [Text])     , _sqSingleLineResponse       :: !(Maybe Bool)@@ -1096,8 +1133,10 @@     , _sqQuestion                 :: !(Maybe Text)     , _sqNumStars                 :: !(Maybe Text)     , _sqLowValueLabel            :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveyQuestion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1140,7 +1179,7 @@ surveyQuestion     :: SurveyQuestion surveyQuestion =-    SurveyQuestion'+  SurveyQuestion'     { _sqImages = Nothing     , _sqAnswers = Nothing     , _sqSingleLineResponse = Nothing@@ -1160,6 +1199,7 @@     , _sqNumStars = Nothing     , _sqLowValueLabel = Nothing     }+  sqImages :: Lens' SurveyQuestion [SurveyQuestionImage] sqImages
gen/Network/Google/Resource/ConsumerSurveys/MobileApppanels/Get.hs view
@@ -52,10 +52,13 @@ -- | Retrieves a MobileAppPanel that is available to the authenticated user. -- -- /See:/ 'mobileApppanelsGet' smart constructor.-newtype MobileApppanelsGet = MobileApppanelsGet'+newtype MobileApppanelsGet =+  MobileApppanelsGet'     { _magPanelId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MobileApppanelsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,9 +68,8 @@     :: Text -- ^ 'magPanelId'     -> MobileApppanelsGet mobileApppanelsGet pMagPanelId_ =-    MobileApppanelsGet'-    { _magPanelId = pMagPanelId_-    }+  MobileApppanelsGet' {_magPanelId = pMagPanelId_}+  -- | External URL ID for the panel. magPanelId :: Lens' MobileApppanelsGet Text
gen/Network/Google/Resource/ConsumerSurveys/MobileApppanels/List.hs view
@@ -56,12 +56,15 @@ -- | Lists the MobileAppPanels available to the authenticated user. -- -- /See:/ 'mobileApppanelsList' smart constructor.-data MobileApppanelsList = MobileApppanelsList'+data MobileApppanelsList =+  MobileApppanelsList'     { _malToken      :: !(Maybe Text)     , _malStartIndex :: !(Maybe (Textual Word32))     , _malMaxResults :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MobileApppanelsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,11 +77,9 @@ mobileApppanelsList     :: MobileApppanelsList mobileApppanelsList =-    MobileApppanelsList'-    { _malToken = Nothing-    , _malStartIndex = Nothing-    , _malMaxResults = Nothing-    }+  MobileApppanelsList'+    {_malToken = Nothing, _malStartIndex = Nothing, _malMaxResults = Nothing}+  malToken :: Lens' MobileApppanelsList (Maybe Text) malToken = lens _malToken (\ s a -> s{_malToken = a})
gen/Network/Google/Resource/ConsumerSurveys/MobileApppanels/Update.hs view
@@ -56,11 +56,14 @@ -- updated is the owners property. -- -- /See:/ 'mobileApppanelsUpdate' smart constructor.-data MobileApppanelsUpdate = MobileApppanelsUpdate'+data MobileApppanelsUpdate =+  MobileApppanelsUpdate'     { _mauPayload :: !MobileAppPanel     , _mauPanelId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MobileApppanelsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,10 +76,9 @@     -> Text -- ^ 'mauPanelId'     -> MobileApppanelsUpdate mobileApppanelsUpdate pMauPayload_ pMauPanelId_ =-    MobileApppanelsUpdate'-    { _mauPayload = pMauPayload_-    , _mauPanelId = pMauPanelId_-    }+  MobileApppanelsUpdate'+    {_mauPayload = pMauPayload_, _mauPanelId = pMauPanelId_}+  -- | Multipart request metadata. mauPayload :: Lens' MobileApppanelsUpdate MobileAppPanel
gen/Network/Google/Resource/ConsumerSurveys/Results/Get.hs view
@@ -67,11 +67,14 @@ -- argument to get results. -- -- /See:/ 'resultsGet' smart constructor.-data ResultsGet = ResultsGet'+data ResultsGet =+  ResultsGet'     { _rgSurveyURLId :: !Text     , _rgPayload     :: !ResultsGetRequest-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResultsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -84,10 +87,8 @@     -> ResultsGetRequest -- ^ 'rgPayload'     -> ResultsGet resultsGet pRgSurveyURLId_ pRgPayload_ =-    ResultsGet'-    { _rgSurveyURLId = pRgSurveyURLId_-    , _rgPayload = pRgPayload_-    }+  ResultsGet' {_rgSurveyURLId = pRgSurveyURLId_, _rgPayload = pRgPayload_}+  -- | External URL ID for the survey. rgSurveyURLId :: Lens' ResultsGet Text
gen/Network/Google/Resource/ConsumerSurveys/Surveys/Delete.hs view
@@ -52,10 +52,13 @@ -- | Removes a survey from view in all user GET requests. -- -- /See:/ 'surveysDelete' smart constructor.-newtype SurveysDelete = SurveysDelete'+newtype SurveysDelete =+  SurveysDelete'     { _sdSurveyURLId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,9 +68,8 @@     :: Text -- ^ 'sdSurveyURLId'     -> SurveysDelete surveysDelete pSdSurveyURLId_ =-    SurveysDelete'-    { _sdSurveyURLId = pSdSurveyURLId_-    }+  SurveysDelete' {_sdSurveyURLId = pSdSurveyURLId_}+  -- | External URL ID for the survey. sdSurveyURLId :: Lens' SurveysDelete Text
gen/Network/Google/Resource/ConsumerSurveys/Surveys/Get.hs view
@@ -51,10 +51,13 @@ -- | Retrieves information about the specified survey. -- -- /See:/ 'surveysGet' smart constructor.-newtype SurveysGet = SurveysGet'+newtype SurveysGet =+  SurveysGet'     { _sgSurveyURLId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ surveysGet     :: Text -- ^ 'sgSurveyURLId'     -> SurveysGet-surveysGet pSgSurveyURLId_ =-    SurveysGet'-    { _sgSurveyURLId = pSgSurveyURLId_-    }+surveysGet pSgSurveyURLId_ = SurveysGet' {_sgSurveyURLId = pSgSurveyURLId_}+  -- | External URL ID for the survey. sgSurveyURLId :: Lens' SurveysGet Text
gen/Network/Google/Resource/ConsumerSurveys/Surveys/Insert.hs view
@@ -51,10 +51,13 @@ -- | Creates a survey. -- -- /See:/ 'surveysInsert' smart constructor.-newtype SurveysInsert = SurveysInsert'+newtype SurveysInsert =+  SurveysInsert'     { _siPayload :: Survey-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ surveysInsert     :: Survey -- ^ 'siPayload'     -> SurveysInsert-surveysInsert pSiPayload_ =-    SurveysInsert'-    { _siPayload = pSiPayload_-    }+surveysInsert pSiPayload_ = SurveysInsert' {_siPayload = pSiPayload_}+  -- | Multipart request metadata. siPayload :: Lens' SurveysInsert Survey
gen/Network/Google/Resource/ConsumerSurveys/Surveys/List.hs view
@@ -56,12 +56,15 @@ -- | Lists the surveys owned by the authenticated user. -- -- /See:/ 'surveysList' smart constructor.-data SurveysList = SurveysList'+data SurveysList =+  SurveysList'     { _slToken      :: !(Maybe Text)     , _slStartIndex :: !(Maybe (Textual Word32))     , _slMaxResults :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,11 +77,9 @@ surveysList     :: SurveysList surveysList =-    SurveysList'-    { _slToken = Nothing-    , _slStartIndex = Nothing-    , _slMaxResults = Nothing-    }+  SurveysList'+    {_slToken = Nothing, _slStartIndex = Nothing, _slMaxResults = Nothing}+  slToken :: Lens' SurveysList (Maybe Text) slToken = lens _slToken (\ s a -> s{_slToken = a})
gen/Network/Google/Resource/ConsumerSurveys/Surveys/Start.hs view
@@ -55,11 +55,14 @@ -- | Begins running a survey. -- -- /See:/ 'surveysStart' smart constructor.-data SurveysStart = SurveysStart'+data SurveysStart =+  SurveysStart'     { _ssResourceId :: !Text     , _ssPayload    :: !SurveysStartRequest-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysStart' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,8 @@     -> SurveysStartRequest -- ^ 'ssPayload'     -> SurveysStart surveysStart pSsResourceId_ pSsPayload_ =-    SurveysStart'-    { _ssResourceId = pSsResourceId_-    , _ssPayload = pSsPayload_-    }+  SurveysStart' {_ssResourceId = pSsResourceId_, _ssPayload = pSsPayload_}+  ssResourceId :: Lens' SurveysStart Text ssResourceId
gen/Network/Google/Resource/ConsumerSurveys/Surveys/Stop.hs view
@@ -53,10 +53,13 @@ -- | Stops a running survey. -- -- /See:/ 'surveysStop' smart constructor.-newtype SurveysStop = SurveysStop'+newtype SurveysStop =+  SurveysStop'     { _sResourceId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysStop' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +68,8 @@ surveysStop     :: Text -- ^ 'sResourceId'     -> SurveysStop-surveysStop pSResourceId_ =-    SurveysStop'-    { _sResourceId = pSResourceId_-    }+surveysStop pSResourceId_ = SurveysStop' {_sResourceId = pSResourceId_}+  sResourceId :: Lens' SurveysStop Text sResourceId
gen/Network/Google/Resource/ConsumerSurveys/Surveys/Update.hs view
@@ -55,11 +55,14 @@ -- owners property. -- -- /See:/ 'surveysUpdate' smart constructor.-data SurveysUpdate = SurveysUpdate'+data SurveysUpdate =+  SurveysUpdate'     { _suSurveyURLId :: !Text     , _suPayload     :: !Survey-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SurveysUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,8 @@     -> Survey -- ^ 'suPayload'     -> SurveysUpdate surveysUpdate pSuSurveyURLId_ pSuPayload_ =-    SurveysUpdate'-    { _suSurveyURLId = pSuSurveyURLId_-    , _suPayload = pSuPayload_-    }+  SurveysUpdate' {_suSurveyURLId = pSuSurveyURLId_, _suPayload = pSuPayload_}+  -- | External URL ID for the survey. suSurveyURLId :: Lens' SurveysUpdate Text
gogol-consumersurveys.cabal view
@@ -1,5 +1,5 @@ name:                  gogol-consumersurveys-version:               0.4.0+version:               0.5.0 synopsis:              Google Consumer Surveys SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -54,5 +54,5 @@         , Network.Google.ConsumerSurveys.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5