packages feed

gogol-prediction 0.4.0 → 0.5.0

raw patch · 12 files changed

+290/−199 lines, 12 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/Prediction/Types.hs view
@@ -221,20 +221,20 @@  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy  -- | View your data in Google Cloud Storage storageReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/devstorage.read_only"]-storageReadOnlyScope = Proxy;+storageReadOnlyScope = Proxy  -- | Manage your data in Google Cloud Storage storageReadWriteScope :: Proxy '["https://www.googleapis.com/auth/devstorage.read_write"]-storageReadWriteScope = Proxy;+storageReadWriteScope = Proxy  -- | Manage your data in the Google Prediction API predictionScope :: Proxy '["https://www.googleapis.com/auth/prediction"]-predictionScope = Proxy;+predictionScope = Proxy  -- | Manage your data and permissions in Google Cloud Storage storageFullControlScope :: Proxy '["https://www.googleapis.com/auth/devstorage.full_control"]-storageFullControlScope = Proxy;+storageFullControlScope = Proxy
gen/Network/Google/Prediction/Types/Product.hs view
@@ -23,15 +23,18 @@ -- | Model metadata. -- -- /See:/ 'insert2ModelInfo' smart constructor.-data Insert2ModelInfo = Insert2ModelInfo'+data Insert2ModelInfo =+  Insert2ModelInfo'     { _imiModelType              :: !(Maybe Text)     , _imiClassWeightedAccuracy  :: !(Maybe Text)     , _imiClassificationAccuracy :: !(Maybe Text)     , _imiMeanSquaredError       :: !(Maybe Text)     , _imiNumberLabels           :: !(Maybe (Textual Int64))     , _imiNumberInstances        :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Insert2ModelInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -50,7 +53,7 @@ insert2ModelInfo     :: Insert2ModelInfo insert2ModelInfo =-    Insert2ModelInfo'+  Insert2ModelInfo'     { _imiModelType = Nothing     , _imiClassWeightedAccuracy = Nothing     , _imiClassificationAccuracy = Nothing@@ -59,6 +62,7 @@     , _imiNumberInstances = Nothing     } + -- | Type of predictive model (CLASSIFICATION or REGRESSION). imiModelType :: Lens' Insert2ModelInfo (Maybe Text) imiModelType@@ -131,10 +135,13 @@ -- | A list of the confusion matrix row totals. -- -- /See:/ 'analyzeModelDescriptionConfusionMatrixRowTotals' smart constructor.-newtype AnalyzeModelDescriptionConfusionMatrixRowTotals = AnalyzeModelDescriptionConfusionMatrixRowTotals'+newtype AnalyzeModelDescriptionConfusionMatrixRowTotals =+  AnalyzeModelDescriptionConfusionMatrixRowTotals'     { _amdcmrtAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeModelDescriptionConfusionMatrixRowTotals' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -144,10 +151,10 @@     :: HashMap Text Text -- ^ 'amdcmrtAddtional'     -> AnalyzeModelDescriptionConfusionMatrixRowTotals analyzeModelDescriptionConfusionMatrixRowTotals pAmdcmrtAddtional_ =-    AnalyzeModelDescriptionConfusionMatrixRowTotals'-    { _amdcmrtAddtional = _Coerce # pAmdcmrtAddtional_-    }+  AnalyzeModelDescriptionConfusionMatrixRowTotals'+    {_amdcmrtAddtional = _Coerce # pAmdcmrtAddtional_} + amdcmrtAddtional :: Lens' AnalyzeModelDescriptionConfusionMatrixRowTotals (HashMap Text Text) amdcmrtAddtional   = lens _amdcmrtAddtional@@ -155,7 +162,8 @@       . _Coerce  instance FromJSON-         AnalyzeModelDescriptionConfusionMatrixRowTotals where+           AnalyzeModelDescriptionConfusionMatrixRowTotals+         where         parseJSON           = withObject               "AnalyzeModelDescriptionConfusionMatrixRowTotals"@@ -164,12 +172,14 @@                    (parseJSONObject o))  instance ToJSON-         AnalyzeModelDescriptionConfusionMatrixRowTotals where+           AnalyzeModelDescriptionConfusionMatrixRowTotals+         where         toJSON = toJSON . _amdcmrtAddtional  -- -- /See:/ 'insert' smart constructor.-data Insert = Insert'+data Insert =+  Insert'     { _iStorageDataLocation      :: !(Maybe Text)     , _iModelType                :: !(Maybe Text)     , _iTrainingInstances        :: !(Maybe [InsertTrainingInstancesItem])@@ -178,8 +188,10 @@     , _iSourceModel              :: !(Maybe Text)     , _iId                       :: !(Maybe Text)     , _iStoragePMMLLocation      :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Insert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -202,7 +214,7 @@ insert     :: Insert insert =-    Insert'+  Insert'     { _iStorageDataLocation = Nothing     , _iModelType = Nothing     , _iTrainingInstances = Nothing@@ -213,6 +225,7 @@     , _iStoragePMMLLocation = Nothing     } + -- | Google storage location of the training data file. iStorageDataLocation :: Lens' Insert (Maybe Text) iStorageDataLocation@@ -292,13 +305,16 @@  -- -- /See:/ 'list' smart constructor.-data List = List'+data List =+  List'     { _lNextPageToken :: !(Maybe Text)     , _lKind          :: !Text     , _lItems         :: !(Maybe [Insert2])     , _lSelfLink      :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'List' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -313,13 +329,14 @@ list     :: List list =-    List'+  List'     { _lNextPageToken = Nothing     , _lKind = "prediction#list"     , _lItems = Nothing     , _lSelfLink = Nothing     } + -- | Pagination token to fetch the next page, if one exists. lNextPageToken :: Lens' List (Maybe Text) lNextPageToken@@ -362,10 +379,13 @@ -- | Class label (string). -- -- /See:/ 'insertUtilityItem' smart constructor.-newtype InsertUtilityItem = InsertUtilityItem'+newtype InsertUtilityItem =+  InsertUtilityItem'     { _iuiAddtional :: HashMap Text (Textual Double)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InsertUtilityItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -375,10 +395,9 @@     :: HashMap Text Double -- ^ 'iuiAddtional'     -> InsertUtilityItem insertUtilityItem pIuiAddtional_ =-    InsertUtilityItem'-    { _iuiAddtional = _Coerce # pIuiAddtional_-    }+  InsertUtilityItem' {_iuiAddtional = _Coerce # pIuiAddtional_} + iuiAddtional :: Lens' InsertUtilityItem (HashMap Text Double) iuiAddtional   = lens _iuiAddtional (\ s a -> s{_iuiAddtional = a})@@ -394,7 +413,8 @@  -- -- /See:/ 'insert2' smart constructor.-data Insert2 = Insert2'+data Insert2 =+  Insert2'     { _insStorageDataLocation      :: !(Maybe Text)     , _insModelType                :: !(Maybe Text)     , _insKind                     :: !Text@@ -406,8 +426,10 @@     , _insId                       :: !(Maybe Text)     , _insStoragePMMLLocation      :: !(Maybe Text)     , _insModelInfo                :: !(Maybe Insert2ModelInfo)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Insert2' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -436,7 +458,7 @@ insert2     :: Insert2 insert2 =-    Insert2'+  Insert2'     { _insStorageDataLocation = Nothing     , _insModelType = Nothing     , _insKind = "prediction#training"@@ -450,6 +472,7 @@     , _insModelInfo = Nothing     } + -- | Google storage location of the training data file. insStorageDataLocation :: Lens' Insert2 (Maybe Text) insStorageDataLocation@@ -548,11 +571,14 @@  -- -- /See:/ 'insertTrainingInstancesItem' smart constructor.-data InsertTrainingInstancesItem = InsertTrainingInstancesItem'+data InsertTrainingInstancesItem =+  InsertTrainingInstancesItem'     { _itiiCSVInstance :: !(Maybe [JSONValue])     , _itiiOutput      :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InsertTrainingInstancesItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -563,11 +589,10 @@ insertTrainingInstancesItem     :: InsertTrainingInstancesItem insertTrainingInstancesItem =-    InsertTrainingInstancesItem'-    { _itiiCSVInstance = Nothing-    , _itiiOutput = Nothing-    }+  InsertTrainingInstancesItem'+    {_itiiCSVInstance = Nothing, _itiiOutput = Nothing} + -- | The input features for this instance. itiiCSVInstance :: Lens' InsertTrainingInstancesItem [JSONValue] itiiCSVInstance@@ -599,10 +624,13 @@ -- | Input to the model for a prediction. -- -- /See:/ 'inputInput' smart constructor.-newtype InputInput = InputInput'+newtype InputInput =+  InputInput'     { _iiCSVInstance :: Maybe [JSONValue]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InputInput' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -610,11 +638,9 @@ -- * 'iiCSVInstance' inputInput     :: InputInput-inputInput =-    InputInput'-    { _iiCSVInstance = Nothing-    }+inputInput = InputInput' {_iiCSVInstance = Nothing} + -- | A list of input features, these can be strings or doubles. iiCSVInstance :: Lens' InputInput [JSONValue] iiCSVInstance@@ -636,11 +662,14 @@  -- -- /See:/ 'analyzeDataDescriptionFeaturesItemCategoricalValuesItem' smart constructor.-data AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem = AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem'+data AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem =+  AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem'     { _addficviValue :: !(Maybe Text)     , _addficviCount :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -651,11 +680,10 @@ analyzeDataDescriptionFeaturesItemCategoricalValuesItem     :: AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem analyzeDataDescriptionFeaturesItemCategoricalValuesItem =-    AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem'-    { _addficviValue = Nothing-    , _addficviCount = Nothing-    }+  AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem'+    {_addficviValue = Nothing, _addficviCount = Nothing} + -- | The category name. addficviValue :: Lens' AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem (Maybe Text) addficviValue@@ -670,7 +698,7 @@       . mapping _Coerce  instance FromJSON-         AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem+           AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem          where         parseJSON           = withObject@@ -680,7 +708,7 @@                    <$> (o .:? "value") <*> (o .:? "count"))  instance ToJSON-         AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem+           AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem          where         toJSON           AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem'{..}@@ -692,12 +720,15 @@ -- | Description of the numeric values of this feature. -- -- /See:/ 'analyzeDataDescriptionFeaturesItemNumeric' smart constructor.-data AnalyzeDataDescriptionFeaturesItemNumeric = AnalyzeDataDescriptionFeaturesItemNumeric'+data AnalyzeDataDescriptionFeaturesItemNumeric =+  AnalyzeDataDescriptionFeaturesItemNumeric'     { _addfinMean     :: !(Maybe Text)     , _addfinCount    :: !(Maybe (Textual Int64))     , _addfinVariance :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeDataDescriptionFeaturesItemNumeric' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -710,12 +741,10 @@ analyzeDataDescriptionFeaturesItemNumeric     :: AnalyzeDataDescriptionFeaturesItemNumeric analyzeDataDescriptionFeaturesItemNumeric =-    AnalyzeDataDescriptionFeaturesItemNumeric'-    { _addfinMean = Nothing-    , _addfinCount = Nothing-    , _addfinVariance = Nothing-    }+  AnalyzeDataDescriptionFeaturesItemNumeric'+    {_addfinMean = Nothing, _addfinCount = Nothing, _addfinVariance = Nothing} + -- | Mean of the numeric values of this feature in the data set. addfinMean :: Lens' AnalyzeDataDescriptionFeaturesItemNumeric (Maybe Text) addfinMean@@ -734,7 +763,8 @@       (\ s a -> s{_addfinVariance = a})  instance FromJSON-         AnalyzeDataDescriptionFeaturesItemNumeric where+           AnalyzeDataDescriptionFeaturesItemNumeric+         where         parseJSON           = withObject               "AnalyzeDataDescriptionFeaturesItemNumeric"@@ -744,7 +774,8 @@                      (o .:? "variance"))  instance ToJSON-         AnalyzeDataDescriptionFeaturesItemNumeric where+           AnalyzeDataDescriptionFeaturesItemNumeric+         where         toJSON AnalyzeDataDescriptionFeaturesItemNumeric'{..}           = object               (catMaybes@@ -754,10 +785,13 @@  -- -- /See:/ 'input' smart constructor.-newtype Input = Input'+newtype Input =+  Input'     { _iInput :: Maybe InputInput-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Input' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -765,11 +799,9 @@ -- * 'iInput' input     :: Input-input =-    Input'-    { _iInput = Nothing-    }+input = Input' {_iInput = Nothing} + -- | Input to the model for a prediction. iInput :: Lens' Input (Maybe InputInput) iInput = lens _iInput (\ s a -> s{_iInput = a})@@ -786,11 +818,14 @@ -- | Description of the categorical values of this feature. -- -- /See:/ 'analyzeDataDescriptionFeaturesItemCategorical' smart constructor.-data AnalyzeDataDescriptionFeaturesItemCategorical = AnalyzeDataDescriptionFeaturesItemCategorical'+data AnalyzeDataDescriptionFeaturesItemCategorical =+  AnalyzeDataDescriptionFeaturesItemCategorical'     { _addficValues :: !(Maybe [AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem])     , _addficCount  :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeDataDescriptionFeaturesItemCategorical' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -801,11 +836,10 @@ analyzeDataDescriptionFeaturesItemCategorical     :: AnalyzeDataDescriptionFeaturesItemCategorical analyzeDataDescriptionFeaturesItemCategorical =-    AnalyzeDataDescriptionFeaturesItemCategorical'-    { _addficValues = Nothing-    , _addficCount = Nothing-    }+  AnalyzeDataDescriptionFeaturesItemCategorical'+    {_addficValues = Nothing, _addficCount = Nothing} + -- | List of all the categories for this feature in the data set. addficValues :: Lens' AnalyzeDataDescriptionFeaturesItemCategorical [AnalyzeDataDescriptionFeaturesItemCategoricalValuesItem] addficValues@@ -820,7 +854,8 @@       mapping _Coerce  instance FromJSON-         AnalyzeDataDescriptionFeaturesItemCategorical where+           AnalyzeDataDescriptionFeaturesItemCategorical+         where         parseJSON           = withObject               "AnalyzeDataDescriptionFeaturesItemCategorical"@@ -829,7 +864,8 @@                    (o .:? "values" .!= mempty) <*> (o .:? "count"))  instance ToJSON-         AnalyzeDataDescriptionFeaturesItemCategorical where+           AnalyzeDataDescriptionFeaturesItemCategorical+         where         toJSON           AnalyzeDataDescriptionFeaturesItemCategorical'{..}           = object@@ -839,11 +875,14 @@  -- -- /See:/ 'analyzeDataDescriptionOutputFeatureTextItem' smart constructor.-data AnalyzeDataDescriptionOutputFeatureTextItem = AnalyzeDataDescriptionOutputFeatureTextItem'+data AnalyzeDataDescriptionOutputFeatureTextItem =+  AnalyzeDataDescriptionOutputFeatureTextItem'     { _addoftiValue :: !(Maybe Text)     , _addoftiCount :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeDataDescriptionOutputFeatureTextItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -854,11 +893,10 @@ analyzeDataDescriptionOutputFeatureTextItem     :: AnalyzeDataDescriptionOutputFeatureTextItem analyzeDataDescriptionOutputFeatureTextItem =-    AnalyzeDataDescriptionOutputFeatureTextItem'-    { _addoftiValue = Nothing-    , _addoftiCount = Nothing-    }+  AnalyzeDataDescriptionOutputFeatureTextItem'+    {_addoftiValue = Nothing, _addoftiCount = Nothing} + -- | The output label. addoftiValue :: Lens' AnalyzeDataDescriptionOutputFeatureTextItem (Maybe Text) addoftiValue@@ -871,7 +909,8 @@       . mapping _Coerce  instance FromJSON-         AnalyzeDataDescriptionOutputFeatureTextItem where+           AnalyzeDataDescriptionOutputFeatureTextItem+         where         parseJSON           = withObject               "AnalyzeDataDescriptionOutputFeatureTextItem"@@ -880,7 +919,8 @@                    (o .:? "value") <*> (o .:? "count"))  instance ToJSON-         AnalyzeDataDescriptionOutputFeatureTextItem where+           AnalyzeDataDescriptionOutputFeatureTextItem+         where         toJSON           AnalyzeDataDescriptionOutputFeatureTextItem'{..}           = object@@ -890,11 +930,14 @@  -- -- /See:/ 'outputOutputMultiItem' smart constructor.-data OutputOutputMultiItem = OutputOutputMultiItem'+data OutputOutputMultiItem =+  OutputOutputMultiItem'     { _oomiScore :: !(Maybe Text)     , _oomiLabel :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OutputOutputMultiItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -905,11 +948,9 @@ outputOutputMultiItem     :: OutputOutputMultiItem outputOutputMultiItem =-    OutputOutputMultiItem'-    { _oomiScore = Nothing-    , _oomiLabel = Nothing-    }+  OutputOutputMultiItem' {_oomiScore = Nothing, _oomiLabel = Nothing} + -- | The probability of the class label. oomiScore :: Lens' OutputOutputMultiItem (Maybe Text) oomiScore@@ -936,15 +977,18 @@  -- -- /See:/ 'analyze' smart constructor.-data Analyze = Analyze'+data Analyze =+  Analyze'     { _aKind             :: !Text     , _aModelDescription :: !(Maybe AnalyzeModelDescription)     , _aSelfLink         :: !(Maybe Text)     , _aId               :: !(Maybe Text)     , _aErrors           :: !(Maybe [AnalyzeErrorsItem])     , _aDataDescription  :: !(Maybe AnalyzeDataDescription)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Analyze' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -963,7 +1007,7 @@ analyze     :: Analyze analyze =-    Analyze'+  Analyze'     { _aKind = "prediction#analyze"     , _aModelDescription = Nothing     , _aSelfLink = Nothing@@ -972,6 +1016,7 @@     , _aDataDescription = Nothing     } + -- | What kind of resource this is. aKind :: Lens' Analyze Text aKind = lens _aKind (\ s a -> s{_aKind = a})@@ -1033,10 +1078,13 @@ -- more then 100 classes (Categorical models only). -- -- /See:/ 'analyzeModelDescriptionConfusionMatrix' smart constructor.-newtype AnalyzeModelDescriptionConfusionMatrix = AnalyzeModelDescriptionConfusionMatrix'+newtype AnalyzeModelDescriptionConfusionMatrix =+  AnalyzeModelDescriptionConfusionMatrix'     { _amdcmAddtional :: HashMap Text AnalyzeModelDescriptionConfusionMatrixAdditional-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeModelDescriptionConfusionMatrix' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1046,10 +1094,10 @@     :: HashMap Text AnalyzeModelDescriptionConfusionMatrixAdditional -- ^ 'amdcmAddtional'     -> AnalyzeModelDescriptionConfusionMatrix analyzeModelDescriptionConfusionMatrix pAmdcmAddtional_ =-    AnalyzeModelDescriptionConfusionMatrix'-    { _amdcmAddtional = _Coerce # pAmdcmAddtional_-    }+  AnalyzeModelDescriptionConfusionMatrix'+    {_amdcmAddtional = _Coerce # pAmdcmAddtional_} + -- | Confusion matrix information for the true class label. amdcmAddtional :: Lens' AnalyzeModelDescriptionConfusionMatrix (HashMap Text AnalyzeModelDescriptionConfusionMatrixAdditional) amdcmAddtional@@ -1058,7 +1106,8 @@       . _Coerce  instance FromJSON-         AnalyzeModelDescriptionConfusionMatrix where+           AnalyzeModelDescriptionConfusionMatrix+         where         parseJSON           = withObject "AnalyzeModelDescriptionConfusionMatrix"               (\ o ->@@ -1066,20 +1115,24 @@                    (parseJSONObject o))  instance ToJSON-         AnalyzeModelDescriptionConfusionMatrix where+           AnalyzeModelDescriptionConfusionMatrix+         where         toJSON = toJSON . _amdcmAddtional  -- -- /See:/ 'output' smart constructor.-data Output = Output'+data Output =+  Output'     { _oOutputValue :: !(Maybe Text)     , _oKind        :: !Text     , _oOutputLabel :: !(Maybe Text)     , _oSelfLink    :: !(Maybe Text)     , _oId          :: !(Maybe Text)     , _oOutputMulti :: !(Maybe [OutputOutputMultiItem])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Output' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1098,7 +1151,7 @@ output     :: Output output =-    Output'+  Output'     { _oOutputValue = Nothing     , _oKind = "prediction#output"     , _oOutputLabel = Nothing@@ -1107,6 +1160,7 @@     , _oOutputMulti = Nothing     } + -- | The estimated regression value (Regression models only). oOutputValue :: Lens' Output (Maybe Text) oOutputValue@@ -1163,12 +1217,15 @@ -- | Description of the output values in the data set. -- -- /See:/ 'analyzeDataDescriptionOutputFeatureNumeric' smart constructor.-data AnalyzeDataDescriptionOutputFeatureNumeric = AnalyzeDataDescriptionOutputFeatureNumeric'+data AnalyzeDataDescriptionOutputFeatureNumeric =+  AnalyzeDataDescriptionOutputFeatureNumeric'     { _addofnMean     :: !(Maybe Text)     , _addofnCount    :: !(Maybe (Textual Int64))     , _addofnVariance :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeDataDescriptionOutputFeatureNumeric' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1181,12 +1238,10 @@ analyzeDataDescriptionOutputFeatureNumeric     :: AnalyzeDataDescriptionOutputFeatureNumeric analyzeDataDescriptionOutputFeatureNumeric =-    AnalyzeDataDescriptionOutputFeatureNumeric'-    { _addofnMean = Nothing-    , _addofnCount = Nothing-    , _addofnVariance = Nothing-    }+  AnalyzeDataDescriptionOutputFeatureNumeric'+    {_addofnMean = Nothing, _addofnCount = Nothing, _addofnVariance = Nothing} + -- | Mean of the output values in the data set. addofnMean :: Lens' AnalyzeDataDescriptionOutputFeatureNumeric (Maybe Text) addofnMean@@ -1205,7 +1260,8 @@       (\ s a -> s{_addofnVariance = a})  instance FromJSON-         AnalyzeDataDescriptionOutputFeatureNumeric where+           AnalyzeDataDescriptionOutputFeatureNumeric+         where         parseJSON           = withObject               "AnalyzeDataDescriptionOutputFeatureNumeric"@@ -1215,7 +1271,8 @@                      (o .:? "variance"))  instance ToJSON-         AnalyzeDataDescriptionOutputFeatureNumeric where+           AnalyzeDataDescriptionOutputFeatureNumeric+         where         toJSON           AnalyzeDataDescriptionOutputFeatureNumeric'{..}           = object@@ -1226,10 +1283,13 @@  -- -- /See:/ 'analyzeErrorsItem' smart constructor.-newtype AnalyzeErrorsItem = AnalyzeErrorsItem'+newtype AnalyzeErrorsItem =+  AnalyzeErrorsItem'     { _aeiAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeErrorsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1239,10 +1299,9 @@     :: HashMap Text Text -- ^ 'aeiAddtional'     -> AnalyzeErrorsItem analyzeErrorsItem pAeiAddtional_ =-    AnalyzeErrorsItem'-    { _aeiAddtional = _Coerce # pAeiAddtional_-    }+  AnalyzeErrorsItem' {_aeiAddtional = _Coerce # pAeiAddtional_} + -- | Error level followed by a detailed error message. aeiAddtional :: Lens' AnalyzeErrorsItem (HashMap Text Text) aeiAddtional@@ -1260,11 +1319,14 @@ -- | Description of the data the model was trained on. -- -- /See:/ 'analyzeDataDescription' smart constructor.-data AnalyzeDataDescription = AnalyzeDataDescription'+data AnalyzeDataDescription =+  AnalyzeDataDescription'     { _addOutputFeature :: !(Maybe AnalyzeDataDescriptionOutputFeature)     , _addFeatures      :: !(Maybe [AnalyzeDataDescriptionFeaturesItem])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeDataDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1275,11 +1337,9 @@ analyzeDataDescription     :: AnalyzeDataDescription analyzeDataDescription =-    AnalyzeDataDescription'-    { _addOutputFeature = Nothing-    , _addFeatures = Nothing-    }+  AnalyzeDataDescription' {_addOutputFeature = Nothing, _addFeatures = Nothing} + -- | Description of the output value or label. addOutputFeature :: Lens' AnalyzeDataDescription (Maybe AnalyzeDataDescriptionOutputFeature) addOutputFeature@@ -1311,12 +1371,15 @@ -- | Description of the model. -- -- /See:/ 'analyzeModelDescription' smart constructor.-data AnalyzeModelDescription = AnalyzeModelDescription'+data AnalyzeModelDescription =+  AnalyzeModelDescription'     { _amdConfusionMatrixRowTotals :: !(Maybe AnalyzeModelDescriptionConfusionMatrixRowTotals)     , _amdConfusionMatrix          :: !(Maybe AnalyzeModelDescriptionConfusionMatrix)     , _amdModelInfo                :: !(Maybe Insert2)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeModelDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1329,12 +1392,13 @@ analyzeModelDescription     :: AnalyzeModelDescription analyzeModelDescription =-    AnalyzeModelDescription'+  AnalyzeModelDescription'     { _amdConfusionMatrixRowTotals = Nothing     , _amdConfusionMatrix = Nothing     , _amdModelInfo = Nothing     } + -- | A list of the confusion matrix row totals. amdConfusionMatrixRowTotals :: Lens' AnalyzeModelDescription (Maybe AnalyzeModelDescriptionConfusionMatrixRowTotals) amdConfusionMatrixRowTotals@@ -1378,10 +1442,13 @@ -- | Description of multiple-word text values of this feature. -- -- /See:/ 'analyzeDataDescriptionFeaturesItemText' smart constructor.-newtype AnalyzeDataDescriptionFeaturesItemText = AnalyzeDataDescriptionFeaturesItemText'+newtype AnalyzeDataDescriptionFeaturesItemText =+  AnalyzeDataDescriptionFeaturesItemText'     { _addfitCount :: Maybe (Textual Int64)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeDataDescriptionFeaturesItemText' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1390,10 +1457,9 @@ analyzeDataDescriptionFeaturesItemText     :: AnalyzeDataDescriptionFeaturesItemText analyzeDataDescriptionFeaturesItemText =-    AnalyzeDataDescriptionFeaturesItemText'-    { _addfitCount = Nothing-    }+  AnalyzeDataDescriptionFeaturesItemText' {_addfitCount = Nothing} + -- | Number of multiple-word text values for this feature. addfitCount :: Lens' AnalyzeDataDescriptionFeaturesItemText (Maybe Int64) addfitCount@@ -1401,7 +1467,8 @@       mapping _Coerce  instance FromJSON-         AnalyzeDataDescriptionFeaturesItemText where+           AnalyzeDataDescriptionFeaturesItemText+         where         parseJSON           = withObject "AnalyzeDataDescriptionFeaturesItemText"               (\ o ->@@ -1409,17 +1476,21 @@                    (o .:? "count"))  instance ToJSON-         AnalyzeDataDescriptionFeaturesItemText where+           AnalyzeDataDescriptionFeaturesItemText+         where         toJSON AnalyzeDataDescriptionFeaturesItemText'{..}           = object (catMaybes [("count" .=) <$> _addfitCount])  -- | Confusion matrix information for the true class label. -- -- /See:/ 'analyzeModelDescriptionConfusionMatrixAdditional' smart constructor.-newtype AnalyzeModelDescriptionConfusionMatrixAdditional = AnalyzeModelDescriptionConfusionMatrixAdditional'+newtype AnalyzeModelDescriptionConfusionMatrixAdditional =+  AnalyzeModelDescriptionConfusionMatrixAdditional'     { _amdcmaAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeModelDescriptionConfusionMatrixAdditional' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1429,10 +1500,10 @@     :: HashMap Text Text -- ^ 'amdcmaAddtional'     -> AnalyzeModelDescriptionConfusionMatrixAdditional analyzeModelDescriptionConfusionMatrixAdditional pAmdcmaAddtional_ =-    AnalyzeModelDescriptionConfusionMatrixAdditional'-    { _amdcmaAddtional = _Coerce # pAmdcmaAddtional_-    }+  AnalyzeModelDescriptionConfusionMatrixAdditional'+    {_amdcmaAddtional = _Coerce # pAmdcmaAddtional_} + -- | Average number of times an instance with correct class label -- modelDescription.confusionMatrix.(key) was wrongfully classified as this -- label.@@ -1443,7 +1514,7 @@       . _Coerce  instance FromJSON-         AnalyzeModelDescriptionConfusionMatrixAdditional+           AnalyzeModelDescriptionConfusionMatrixAdditional          where         parseJSON           = withObject@@ -1453,19 +1524,22 @@                    (parseJSONObject o))  instance ToJSON-         AnalyzeModelDescriptionConfusionMatrixAdditional+           AnalyzeModelDescriptionConfusionMatrixAdditional          where         toJSON = toJSON . _amdcmaAddtional  -- -- /See:/ 'analyzeDataDescriptionFeaturesItem' smart constructor.-data AnalyzeDataDescriptionFeaturesItem = AnalyzeDataDescriptionFeaturesItem'+data AnalyzeDataDescriptionFeaturesItem =+  AnalyzeDataDescriptionFeaturesItem'     { _addfiText        :: !(Maybe AnalyzeDataDescriptionFeaturesItemText)     , _addfiNumeric     :: !(Maybe AnalyzeDataDescriptionFeaturesItemNumeric)     , _addfiIndex       :: !(Maybe (Textual Int64))     , _addfiCategorical :: !(Maybe AnalyzeDataDescriptionFeaturesItemCategorical)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeDataDescriptionFeaturesItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1480,13 +1554,14 @@ analyzeDataDescriptionFeaturesItem     :: AnalyzeDataDescriptionFeaturesItem analyzeDataDescriptionFeaturesItem =-    AnalyzeDataDescriptionFeaturesItem'+  AnalyzeDataDescriptionFeaturesItem'     { _addfiText = Nothing     , _addfiNumeric = Nothing     , _addfiIndex = Nothing     , _addfiCategorical = Nothing     } + -- | Description of multiple-word text values of this feature. addfiText :: Lens' AnalyzeDataDescriptionFeaturesItem (Maybe AnalyzeDataDescriptionFeaturesItemText) addfiText@@ -1531,11 +1606,14 @@  -- -- /See:/ 'update' smart constructor.-data Update = Update'+data Update =+  Update'     { _uCSVInstance :: !(Maybe [JSONValue])     , _uOutput      :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Update' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1545,12 +1623,9 @@ -- * 'uOutput' update     :: Update-update =-    Update'-    { _uCSVInstance = Nothing-    , _uOutput = Nothing-    }+update = Update' {_uCSVInstance = Nothing, _uOutput = Nothing} + -- | The input features for this instance. uCSVInstance :: Lens' Update [JSONValue] uCSVInstance@@ -1580,11 +1655,14 @@ -- | Description of the output value or label. -- -- /See:/ 'analyzeDataDescriptionOutputFeature' smart constructor.-data AnalyzeDataDescriptionOutputFeature = AnalyzeDataDescriptionOutputFeature'+data AnalyzeDataDescriptionOutputFeature =+  AnalyzeDataDescriptionOutputFeature'     { _addofText    :: !(Maybe [AnalyzeDataDescriptionOutputFeatureTextItem])     , _addofNumeric :: !(Maybe AnalyzeDataDescriptionOutputFeatureNumeric)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalyzeDataDescriptionOutputFeature' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1595,10 +1673,9 @@ analyzeDataDescriptionOutputFeature     :: AnalyzeDataDescriptionOutputFeature analyzeDataDescriptionOutputFeature =-    AnalyzeDataDescriptionOutputFeature'-    { _addofText = Nothing-    , _addofNumeric = Nothing-    }+  AnalyzeDataDescriptionOutputFeature'+    {_addofText = Nothing, _addofNumeric = Nothing}+  -- | Description of the output labels in the data set. addofText :: Lens' AnalyzeDataDescriptionOutputFeature [AnalyzeDataDescriptionOutputFeatureTextItem]
gen/Network/Google/Resource/Prediction/HostedModels/Predict.hs view
@@ -57,12 +57,15 @@ -- | Submit input and request an output against a hosted model. -- -- /See:/ 'hostedModelsPredict' smart constructor.-data HostedModelsPredict = HostedModelsPredict'+data HostedModelsPredict =+  HostedModelsPredict'     { _hmpProject         :: !Text     , _hmpPayload         :: !Input     , _hmpHostedModelName :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HostedModelsPredict' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +81,12 @@     -> Text -- ^ 'hmpHostedModelName'     -> HostedModelsPredict hostedModelsPredict pHmpProject_ pHmpPayload_ pHmpHostedModelName_ =-    HostedModelsPredict'+  HostedModelsPredict'     { _hmpProject = pHmpProject_     , _hmpPayload = pHmpPayload_     , _hmpHostedModelName = pHmpHostedModelName_     }+  -- | The project associated with the model. hmpProject :: Lens' HostedModelsPredict Text
gen/Network/Google/Resource/Prediction/TrainedModels/Analyze.hs view
@@ -55,11 +55,14 @@ -- | Get analysis of the model and the data the model was trained on. -- -- /See:/ 'trainedModelsAnalyze' smart constructor.-data TrainedModelsAnalyze = TrainedModelsAnalyze'+data TrainedModelsAnalyze =+  TrainedModelsAnalyze'     { _tmaProject :: !Text     , _tmaId      :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrainedModelsAnalyze' 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 @@     -> Text -- ^ 'tmaId'     -> TrainedModelsAnalyze trainedModelsAnalyze pTmaProject_ pTmaId_ =-    TrainedModelsAnalyze'-    { _tmaProject = pTmaProject_-    , _tmaId = pTmaId_-    }+  TrainedModelsAnalyze' {_tmaProject = pTmaProject_, _tmaId = pTmaId_}+  -- | The project associated with the model. tmaProject :: Lens' TrainedModelsAnalyze Text
gen/Network/Google/Resource/Prediction/TrainedModels/Delete.hs view
@@ -54,11 +54,14 @@ -- | Delete a trained model. -- -- /See:/ 'trainedModelsDelete' smart constructor.-data TrainedModelsDelete = TrainedModelsDelete'+data TrainedModelsDelete =+  TrainedModelsDelete'     { _tmdProject :: !Text     , _tmdId      :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrainedModelsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'tmdId'     -> TrainedModelsDelete trainedModelsDelete pTmdProject_ pTmdId_ =-    TrainedModelsDelete'-    { _tmdProject = pTmdProject_-    , _tmdId = pTmdId_-    }+  TrainedModelsDelete' {_tmdProject = pTmdProject_, _tmdId = pTmdId_}+  -- | The project associated with the model. tmdProject :: Lens' TrainedModelsDelete Text
gen/Network/Google/Resource/Prediction/TrainedModels/Get.hs view
@@ -54,11 +54,14 @@ -- | Check training status of your model. -- -- /See:/ 'trainedModelsGet' smart constructor.-data TrainedModelsGet = TrainedModelsGet'+data TrainedModelsGet =+  TrainedModelsGet'     { _tmgProject :: !Text     , _tmgId      :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrainedModelsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'tmgId'     -> TrainedModelsGet trainedModelsGet pTmgProject_ pTmgId_ =-    TrainedModelsGet'-    { _tmgProject = pTmgProject_-    , _tmgId = pTmgId_-    }+  TrainedModelsGet' {_tmgProject = pTmgProject_, _tmgId = pTmgId_}+  -- | The project associated with the model. tmgProject :: Lens' TrainedModelsGet Text
gen/Network/Google/Resource/Prediction/TrainedModels/Insert.hs view
@@ -54,11 +54,14 @@ -- | Train a Prediction API model. -- -- /See:/ 'trainedModelsInsert' smart constructor.-data TrainedModelsInsert = TrainedModelsInsert'+data TrainedModelsInsert =+  TrainedModelsInsert'     { _tmiProject :: !Text     , _tmiPayload :: !Insert-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrainedModelsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Insert -- ^ 'tmiPayload'     -> TrainedModelsInsert trainedModelsInsert pTmiProject_ pTmiPayload_ =-    TrainedModelsInsert'-    { _tmiProject = pTmiProject_-    , _tmiPayload = pTmiPayload_-    }+  TrainedModelsInsert' {_tmiProject = pTmiProject_, _tmiPayload = pTmiPayload_}+  -- | The project associated with the model. tmiProject :: Lens' TrainedModelsInsert Text
gen/Network/Google/Resource/Prediction/TrainedModels/List.hs view
@@ -57,12 +57,15 @@ -- | List available models. -- -- /See:/ 'trainedModelsList' smart constructor.-data TrainedModelsList = TrainedModelsList'+data TrainedModelsList =+  TrainedModelsList'     { _tmlProject    :: !Text     , _tmlPageToken  :: !(Maybe Text)     , _tmlMaxResults :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrainedModelsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,12 @@     :: Text -- ^ 'tmlProject'     -> TrainedModelsList trainedModelsList pTmlProject_ =-    TrainedModelsList'+  TrainedModelsList'     { _tmlProject = pTmlProject_     , _tmlPageToken = Nothing     , _tmlMaxResults = Nothing     }+  -- | The project associated with the model. tmlProject :: Lens' TrainedModelsList Text
gen/Network/Google/Resource/Prediction/TrainedModels/Predict.hs view
@@ -57,12 +57,15 @@ -- | Submit model id and request a prediction. -- -- /See:/ 'trainedModelsPredict' smart constructor.-data TrainedModelsPredict = TrainedModelsPredict'+data TrainedModelsPredict =+  TrainedModelsPredict'     { _tmpProject :: !Text     , _tmpPayload :: !Input     , _tmpId      :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrainedModelsPredict' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +81,9 @@     -> Text -- ^ 'tmpId'     -> TrainedModelsPredict trainedModelsPredict pTmpProject_ pTmpPayload_ pTmpId_ =-    TrainedModelsPredict'-    { _tmpProject = pTmpProject_-    , _tmpPayload = pTmpPayload_-    , _tmpId = pTmpId_-    }+  TrainedModelsPredict'+    {_tmpProject = pTmpProject_, _tmpPayload = pTmpPayload_, _tmpId = pTmpId_}+  -- | The project associated with the model. tmpProject :: Lens' TrainedModelsPredict Text
gen/Network/Google/Resource/Prediction/TrainedModels/Update.hs view
@@ -56,12 +56,15 @@ -- | Add new data to a trained model. -- -- /See:/ 'trainedModelsUpdate' smart constructor.-data TrainedModelsUpdate = TrainedModelsUpdate'+data TrainedModelsUpdate =+  TrainedModelsUpdate'     { _tmuProject :: !Text     , _tmuPayload :: !Update     , _tmuId      :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrainedModelsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,11 +80,9 @@     -> Text -- ^ 'tmuId'     -> TrainedModelsUpdate trainedModelsUpdate pTmuProject_ pTmuPayload_ pTmuId_ =-    TrainedModelsUpdate'-    { _tmuProject = pTmuProject_-    , _tmuPayload = pTmuPayload_-    , _tmuId = pTmuId_-    }+  TrainedModelsUpdate'+    {_tmuProject = pTmuProject_, _tmuPayload = pTmuPayload_, _tmuId = pTmuId_}+  -- | The project associated with the model. tmuProject :: Lens' TrainedModelsUpdate Text
gogol-prediction.cabal view
@@ -1,5 +1,5 @@ name:                  gogol-prediction-version:               0.4.0+version:               0.5.0 synopsis:              Google Prediction SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -50,5 +50,5 @@         , Network.Google.Prediction.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5