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/FirebaseRules/Types.hs b/gen/Network/Google/FirebaseRules/Types.hs --- a/gen/Network/Google/FirebaseRules/Types.hs +++ b/gen/Network/Google/FirebaseRules/Types.hs @@ -193,12 +193,12 @@ -- | View and administer all your Firebase data and settings firebaseScope :: Proxy '["https://www.googleapis.com/auth/firebase"] -firebaseScope = Proxy; +firebaseScope = Proxy -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] -cloudPlatformScope = Proxy; +cloudPlatformScope = Proxy -- | View all your Firebase data and settings firebaseReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/firebase.readonly"] -firebaseReadOnlyScope = Proxy; +firebaseReadOnlyScope = Proxy diff --git a/gen/Network/Google/FirebaseRules/Types/Product.hs b/gen/Network/Google/FirebaseRules/Types/Product.hs --- a/gen/Network/Google/FirebaseRules/Types/Product.hs +++ b/gen/Network/Google/FirebaseRules/Types/Product.hs @@ -25,12 +25,15 @@ -- purposes. -- -- /See:/ 'sourcePosition' smart constructor. -data SourcePosition = SourcePosition' +data SourcePosition = + SourcePosition' { _spLine :: !(Maybe (Textual Int32)) , _spColumn :: !(Maybe (Textual Int32)) , _spFileName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SourcePosition' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -43,12 +46,10 @@ sourcePosition :: SourcePosition sourcePosition = - SourcePosition' - { _spLine = Nothing - , _spColumn = Nothing - , _spFileName = Nothing - } + SourcePosition' + {_spLine = Nothing, _spColumn = Nothing, _spFileName = Nothing} + -- | Line number of the source fragment. 1-based. spLine :: Lens' SourcePosition (Maybe Int32) spLine @@ -91,13 +92,16 @@ -- the request is executed. -- -- /See:/ 'testCase' smart constructor. -data TestCase = TestCase' +data TestCase = + TestCase' { _tcResource :: !(Maybe JSONValue) , _tcExpectation :: !(Maybe TestCaseExpectation) , _tcFunctionMocks :: !(Maybe [FunctionMock]) , _tcRequest :: !(Maybe JSONValue) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestCase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -112,13 +116,14 @@ testCase :: TestCase testCase = - TestCase' + TestCase' { _tcResource = Nothing , _tcExpectation = Nothing , _tcFunctionMocks = Nothing , _tcRequest = Nothing } + -- | Optional resource value as it appears in persistent storage before the -- request is fulfilled. The resource type depends on the \`request.path\` -- value. @@ -177,11 +182,14 @@ -- rules. -- -- /See:/ 'visitedExpression' smart constructor. -data VisitedExpression = VisitedExpression' +data VisitedExpression = + VisitedExpression' { _veSourcePosition :: !(Maybe SourcePosition) , _veValue :: !(Maybe JSONValue) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'VisitedExpression' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -192,11 +200,9 @@ visitedExpression :: VisitedExpression visitedExpression = - VisitedExpression' - { _veSourcePosition = Nothing - , _veValue = Nothing - } + VisitedExpression' {_veSourcePosition = Nothing, _veValue = Nothing} + -- | Position in the \`Source\` or \`Ruleset\` where an expression was -- visited. veSourcePosition :: Lens' VisitedExpression (Maybe SourcePosition) @@ -230,15 +236,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty = - Empty' - deriving (Eq,Show,Data,Typeable,Generic) + Empty' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Empty' with the minimum fields required to make a request. -- empty :: Empty empty = Empty' + instance FromJSON Empty where parseJSON = withObject "Empty" (\ o -> pure Empty') @@ -255,12 +263,15 @@ -- are \`Arg.any_value\`. -- -- /See:/ 'functionMock' smart constructor. -data FunctionMock = FunctionMock' +data FunctionMock = + FunctionMock' { _fmArgs :: !(Maybe [Arg]) , _fmFunction :: !(Maybe Text) , _fmResult :: !(Maybe Result) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FunctionMock' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -273,12 +284,9 @@ functionMock :: FunctionMock functionMock = - FunctionMock' - { _fmArgs = Nothing - , _fmFunction = Nothing - , _fmResult = Nothing - } + FunctionMock' {_fmArgs = Nothing, _fmFunction = Nothing, _fmResult = Nothing} + -- | The list of \`Arg\` values to match. The order in which the arguments -- are provided is the order in which they must appear in the function -- invocation. @@ -317,11 +325,14 @@ -- execution. -- -- /See:/ 'functionCall' smart constructor. -data FunctionCall = FunctionCall' +data FunctionCall = + FunctionCall' { _fcArgs :: !(Maybe [JSONValue]) , _fcFunction :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FunctionCall' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -331,12 +342,9 @@ -- * 'fcFunction' functionCall :: FunctionCall -functionCall = - FunctionCall' - { _fcArgs = Nothing - , _fcFunction = Nothing - } +functionCall = FunctionCall' {_fcArgs = Nothing, _fcFunction = Nothing} + -- | The arguments that were provided to the function. fcArgs :: Lens' FunctionCall [JSONValue] fcArgs @@ -365,11 +373,14 @@ -- | The response for FirebaseRulesService.ListReleases. -- -- /See:/ 'listReleasesResponse' smart constructor. -data ListReleasesResponse = ListReleasesResponse' +data ListReleasesResponse = + ListReleasesResponse' { _lrrNextPageToken :: !(Maybe Text) , _lrrReleases :: !(Maybe [Release]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListReleasesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -380,11 +391,9 @@ listReleasesResponse :: ListReleasesResponse listReleasesResponse = - ListReleasesResponse' - { _lrrNextPageToken = Nothing - , _lrrReleases = Nothing - } + ListReleasesResponse' {_lrrNextPageToken = Nothing, _lrrReleases = Nothing} + -- | The pagination token to retrieve the next page of results. If the value -- is empty, no further results remain. lrrNextPageToken :: Lens' ListReleasesResponse (Maybe Text) @@ -417,11 +426,14 @@ -- | Possible result values from the function mock invocation. -- -- /See:/ 'result' smart constructor. -data Result = Result' +data Result = + Result' { _rValue :: !(Maybe JSONValue) , _rUndefined :: !(Maybe Empty) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Result' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -431,12 +443,9 @@ -- * 'rUndefined' result :: Result -result = - Result' - { _rValue = Nothing - , _rUndefined = Nothing - } +result = Result' {_rValue = Nothing, _rUndefined = Nothing} + -- | The result is an actual value. The type of the value must match that of -- the type declared by the service. rValue :: Lens' Result (Maybe JSONValue) @@ -463,11 +472,14 @@ -- | The response for FirebaseRulesService.TestRuleset. -- -- /See:/ 'testRulesetResponse' smart constructor. -data TestRulesetResponse = TestRulesetResponse' +data TestRulesetResponse = + TestRulesetResponse' { _trrTestResults :: !(Maybe [TestResult]) , _trrIssues :: !(Maybe [Issue]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestRulesetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -478,11 +490,9 @@ testRulesetResponse :: TestRulesetResponse testRulesetResponse = - TestRulesetResponse' - { _trrTestResults = Nothing - , _trrIssues = Nothing - } + TestRulesetResponse' {_trrTestResults = Nothing, _trrIssues = Nothing} + -- | The set of test results given the test cases in the \`TestSuite\`. The -- results will appear in the same order as the test cases appear in the -- \`TestSuite\`. @@ -521,13 +531,16 @@ -- the \`Ruleset\`. -- -- /See:/ 'release' smart constructor. -data Release = Release' +data Release = + Release' { _rRulesetName :: !(Maybe Text) , _rUpdateTime :: !(Maybe DateTime') , _rName :: !(Maybe Text) , _rCreateTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Release' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -542,13 +555,14 @@ release :: Release release = - Release' + Release' { _rRulesetName = Nothing , _rUpdateTime = Nothing , _rName = Nothing , _rCreateTime = Nothing } + -- | Name of the \`Ruleset\` referred to by this \`Release\`. The \`Ruleset\` -- must exist the \`Release\` to be created. rRulesetName :: Lens' Release (Maybe Text) @@ -608,11 +622,14 @@ -- | Arg matchers for the mock function. -- -- /See:/ 'arg' smart constructor. -data Arg = Arg' +data Arg = + Arg' { _aAnyValue :: !(Maybe Empty) , _aExactValue :: !(Maybe JSONValue) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Arg' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -622,12 +639,9 @@ -- * 'aExactValue' arg :: Arg -arg = - Arg' - { _aAnyValue = Nothing - , _aExactValue = Nothing - } +arg = Arg' {_aAnyValue = Nothing, _aExactValue = Nothing} + -- | Argument matches any value provided. aAnyValue :: Lens' Arg (Maybe Empty) aAnyValue @@ -655,12 +669,15 @@ -- identifier and a creation time. -- -- /See:/ 'ruleset' smart constructor. -data Ruleset = Ruleset' +data Ruleset = + Ruleset' { _rulName :: !(Maybe Text) , _rulSource :: !(Maybe Source) , _rulCreateTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Ruleset' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -673,12 +690,9 @@ ruleset :: Ruleset ruleset = - Ruleset' - { _rulName = Nothing - , _rulSource = Nothing - , _rulCreateTime = Nothing - } + Ruleset' {_rulName = Nothing, _rulSource = Nothing, _rulCreateTime = Nothing} + -- | Name of the \`Ruleset\`. The ruleset_id is auto generated by the -- service. Format: \`projects\/{project_id}\/rulesets\/{ruleset_id}\` -- Output only. @@ -716,15 +730,18 @@ -- | The response for FirebaseRulesService.GetReleaseExecutable -- -- /See:/ 'getReleaseExecutableResponse' smart constructor. -data GetReleaseExecutableResponse = GetReleaseExecutableResponse' +data GetReleaseExecutableResponse = + GetReleaseExecutableResponse' { _grerExecutable :: !(Maybe Bytes) , _grerRulesetName :: !(Maybe Text) , _grerUpdateTime :: !(Maybe DateTime') , _grerSyncTime :: !(Maybe DateTime') , _grerExecutableVersion :: !(Maybe GetReleaseExecutableResponseExecutableVersion) , _grerLanguage :: !(Maybe GetReleaseExecutableResponseLanguage) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetReleaseExecutableResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -743,7 +760,7 @@ getReleaseExecutableResponse :: GetReleaseExecutableResponse getReleaseExecutableResponse = - GetReleaseExecutableResponse' + GetReleaseExecutableResponse' { _grerExecutable = Nothing , _grerRulesetName = Nothing , _grerUpdateTime = Nothing @@ -752,6 +769,7 @@ , _grerLanguage = Nothing } + -- | Executable view of the \`Ruleset\` referenced by the \`Release\`. grerExecutable :: Lens' GetReleaseExecutableResponse (Maybe ByteString) grerExecutable @@ -817,14 +835,17 @@ -- description and source position for test failures. -- -- /See:/ 'testResult' smart constructor. -data TestResult = TestResult' +data TestResult = + TestResult' { _trState :: !(Maybe TestResultState) , _trFunctionCalls :: !(Maybe [FunctionCall]) , _trVisitedExpressions :: !(Maybe [VisitedExpression]) , _trErrorPosition :: !(Maybe SourcePosition) , _trDebugMessages :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestResult' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -841,7 +862,7 @@ testResult :: TestResult testResult = - TestResult' + TestResult' { _trState = Nothing , _trFunctionCalls = Nothing , _trVisitedExpressions = Nothing @@ -849,6 +870,7 @@ , _trDebugMessages = Nothing } + -- | State of the test. trState :: Lens' TestResult (Maybe TestResultState) trState = lens _trState (\ s a -> s{_trState = a}) @@ -864,8 +886,11 @@ . _Default . _Coerce --- | The set of visited expressions for a given test. This returns positions --- and evaluation results of all visited expressions. +-- | The set of visited permission expressions for a given test. This returns +-- the positions and evaluation results of all visited permission +-- expressions which were relevant to the test case, e.g. \`\`\` match +-- \/path { allow read if: } \`\`\` For a detailed report of the +-- intermediate evaluation states, see the \`expression_reports\` field trVisitedExpressions :: Lens' TestResult [VisitedExpression] trVisitedExpressions = lens _trVisitedExpressions @@ -921,10 +946,13 @@ -- rules. -- -- /See:/ 'source' smart constructor. -newtype Source = Source' +newtype Source = + Source' { _sFiles :: Maybe [File] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Source' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -932,11 +960,9 @@ -- * 'sFiles' source :: Source -source = - Source' - { _sFiles = Nothing - } +source = Source' {_sFiles = Nothing} + -- | \`File\` set constituting the \`Source\` bundle. sFiles :: Lens' Source [File] sFiles @@ -958,10 +984,13 @@ -- \`Release\` object as a pre-release check. -- -- /See:/ 'testSuite' smart constructor. -newtype TestSuite = TestSuite' +newtype TestSuite = + TestSuite' { _tsTestCases :: Maybe [TestCase] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestSuite' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -969,11 +998,9 @@ -- * 'tsTestCases' testSuite :: TestSuite -testSuite = - TestSuite' - { _tsTestCases = Nothing - } +testSuite = TestSuite' {_tsTestCases = Nothing} + -- | Collection of test cases associated with the \`TestSuite\`. tsTestCases :: Lens' TestSuite [TestCase] tsTestCases @@ -995,11 +1022,14 @@ -- | The request for FirebaseRulesService.TestRuleset. -- -- /See:/ 'testRulesetRequest' smart constructor. -data TestRulesetRequest = TestRulesetRequest' +data TestRulesetRequest = + TestRulesetRequest' { _trrSource :: !(Maybe Source) , _trrTestSuite :: !(Maybe TestSuite) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestRulesetRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1010,11 +1040,9 @@ testRulesetRequest :: TestRulesetRequest testRulesetRequest = - TestRulesetRequest' - { _trrSource = Nothing - , _trrTestSuite = Nothing - } + TestRulesetRequest' {_trrSource = Nothing, _trrTestSuite = Nothing} + -- | Optional \`Source\` to be checked for correctness. This field must not -- be set when the resource name refers to a \`Ruleset\`. trrSource :: Lens' TestRulesetRequest (Maybe Source) @@ -1043,12 +1071,15 @@ -- | \`File\` containing source content. -- -- /See:/ 'file' smart constructor. -data File = File' +data File = + File' { _fFingerprint :: !(Maybe Bytes) , _fContent :: !(Maybe Text) , _fName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'File' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1060,13 +1091,9 @@ -- * 'fName' file :: File -file = - File' - { _fFingerprint = Nothing - , _fContent = Nothing - , _fName = Nothing - } +file = File' {_fFingerprint = Nothing, _fContent = Nothing, _fName = Nothing} + -- | Fingerprint (e.g. github sha) associated with the \`File\`. fFingerprint :: Lens' File (Maybe ByteString) fFingerprint @@ -1100,11 +1127,14 @@ -- | The response for FirebaseRulesService.ListRulesets. -- -- /See:/ 'listRulesetsResponse' smart constructor. -data ListRulesetsResponse = ListRulesetsResponse' +data ListRulesetsResponse = + ListRulesetsResponse' { _lRulesets :: !(Maybe [Ruleset]) , _lNextPageToken :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListRulesetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1115,11 +1145,9 @@ listRulesetsResponse :: ListRulesetsResponse listRulesetsResponse = - ListRulesetsResponse' - { _lRulesets = Nothing - , _lNextPageToken = Nothing - } + ListRulesetsResponse' {_lRulesets = Nothing, _lNextPageToken = Nothing} + -- | List of \`Ruleset\` instances. lRulesets :: Lens' ListRulesetsResponse [Ruleset] lRulesets @@ -1152,12 +1180,15 @@ -- | Issues include warnings, errors, and deprecation notices. -- -- /See:/ 'issue' smart constructor. -data Issue = Issue' +data Issue = + Issue' { _iSourcePosition :: !(Maybe SourcePosition) , _iSeverity :: !(Maybe IssueSeverity) , _iDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Issue' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1170,12 +1201,10 @@ issue :: Issue issue = - Issue' - { _iSourcePosition = Nothing - , _iSeverity = Nothing - , _iDescription = Nothing - } + Issue' + {_iSourcePosition = Nothing, _iSeverity = Nothing, _iDescription = Nothing} + -- | Position of the issue in the \`Source\`. iSourcePosition :: Lens' Issue (Maybe SourcePosition) iSourcePosition @@ -1211,11 +1240,14 @@ -- | The request for FirebaseRulesService.UpdateReleasePatch. -- -- /See:/ 'updateReleaseRequest' smart constructor. -data UpdateReleaseRequest = UpdateReleaseRequest' +data UpdateReleaseRequest = + UpdateReleaseRequest' { _urrUpdateMask :: !(Maybe GFieldMask) , _urrRelease :: !(Maybe Release) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateReleaseRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1226,10 +1258,8 @@ updateReleaseRequest :: UpdateReleaseRequest updateReleaseRequest = - UpdateReleaseRequest' - { _urrUpdateMask = Nothing - , _urrRelease = Nothing - } + UpdateReleaseRequest' {_urrUpdateMask = Nothing, _urrRelease = Nothing} + -- | Specifies which fields to update. urrUpdateMask :: Lens' UpdateReleaseRequest (Maybe GFieldMask) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Create.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Create.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Create.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Create.hs @@ -92,7 +92,8 @@ -- a \`Release\` may be updated using the UpdateRelease method. -- -- /See:/ 'projectsReleasesCreate' smart constructor. -data ProjectsReleasesCreate = ProjectsReleasesCreate' +data ProjectsReleasesCreate = + ProjectsReleasesCreate' { _prcrXgafv :: !(Maybe Xgafv) , _prcrUploadProtocol :: !(Maybe Text) , _prcrAccessToken :: !(Maybe Text) @@ -100,8 +101,10 @@ , _prcrPayload :: !Release , _prcrName :: !Text , _prcrCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsReleasesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -124,7 +127,7 @@ -> Text -- ^ 'prcrName' -> ProjectsReleasesCreate projectsReleasesCreate pPrcrPayload_ pPrcrName_ = - ProjectsReleasesCreate' + ProjectsReleasesCreate' { _prcrXgafv = Nothing , _prcrUploadProtocol = Nothing , _prcrAccessToken = Nothing @@ -133,6 +136,7 @@ , _prcrName = pPrcrName_ , _prcrCallback = Nothing } + -- | V1 error format. prcrXgafv :: Lens' ProjectsReleasesCreate (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Delete.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Delete.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Delete.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Delete.hs @@ -59,15 +59,18 @@ -- | Delete a \`Release\` by resource name. -- -- /See:/ 'projectsReleasesDelete' smart constructor. -data ProjectsReleasesDelete = ProjectsReleasesDelete' +data ProjectsReleasesDelete = + ProjectsReleasesDelete' { _prdXgafv :: !(Maybe Xgafv) , _prdUploadProtocol :: !(Maybe Text) , _prdAccessToken :: !(Maybe Text) , _prdUploadType :: !(Maybe Text) , _prdName :: !Text , _prdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsReleasesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'prdName' -> ProjectsReleasesDelete projectsReleasesDelete pPrdName_ = - ProjectsReleasesDelete' + ProjectsReleasesDelete' { _prdXgafv = Nothing , _prdUploadProtocol = Nothing , _prdAccessToken = Nothing @@ -95,6 +98,7 @@ , _prdName = pPrdName_ , _prdCallback = Nothing } + -- | V1 error format. prdXgafv :: Lens' ProjectsReleasesDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Get.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Get.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Get.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Get.hs @@ -59,15 +59,18 @@ -- | Get a \`Release\` by name. -- -- /See:/ 'projectsReleasesGet' smart constructor. -data ProjectsReleasesGet = ProjectsReleasesGet' +data ProjectsReleasesGet = + ProjectsReleasesGet' { _pXgafv :: !(Maybe Xgafv) , _pUploadProtocol :: !(Maybe Text) , _pAccessToken :: !(Maybe Text) , _pUploadType :: !(Maybe Text) , _pName :: !Text , _pCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsReleasesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'pName' -> ProjectsReleasesGet projectsReleasesGet pPName_ = - ProjectsReleasesGet' + ProjectsReleasesGet' { _pXgafv = Nothing , _pUploadProtocol = Nothing , _pAccessToken = Nothing @@ -95,6 +98,7 @@ , _pName = pPName_ , _pCallback = Nothing } + -- | V1 error format. pXgafv :: Lens' ProjectsReleasesGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/GetExecutable.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/GetExecutable.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/GetExecutable.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/GetExecutable.hs @@ -62,7 +62,8 @@ -- | Get the \`Release\` executable to use when enforcing rules. -- -- /See:/ 'projectsReleasesGetExecutable' smart constructor. -data ProjectsReleasesGetExecutable = ProjectsReleasesGetExecutable' +data ProjectsReleasesGetExecutable = + ProjectsReleasesGetExecutable' { _prgeXgafv :: !(Maybe Xgafv) , _prgeUploadProtocol :: !(Maybe Text) , _prgeAccessToken :: !(Maybe Text) @@ -70,8 +71,10 @@ , _prgeName :: !Text , _prgeExecutableVersion :: !(Maybe Text) , _prgeCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsReleasesGetExecutable' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ :: Text -- ^ 'prgeName' -> ProjectsReleasesGetExecutable projectsReleasesGetExecutable pPrgeName_ = - ProjectsReleasesGetExecutable' + ProjectsReleasesGetExecutable' { _prgeXgafv = Nothing , _prgeUploadProtocol = Nothing , _prgeAccessToken = Nothing @@ -102,6 +105,7 @@ , _prgeExecutableVersion = Nothing , _prgeCallback = Nothing } + -- | V1 error format. prgeXgafv :: Lens' ProjectsReleasesGetExecutable (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/List.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/List.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/List.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/List.hs @@ -71,7 +71,8 @@ -- any combination thereof. -- -- /See:/ 'projectsReleasesList' smart constructor. -data ProjectsReleasesList = ProjectsReleasesList' +data ProjectsReleasesList = + ProjectsReleasesList' { _prlrXgafv :: !(Maybe Xgafv) , _prlrUploadProtocol :: !(Maybe Text) , _prlrAccessToken :: !(Maybe Text) @@ -81,8 +82,10 @@ , _prlrPageToken :: !(Maybe Text) , _prlrPageSize :: !(Maybe (Textual Int32)) , _prlrCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsReleasesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -108,7 +111,7 @@ :: Text -- ^ 'prlrName' -> ProjectsReleasesList projectsReleasesList pPrlrName_ = - ProjectsReleasesList' + ProjectsReleasesList' { _prlrXgafv = Nothing , _prlrUploadProtocol = Nothing , _prlrAccessToken = Nothing @@ -119,6 +122,7 @@ , _prlrPageSize = Nothing , _prlrCallback = Nothing } + -- | V1 error format. prlrXgafv :: Lens' ProjectsReleasesList (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Patch.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Patch.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Patch.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Patch.hs @@ -66,7 +66,8 @@ -- supported. To create a \`Release\` use the CreateRelease method. -- -- /See:/ 'projectsReleasesPatch' smart constructor. -data ProjectsReleasesPatch = ProjectsReleasesPatch' +data ProjectsReleasesPatch = + ProjectsReleasesPatch' { _prpXgafv :: !(Maybe Xgafv) , _prpUploadProtocol :: !(Maybe Text) , _prpAccessToken :: !(Maybe Text) @@ -74,8 +75,10 @@ , _prpPayload :: !UpdateReleaseRequest , _prpName :: !Text , _prpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsReleasesPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,7 +101,7 @@ -> Text -- ^ 'prpName' -> ProjectsReleasesPatch projectsReleasesPatch pPrpPayload_ pPrpName_ = - ProjectsReleasesPatch' + ProjectsReleasesPatch' { _prpXgafv = Nothing , _prpUploadProtocol = Nothing , _prpAccessToken = Nothing @@ -107,6 +110,7 @@ , _prpName = pPrpName_ , _prpCallback = Nothing } + -- | V1 error format. prpXgafv :: Lens' ProjectsReleasesPatch (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Create.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Create.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Create.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Create.hs @@ -70,7 +70,8 @@ -- \`Source\` issues, use TestRuleset. -- -- /See:/ 'projectsRulesetsCreate' smart constructor. -data ProjectsRulesetsCreate = ProjectsRulesetsCreate' +data ProjectsRulesetsCreate = + ProjectsRulesetsCreate' { _prcXgafv :: !(Maybe Xgafv) , _prcUploadProtocol :: !(Maybe Text) , _prcAccessToken :: !(Maybe Text) @@ -78,8 +79,10 @@ , _prcPayload :: !Ruleset , _prcName :: !Text , _prcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsRulesetsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,7 +105,7 @@ -> Text -- ^ 'prcName' -> ProjectsRulesetsCreate projectsRulesetsCreate pPrcPayload_ pPrcName_ = - ProjectsRulesetsCreate' + ProjectsRulesetsCreate' { _prcXgafv = Nothing , _prcUploadProtocol = Nothing , _prcAccessToken = Nothing @@ -111,6 +114,7 @@ , _prcName = pPrcName_ , _prcCallback = Nothing } + -- | V1 error format. prcXgafv :: Lens' ProjectsRulesetsCreate (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Delete.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Delete.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Delete.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Delete.hs @@ -61,15 +61,18 @@ -- by a \`Release\` the operation will fail. -- -- /See:/ 'projectsRulesetsDelete' smart constructor. -data ProjectsRulesetsDelete = ProjectsRulesetsDelete' +data ProjectsRulesetsDelete = + ProjectsRulesetsDelete' { _proXgafv :: !(Maybe Xgafv) , _proUploadProtocol :: !(Maybe Text) , _proAccessToken :: !(Maybe Text) , _proUploadType :: !(Maybe Text) , _proName :: !Text , _proCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsRulesetsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,7 +92,7 @@ :: Text -- ^ 'proName' -> ProjectsRulesetsDelete projectsRulesetsDelete pProName_ = - ProjectsRulesetsDelete' + ProjectsRulesetsDelete' { _proXgafv = Nothing , _proUploadProtocol = Nothing , _proAccessToken = Nothing @@ -97,6 +100,7 @@ , _proName = pProName_ , _proCallback = Nothing } + -- | V1 error format. proXgafv :: Lens' ProjectsRulesetsDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Get.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Get.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Get.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Get.hs @@ -59,15 +59,18 @@ -- | Get a \`Ruleset\` by name including the full \`Source\` contents. -- -- /See:/ 'projectsRulesetsGet' smart constructor. -data ProjectsRulesetsGet = ProjectsRulesetsGet' +data ProjectsRulesetsGet = + ProjectsRulesetsGet' { _prgXgafv :: !(Maybe Xgafv) , _prgUploadProtocol :: !(Maybe Text) , _prgAccessToken :: !(Maybe Text) , _prgUploadType :: !(Maybe Text) , _prgName :: !Text , _prgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsRulesetsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'prgName' -> ProjectsRulesetsGet projectsRulesetsGet pPrgName_ = - ProjectsRulesetsGet' + ProjectsRulesetsGet' { _prgXgafv = Nothing , _prgUploadProtocol = Nothing , _prgAccessToken = Nothing @@ -95,6 +98,7 @@ , _prgName = pPrgName_ , _prgCallback = Nothing } + -- | V1 error format. prgXgafv :: Lens' ProjectsRulesetsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/List.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/List.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/List.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/List.hs @@ -71,7 +71,8 @@ -- retrieved with GetRuleset. -- -- /See:/ 'projectsRulesetsList' smart constructor. -data ProjectsRulesetsList = ProjectsRulesetsList' +data ProjectsRulesetsList = + ProjectsRulesetsList' { _prlXgafv :: !(Maybe Xgafv) , _prlUploadProtocol :: !(Maybe Text) , _prlAccessToken :: !(Maybe Text) @@ -81,8 +82,10 @@ , _prlPageToken :: !(Maybe Text) , _prlPageSize :: !(Maybe (Textual Int32)) , _prlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsRulesetsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -108,7 +111,7 @@ :: Text -- ^ 'prlName' -> ProjectsRulesetsList projectsRulesetsList pPrlName_ = - ProjectsRulesetsList' + ProjectsRulesetsList' { _prlXgafv = Nothing , _prlUploadProtocol = Nothing , _prlAccessToken = Nothing @@ -120,6 +123,7 @@ , _prlCallback = Nothing } + -- | V1 error format. prlXgafv :: Lens' ProjectsRulesetsList (Maybe Xgafv) prlXgafv = lens _prlXgafv (\ s a -> s{_prlXgafv = a}) @@ -149,8 +153,8 @@ -- | \`Ruleset\` filter. The list method supports filters with restrictions -- on \`Ruleset.name\`. Filters on \`Ruleset.create_time\` should use the -- \`date\` function which parses strings that conform to the RFC 3339 --- date\/time specifications. Example: \`create_time > date(\"2017-01-01\") --- AND name=UUID-*\` +-- date\/time specifications. Example: \`create_time > +-- date(\"2017-01-01T00:00:00Z\") AND name=UUID-*\` prlFilter :: Lens' ProjectsRulesetsList (Maybe Text) prlFilter = lens _prlFilter (\ s a -> s{_prlFilter = a}) diff --git a/gen/Network/Google/Resource/FirebaseRules/Projects/Test.hs b/gen/Network/Google/Resource/FirebaseRules/Projects/Test.hs --- a/gen/Network/Google/Resource/FirebaseRules/Projects/Test.hs +++ b/gen/Network/Google/Resource/FirebaseRules/Projects/Test.hs @@ -30,9 +30,9 @@ -- the correct metadata: _*Example*_ \/\/ Users are allowed to subscribe -- and unsubscribe to the blog. service firebase.storage { match -- \/users\/{userId}\/images\/{imageName} { allow write: if userId == --- request.auth.uid && --- (imageName.matches(\'*.png′)||/i//m//a//g//e//N//a//m//e/./m//a//t//c//h//e//s/(′ * ./j//p//g/\')) --- && resource.mimeType.matches(\'^image\/\') } } +-- request.auth.uid && (imageName.matches(\'*.png$\') || +-- imageName.matches(\'*.jpg$\')) && +-- resource.mimeType.matches(\'^image\/\') } } -- -- /See:/ for @firebaserules.projects.test@. module Network.Google.Resource.FirebaseRules.Projects.Test @@ -81,12 +81,13 @@ -- the correct metadata: _*Example*_ \/\/ Users are allowed to subscribe -- and unsubscribe to the blog. service firebase.storage { match -- \/users\/{userId}\/images\/{imageName} { allow write: if userId == --- request.auth.uid && --- (imageName.matches(\'*.png′)||/i//m//a//g//e//N//a//m//e/./m//a//t//c//h//e//s/(′ * ./j//p//g/\')) --- && resource.mimeType.matches(\'^image\/\') } } +-- request.auth.uid && (imageName.matches(\'*.png$\') || +-- imageName.matches(\'*.jpg$\')) && +-- resource.mimeType.matches(\'^image\/\') } } -- -- /See:/ 'projectsTest' smart constructor. -data ProjectsTest = ProjectsTest' +data ProjectsTest = + ProjectsTest' { _ptXgafv :: !(Maybe Xgafv) , _ptUploadProtocol :: !(Maybe Text) , _ptAccessToken :: !(Maybe Text) @@ -94,8 +95,10 @@ , _ptPayload :: !TestRulesetRequest , _ptName :: !Text , _ptCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -118,7 +121,7 @@ -> Text -- ^ 'ptName' -> ProjectsTest projectsTest pPtPayload_ pPtName_ = - ProjectsTest' + ProjectsTest' { _ptXgafv = Nothing , _ptUploadProtocol = Nothing , _ptAccessToken = Nothing @@ -127,6 +130,7 @@ , _ptName = pPtName_ , _ptCallback = Nothing } + -- | V1 error format. ptXgafv :: Lens' ProjectsTest (Maybe Xgafv) diff --git a/gogol-firebase-rules.cabal b/gogol-firebase-rules.cabal --- a/gogol-firebase-rules.cabal +++ b/gogol-firebase-rules.cabal @@ -1,5 +1,5 @@ name: gogol-firebase-rules -version: 0.4.0 +version: 0.5.0 synopsis: Google Firebase Rules SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -53,5 +53,5 @@ , Network.Google.FirebaseRules.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5