gogol-firebase-rules 0.4.0 → 0.5.0
raw patch · 15 files changed
+242/−168 lines, 15 filesdep ~gogol-corePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: gogol-core
API changes (from Hackage documentation)
Files
- README.md +1/−1
- gen/Network/Google/FirebaseRules/Types.hs +3/−3
- gen/Network/Google/FirebaseRules/Types/Product.hs +151/−121
- gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Create.hs +7/−3
- gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Delete.hs +7/−3
- gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Get.hs +7/−3
- gen/Network/Google/Resource/FirebaseRules/Projects/Releases/GetExecutable.hs +7/−3
- gen/Network/Google/Resource/FirebaseRules/Projects/Releases/List.hs +7/−3
- gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Patch.hs +7/−3
- gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Create.hs +7/−3
- gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Delete.hs +7/−3
- gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Get.hs +7/−3
- gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/List.hs +9/−5
- gen/Network/Google/Resource/FirebaseRules/Projects/Test.hs +13/−9
- gogol-firebase-rules.cabal +2/−2
README.md view
@@ -8,7 +8,7 @@ ## Version -`0.3.0`+`0.5.0` ## Description
gen/Network/Google/FirebaseRules/Types.hs view
@@ -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
gen/Network/Google/FirebaseRules/Types/Product.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Create.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Delete.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Get.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Releases/GetExecutable.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Releases/List.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Releases/Patch.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Create.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Delete.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/Get.hs view
@@ -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)
gen/Network/Google/Resource/FirebaseRules/Projects/Rulesets/List.hs view
@@ -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})
gen/Network/Google/Resource/FirebaseRules/Projects/Test.hs view
@@ -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:/ <https://firebase.google.com/docs/storage/security Firebase Rules API Reference> 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)
gogol-firebase-rules.cabal view
@@ -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