diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/FirebaseRemoteConfig/Types/Product.hs b/gen/Network/Google/FirebaseRemoteConfig/Types/Product.hs --- a/gen/Network/Google/FirebaseRemoteConfig/Types/Product.hs +++ b/gen/Network/Google/FirebaseRemoteConfig/Types/Product.hs @@ -28,11 +28,14 @@ -- boolean instead of the string) it should always be 'true'. -- -- /See:/ 'remoteConfigParameterValue' smart constructor. -data RemoteConfigParameterValue = RemoteConfigParameterValue' +data RemoteConfigParameterValue = + RemoteConfigParameterValue' { _rcpvValue :: !(Maybe Text) , _rcpvUseInAppDefault :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoteConfigParameterValue' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -43,11 +46,10 @@ remoteConfigParameterValue :: RemoteConfigParameterValue remoteConfigParameterValue = - RemoteConfigParameterValue' - { _rcpvValue = Nothing - , _rcpvUseInAppDefault = Nothing - } + RemoteConfigParameterValue' + {_rcpvValue = Nothing, _rcpvUseInAppDefault = Nothing} + -- | the string to set the parameter to rcpvValue :: Lens' RemoteConfigParameterValue (Maybe Text) rcpvValue @@ -78,10 +80,13 @@ -- determines the value of this parameter. -- -- /See:/ 'remoteConfigParameterConditionalValues' smart constructor. -newtype RemoteConfigParameterConditionalValues = RemoteConfigParameterConditionalValues' +newtype RemoteConfigParameterConditionalValues = + RemoteConfigParameterConditionalValues' { _rcpcvAddtional :: HashMap Text RemoteConfigParameterValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoteConfigParameterConditionalValues' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -91,10 +96,10 @@ :: HashMap Text RemoteConfigParameterValue -- ^ 'rcpcvAddtional' -> RemoteConfigParameterConditionalValues remoteConfigParameterConditionalValues pRcpcvAddtional_ = - RemoteConfigParameterConditionalValues' - { _rcpcvAddtional = _Coerce # pRcpcvAddtional_ - } + RemoteConfigParameterConditionalValues' + {_rcpcvAddtional = _Coerce # pRcpcvAddtional_} + rcpcvAddtional :: Lens' RemoteConfigParameterConditionalValues (HashMap Text RemoteConfigParameterValue) rcpcvAddtional = lens _rcpcvAddtional @@ -102,7 +107,8 @@ . _Coerce instance FromJSON - RemoteConfigParameterConditionalValues where + RemoteConfigParameterConditionalValues + where parseJSON = withObject "RemoteConfigParameterConditionalValues" (\ o -> @@ -110,7 +116,8 @@ (parseJSONObject o)) instance ToJSON - RemoteConfigParameterConditionalValues where + RemoteConfigParameterConditionalValues + where toJSON = toJSON . _rcpcvAddtional -- | Map of parameter keys to their optional default values and optional @@ -119,10 +126,13 @@ -- unique. -- -- /See:/ 'remoteConfigParameters' smart constructor. -newtype RemoteConfigParameters = RemoteConfigParameters' +newtype RemoteConfigParameters = + RemoteConfigParameters' { _rcpAddtional :: HashMap Text RemoteConfigParameter - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoteConfigParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -132,10 +142,9 @@ :: HashMap Text RemoteConfigParameter -- ^ 'rcpAddtional' -> RemoteConfigParameters remoteConfigParameters pRcpAddtional_ = - RemoteConfigParameters' - { _rcpAddtional = _Coerce # pRcpAddtional_ - } + RemoteConfigParameters' {_rcpAddtional = _Coerce # pRcpAddtional_} + rcpAddtional :: Lens' RemoteConfigParameters (HashMap Text RemoteConfigParameter) rcpAddtional = lens _rcpAddtional (\ s a -> s{_rcpAddtional = a}) @@ -155,12 +164,15 @@ -- (and an exception will be thrown by the validation logic). -- -- /See:/ 'remoteConfigParameter' smart constructor. -data RemoteConfigParameter = RemoteConfigParameter' +data RemoteConfigParameter = + RemoteConfigParameter' { _rcpDefaultValue :: !(Maybe RemoteConfigParameterValue) , _rcpDescription :: !(Maybe Text) , _rcpConditionalValues :: !(Maybe RemoteConfigParameterConditionalValues) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoteConfigParameter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -173,12 +185,13 @@ remoteConfigParameter :: RemoteConfigParameter remoteConfigParameter = - RemoteConfigParameter' + RemoteConfigParameter' { _rcpDefaultValue = Nothing , _rcpDescription = Nothing , _rcpConditionalValues = Nothing } + -- | Optional - value to set the parameter to, when none of the named -- conditions evaluate to 'true'. rcpDefaultValue :: Lens' RemoteConfigParameter (Maybe RemoteConfigParameterValue) @@ -224,13 +237,16 @@ -- are part of a single RemoteConfig template. -- -- /See:/ 'remoteConfigCondition' smart constructor. -data RemoteConfigCondition = RemoteConfigCondition' +data RemoteConfigCondition = + RemoteConfigCondition' { _rccTagColor :: !(Maybe RemoteConfigConditionTagColor) , _rccName :: !(Maybe Text) , _rccExpression :: !(Maybe Text) , _rccDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoteConfigCondition' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -245,13 +261,14 @@ remoteConfigCondition :: RemoteConfigCondition remoteConfigCondition = - RemoteConfigCondition' + RemoteConfigCondition' { _rccTagColor = Nothing , _rccName = Nothing , _rccExpression = Nothing , _rccDescription = Nothing } + -- | Optional. The display (tag) color of this condition. This serves as part -- of a tag (in the future, we may add tag text as well as tag color, but -- that is not yet implemented in the UI). This value has no affect on the @@ -310,11 +327,14 @@ -- condition is true). -- -- /See:/ 'remoteConfig' smart constructor. -data RemoteConfig = RemoteConfig' +data RemoteConfig = + RemoteConfig' { _rcParameters :: !(Maybe RemoteConfigParameters) , _rcConditions :: !(Maybe [RemoteConfigCondition]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoteConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -324,11 +344,8 @@ -- * 'rcConditions' remoteConfig :: RemoteConfig -remoteConfig = - RemoteConfig' - { _rcParameters = Nothing - , _rcConditions = Nothing - } +remoteConfig = RemoteConfig' {_rcParameters = Nothing, _rcConditions = Nothing} + -- | Map of parameter keys to their optional default values and optional -- submap of (condition name : value). Order doesn\'t affect semantics, and diff --git a/gen/Network/Google/Resource/FirebaseRemoteConfig/Projects/GetRemoteConfig.hs b/gen/Network/Google/Resource/FirebaseRemoteConfig/Projects/GetRemoteConfig.hs --- a/gen/Network/Google/Resource/FirebaseRemoteConfig/Projects/GetRemoteConfig.hs +++ b/gen/Network/Google/Resource/FirebaseRemoteConfig/Projects/GetRemoteConfig.hs @@ -66,7 +66,8 @@ -- RemoteConfig as the payload, and also the eTag as a response header. -- -- /See:/ 'projectsGetRemoteConfig' smart constructor. -data ProjectsGetRemoteConfig = ProjectsGetRemoteConfig' +data ProjectsGetRemoteConfig = + ProjectsGetRemoteConfig' { _pgrcXgafv :: !(Maybe Xgafv) , _pgrcUploadProtocol :: !(Maybe Text) , _pgrcProject :: !Text @@ -75,8 +76,10 @@ , _pgrcUploadType :: !(Maybe Text) , _pgrcBearerToken :: !(Maybe Text) , _pgrcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsGetRemoteConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ :: Text -- ^ 'pgrcProject' -> ProjectsGetRemoteConfig projectsGetRemoteConfig pPgrcProject_ = - ProjectsGetRemoteConfig' + ProjectsGetRemoteConfig' { _pgrcXgafv = Nothing , _pgrcUploadProtocol = Nothing , _pgrcProject = pPgrcProject_ @@ -110,6 +113,7 @@ , _pgrcBearerToken = Nothing , _pgrcCallback = Nothing } + -- | V1 error format. pgrcXgafv :: Lens' ProjectsGetRemoteConfig (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRemoteConfig/Projects/UpdateRemoteConfig.hs b/gen/Network/Google/Resource/FirebaseRemoteConfig/Projects/UpdateRemoteConfig.hs --- a/gen/Network/Google/Resource/FirebaseRemoteConfig/Projects/UpdateRemoteConfig.hs +++ b/gen/Network/Google/Resource/FirebaseRemoteConfig/Projects/UpdateRemoteConfig.hs @@ -97,7 +97,8 @@ -- error (HTTP status 500) for Database problems or other internal errors. -- -- /See:/ 'projectsUpdateRemoteConfig' smart constructor. -data ProjectsUpdateRemoteConfig = ProjectsUpdateRemoteConfig' +data ProjectsUpdateRemoteConfig = + ProjectsUpdateRemoteConfig' { _purcXgafv :: !(Maybe Xgafv) , _purcValidateOnly :: !(Maybe Bool) , _purcUploadProtocol :: !(Maybe Text) @@ -108,8 +109,10 @@ , _purcPayload :: !RemoteConfig , _purcBearerToken :: !(Maybe Text) , _purcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsUpdateRemoteConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -138,7 +141,7 @@ -> RemoteConfig -- ^ 'purcPayload' -> ProjectsUpdateRemoteConfig projectsUpdateRemoteConfig pPurcProject_ pPurcPayload_ = - ProjectsUpdateRemoteConfig' + ProjectsUpdateRemoteConfig' { _purcXgafv = Nothing , _purcValidateOnly = Nothing , _purcUploadProtocol = Nothing @@ -150,6 +153,7 @@ , _purcBearerToken = Nothing , _purcCallback = Nothing } + -- | V1 error format. purcXgafv :: Lens' ProjectsUpdateRemoteConfig (Maybe Xgafv) diff --git a/gogol-firebaseremoteconfig.cabal b/gogol-firebaseremoteconfig.cabal --- a/gogol-firebaseremoteconfig.cabal +++ b/gogol-firebaseremoteconfig.cabal @@ -1,5 +1,5 @@ name: gogol-firebaseremoteconfig -version: 0.4.0 +version: 0.5.0 synopsis: Google Firebase Remote Config SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -44,5 +44,5 @@ , Network.Google.FirebaseRemoteConfig.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5