gogol-discovery 0.4.0 → 0.5.0
raw patch · 7 files changed
+242/−179 lines, 7 filesdep ~gogol-corePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: gogol-core
API changes (from Hackage documentation)
Files
- README.md +2/−2
- gen/Network/Google/Discovery.hs +2/−2
- gen/Network/Google/Discovery/Types.hs +1/−1
- gen/Network/Google/Discovery/Types/Product.hs +218/−156
- gen/Network/Google/Resource/Discovery/APIs/GetRest.hs +8/−7
- gen/Network/Google/Resource/Discovery/APIs/List.hs +8/−8
- gogol-discovery.cabal +3/−3
README.md view
@@ -8,12 +8,12 @@ ## Version -`0.3.0`+`0.5.0` ## Description -A client library for the Google APIs Discovery Service.+A client library for the Google API Discovery Service. ## Contribute
gen/Network/Google/Discovery.hs view
@@ -16,7 +16,7 @@ -- Provides information about other Google APIs, such as what APIs are -- available, the resource, and method details for each API. ----- /See:/ <https://developers.google.com/discovery/ APIs Discovery Service Reference>+-- /See:/ <https://developers.google.com/discovery/ API Discovery Service Reference> module Network.Google.Discovery ( -- * Service Configuration@@ -276,6 +276,6 @@ TODO -} --- | Represents the entirety of the methods and resources available for the APIs Discovery Service service.+-- | Represents the entirety of the methods and resources available for the API Discovery Service service. type DiscoveryAPI = APIsListResource :<|> APIsGetRestResource
gen/Network/Google/Discovery/Types.hs view
@@ -255,7 +255,7 @@ import Network.Google.Discovery.Types.Sum import Network.Google.Prelude --- | Default request referring to version 'v1' of the APIs Discovery Service. This contains the host and root path used as a starting point for constructing service requests.+-- | Default request referring to version 'v1' of the API Discovery Service. This contains the host and root path used as a starting point for constructing service requests. discoveryService :: ServiceConfig discoveryService = defaultService (ServiceId "discovery:v1")
gen/Network/Google/Discovery/Types/Product.hs view
@@ -23,10 +23,13 @@ -- | The schema for the response. -- -- /See:/ 'restMethodResponse' smart constructor.-newtype RestMethodResponse = RestMethodResponse'+newtype RestMethodResponse =+ RestMethodResponse' { _rmrRef :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestMethodResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -34,11 +37,9 @@ -- * 'rmrRef' restMethodResponse :: RestMethodResponse-restMethodResponse =- RestMethodResponse'- { _rmrRef = Nothing- }+restMethodResponse = RestMethodResponse' {_rmrRef = Nothing} + -- | Schema ID for the response schema. rmrRef :: Lens' RestMethodResponse (Maybe Text) rmrRef = lens _rmrRef (\ s a -> s{_rmrRef = a})@@ -55,10 +56,13 @@ -- | Common parameters that apply across all apis. -- -- /See:/ 'restDescriptionParameters' smart constructor.-newtype RestDescriptionParameters = RestDescriptionParameters'+newtype RestDescriptionParameters =+ RestDescriptionParameters' { _rdpAddtional :: HashMap Text JSONSchema- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescriptionParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,10 +72,9 @@ :: HashMap Text JSONSchema -- ^ 'rdpAddtional' -> RestDescriptionParameters restDescriptionParameters pRdpAddtional_ =- RestDescriptionParameters'- { _rdpAddtional = _Coerce # pRdpAddtional_- }+ RestDescriptionParameters' {_rdpAddtional = _Coerce # pRdpAddtional_} + -- | Description of a single parameter. rdpAddtional :: Lens' RestDescriptionParameters (HashMap Text JSONSchema) rdpAddtional@@ -89,7 +92,8 @@ -- -- /See:/ 'restMethod' smart constructor.-data RestMethod = RestMethod'+data RestMethod =+ RestMethod' { _rmSupportsMediaDownload :: !(Maybe Bool) , _rmParameterOrder :: !(Maybe [Text]) , _rmMediaUpload :: !(Maybe RestMethodMediaUpload)@@ -105,8 +109,10 @@ , _rmUseMediaDownloadService :: !(Maybe Bool) , _rmDescription :: !(Maybe Text) , _rmRequest :: !(Maybe RestMethodRequest)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestMethod' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -143,7 +149,7 @@ restMethod :: RestMethod restMethod =- RestMethod'+ RestMethod' { _rmSupportsMediaDownload = Nothing , _rmParameterOrder = Nothing , _rmMediaUpload = Nothing@@ -161,6 +167,7 @@ , _rmRequest = Nothing } + -- | Whether this method supports media downloads. rmSupportsMediaDownload :: Lens' RestMethod (Maybe Bool) rmSupportsMediaDownload@@ -300,11 +307,14 @@ -- -- /See:/ 'restResource' smart constructor.-data RestResource = RestResource'+data RestResource =+ RestResource' { _rrResources :: !(Maybe RestResourceResources) , _rrMethods :: !(Maybe RestResourceMethods)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -314,12 +324,9 @@ -- * 'rrMethods' restResource :: RestResource-restResource =- RestResource'- { _rrResources = Nothing- , _rrMethods = Nothing- }+restResource = RestResource' {_rrResources = Nothing, _rrMethods = Nothing} + -- | Sub-resources on this resource. rrResources :: Lens' RestResource (Maybe RestResourceResources) rrResources@@ -347,10 +354,13 @@ -- | Available OAuth 2.0 scopes. -- -- /See:/ 'restDescriptionAuthOAuth2Scopes' smart constructor.-newtype RestDescriptionAuthOAuth2Scopes = RestDescriptionAuthOAuth2Scopes'+newtype RestDescriptionAuthOAuth2Scopes =+ RestDescriptionAuthOAuth2Scopes' { _rdaoasAddtional :: HashMap Text RestDescriptionAuthOAuth2ScopesAdditional- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescriptionAuthOAuth2Scopes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -360,10 +370,10 @@ :: HashMap Text RestDescriptionAuthOAuth2ScopesAdditional -- ^ 'rdaoasAddtional' -> RestDescriptionAuthOAuth2Scopes restDescriptionAuthOAuth2Scopes pRdaoasAddtional_ =- RestDescriptionAuthOAuth2Scopes'- { _rdaoasAddtional = _Coerce # pRdaoasAddtional_- }+ RestDescriptionAuthOAuth2Scopes'+ {_rdaoasAddtional = _Coerce # pRdaoasAddtional_} + -- | The scope value. rdaoasAddtional :: Lens' RestDescriptionAuthOAuth2Scopes (HashMap Text RestDescriptionAuthOAuth2ScopesAdditional) rdaoasAddtional@@ -385,10 +395,13 @@ -- | API-level methods for this API. -- -- /See:/ 'restDescriptionMethods' smart constructor.-newtype RestDescriptionMethods = RestDescriptionMethods'+newtype RestDescriptionMethods =+ RestDescriptionMethods' { _rdmAddtional :: HashMap Text RestMethod- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescriptionMethods' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -398,10 +411,9 @@ :: HashMap Text RestMethod -- ^ 'rdmAddtional' -> RestDescriptionMethods restDescriptionMethods pRdmAddtional_ =- RestDescriptionMethods'- { _rdmAddtional = _Coerce # pRdmAddtional_- }+ RestDescriptionMethods' {_rdmAddtional = _Coerce # pRdmAddtional_} + -- | An individual method description. rdmAddtional :: Lens' RestDescriptionMethods (HashMap Text RestMethod) rdmAddtional@@ -419,7 +431,8 @@ -- -- /See:/ 'directoryListItemsItem' smart constructor.-data DirectoryListItemsItem = DirectoryListItemsItem'+data DirectoryListItemsItem =+ DirectoryListItemsItem' { _dliiDiscoveryLink :: !(Maybe Text) , _dliiPreferred :: !(Maybe Bool) , _dliiKind :: !Text@@ -432,8 +445,10 @@ , _dliiTitle :: !(Maybe Text) , _dliiDescription :: !(Maybe Text) , _dliiDiscoveryRestURL :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DirectoryListItemsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -464,7 +479,7 @@ directoryListItemsItem :: DirectoryListItemsItem directoryListItemsItem =- DirectoryListItemsItem'+ DirectoryListItemsItem' { _dliiDiscoveryLink = Nothing , _dliiPreferred = Nothing , _dliiKind = "discovery#directoryItem"@@ -479,6 +494,7 @@ , _dliiDiscoveryRestURL = Nothing } + -- | A link to the discovery document. dliiDiscoveryLink :: Lens' DirectoryListItemsItem (Maybe Text) dliiDiscoveryLink@@ -579,11 +595,14 @@ -- | Links to 16x16 and 32x32 icons representing the API. -- -- /See:/ 'directoryListItemsItemIcons' smart constructor.-data DirectoryListItemsItemIcons = DirectoryListItemsItemIcons'+data DirectoryListItemsItemIcons =+ DirectoryListItemsItemIcons' { _dliiiX16 :: !(Maybe Text) , _dliiiX32 :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DirectoryListItemsItemIcons' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -594,11 +613,9 @@ directoryListItemsItemIcons :: DirectoryListItemsItemIcons directoryListItemsItemIcons =- DirectoryListItemsItemIcons'- { _dliiiX16 = Nothing- , _dliiiX32 = Nothing- }+ DirectoryListItemsItemIcons' {_dliiiX16 = Nothing, _dliiiX32 = Nothing} + -- | The URL of the 16x16 icon. dliiiX16 :: Lens' DirectoryListItemsItemIcons (Maybe Text) dliiiX16 = lens _dliiiX16 (\ s a -> s{_dliiiX16 = a})@@ -623,10 +640,13 @@ -- | Sub-resources on this resource. -- -- /See:/ 'restResourceResources' smart constructor.-newtype RestResourceResources = RestResourceResources'+newtype RestResourceResources =+ RestResourceResources' { _rrrAddtional :: HashMap Text RestResource- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestResourceResources' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -636,10 +656,9 @@ :: HashMap Text RestResource -- ^ 'rrrAddtional' -> RestResourceResources restResourceResources pRrrAddtional_ =- RestResourceResources'- { _rrrAddtional = _Coerce # pRrrAddtional_- }+ RestResourceResources' {_rrrAddtional = _Coerce # pRrrAddtional_} + -- | Description for any sub-resources on this resource. rrrAddtional :: Lens' RestResourceResources (HashMap Text RestResource) rrrAddtional@@ -658,10 +677,13 @@ -- | OAuth 2.0 authentication information. -- -- /See:/ 'restDescriptionAuthOAuth2' smart constructor.-newtype RestDescriptionAuthOAuth2 = RestDescriptionAuthOAuth2'+newtype RestDescriptionAuthOAuth2 =+ RestDescriptionAuthOAuth2' { _rdaoaScopes :: Maybe RestDescriptionAuthOAuth2Scopes- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescriptionAuthOAuth2' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -669,11 +691,9 @@ -- * 'rdaoaScopes' restDescriptionAuthOAuth2 :: RestDescriptionAuthOAuth2-restDescriptionAuthOAuth2 =- RestDescriptionAuthOAuth2'- { _rdaoaScopes = Nothing- }+restDescriptionAuthOAuth2 = RestDescriptionAuthOAuth2' {_rdaoaScopes = Nothing} + -- | Available OAuth 2.0 scopes. rdaoaScopes :: Lens' RestDescriptionAuthOAuth2 (Maybe RestDescriptionAuthOAuth2Scopes) rdaoaScopes@@ -692,10 +712,13 @@ -- | The scope value. -- -- /See:/ 'restDescriptionAuthOAuth2ScopesAdditional' smart constructor.-newtype RestDescriptionAuthOAuth2ScopesAdditional = RestDescriptionAuthOAuth2ScopesAdditional'+newtype RestDescriptionAuthOAuth2ScopesAdditional =+ RestDescriptionAuthOAuth2ScopesAdditional' { _rdaoasaDescription :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescriptionAuthOAuth2ScopesAdditional' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -704,10 +727,9 @@ restDescriptionAuthOAuth2ScopesAdditional :: RestDescriptionAuthOAuth2ScopesAdditional restDescriptionAuthOAuth2ScopesAdditional =- RestDescriptionAuthOAuth2ScopesAdditional'- { _rdaoasaDescription = Nothing- }+ RestDescriptionAuthOAuth2ScopesAdditional' {_rdaoasaDescription = Nothing} + -- | Description of scope. rdaoasaDescription :: Lens' RestDescriptionAuthOAuth2ScopesAdditional (Maybe Text) rdaoasaDescription@@ -715,7 +737,8 @@ (\ s a -> s{_rdaoasaDescription = a}) instance FromJSON- RestDescriptionAuthOAuth2ScopesAdditional where+ RestDescriptionAuthOAuth2ScopesAdditional+ where parseJSON = withObject "RestDescriptionAuthOAuth2ScopesAdditional"@@ -724,7 +747,8 @@ (o .:? "description")) instance ToJSON- RestDescriptionAuthOAuth2ScopesAdditional where+ RestDescriptionAuthOAuth2ScopesAdditional+ where toJSON RestDescriptionAuthOAuth2ScopesAdditional'{..} = object (catMaybes@@ -733,11 +757,14 @@ -- | Supports uploading as a single HTTP request. -- -- /See:/ 'restMethodMediaUploadProtocolsSimple' smart constructor.-data RestMethodMediaUploadProtocolsSimple = RestMethodMediaUploadProtocolsSimple'+data RestMethodMediaUploadProtocolsSimple =+ RestMethodMediaUploadProtocolsSimple' { _rmmupsPath :: !(Maybe Text) , _rmmupsMultiPart :: !Bool- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestMethodMediaUploadProtocolsSimple' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -748,11 +775,10 @@ restMethodMediaUploadProtocolsSimple :: RestMethodMediaUploadProtocolsSimple restMethodMediaUploadProtocolsSimple =- RestMethodMediaUploadProtocolsSimple'- { _rmmupsPath = Nothing- , _rmmupsMultiPart = True- }+ RestMethodMediaUploadProtocolsSimple'+ {_rmmupsPath = Nothing, _rmmupsMultiPart = True} + -- | The URI path to be used for upload. Should be used in conjunction with -- the basePath property at the api-level. rmmupsPath :: Lens' RestMethodMediaUploadProtocolsSimple (Maybe Text)@@ -766,7 +792,8 @@ (\ s a -> s{_rmmupsMultiPart = a}) instance FromJSON- RestMethodMediaUploadProtocolsSimple where+ RestMethodMediaUploadProtocolsSimple+ where parseJSON = withObject "RestMethodMediaUploadProtocolsSimple" (\ o ->@@ -784,11 +811,14 @@ -- | Links to 16x16 and 32x32 icons representing the API. -- -- /See:/ 'restDescriptionIcons' smart constructor.-data RestDescriptionIcons = RestDescriptionIcons'+data RestDescriptionIcons =+ RestDescriptionIcons' { _rdiX16 :: !(Maybe Text) , _rdiX32 :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescriptionIcons' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -799,11 +829,9 @@ restDescriptionIcons :: RestDescriptionIcons restDescriptionIcons =- RestDescriptionIcons'- { _rdiX16 = Nothing- , _rdiX32 = Nothing- }+ RestDescriptionIcons' {_rdiX16 = Nothing, _rdiX32 = Nothing} + -- | The URL of the 16x16 icon. rdiX16 :: Lens' RestDescriptionIcons (Maybe Text) rdiX16 = lens _rdiX16 (\ s a -> s{_rdiX16 = a})@@ -830,11 +858,14 @@ -- descriminant values to schema names. -- -- /See:/ 'jsonSchemaVariant' smart constructor.-data JSONSchemaVariant = JSONSchemaVariant'+data JSONSchemaVariant =+ JSONSchemaVariant' { _jsvDiscriminant :: !(Maybe Text) , _jsvMap :: !(Maybe [JSONSchemaVariantMapItem])- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'JSONSchemaVariant' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -845,11 +876,9 @@ jsonSchemaVariant :: JSONSchemaVariant jsonSchemaVariant =- JSONSchemaVariant'- { _jsvDiscriminant = Nothing- , _jsvMap = Nothing- }+ JSONSchemaVariant' {_jsvDiscriminant = Nothing, _jsvMap = Nothing} + -- | The name of the type discriminant property. jsvDiscriminant :: Lens' JSONSchemaVariant (Maybe Text) jsvDiscriminant@@ -879,10 +908,13 @@ -- | Methods on this resource. -- -- /See:/ 'restResourceMethods' smart constructor.-newtype RestResourceMethods = RestResourceMethods'+newtype RestResourceMethods =+ RestResourceMethods' { _rrmAddtional :: HashMap Text RestMethod- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestResourceMethods' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -892,10 +924,9 @@ :: HashMap Text RestMethod -- ^ 'rrmAddtional' -> RestResourceMethods restResourceMethods pRrmAddtional_ =- RestResourceMethods'- { _rrmAddtional = _Coerce # pRrmAddtional_- }+ RestResourceMethods' {_rrmAddtional = _Coerce # pRrmAddtional_} + -- | Description for any methods on this resource. rrmAddtional :: Lens' RestResourceMethods (HashMap Text RestMethod) rrmAddtional@@ -913,10 +944,13 @@ -- | Authentication information. -- -- /See:/ 'restDescriptionAuth' smart constructor.-newtype RestDescriptionAuth = RestDescriptionAuth'+newtype RestDescriptionAuth =+ RestDescriptionAuth' { _rdaOAuth2 :: Maybe RestDescriptionAuthOAuth2- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescriptionAuth' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -924,11 +958,9 @@ -- * 'rdaOAuth2' restDescriptionAuth :: RestDescriptionAuth-restDescriptionAuth =- RestDescriptionAuth'- { _rdaOAuth2 = Nothing- }+restDescriptionAuth = RestDescriptionAuth' {_rdaOAuth2 = Nothing} + -- | OAuth 2.0 authentication information. rdaOAuth2 :: Lens' RestDescriptionAuth (Maybe RestDescriptionAuthOAuth2) rdaOAuth2@@ -945,7 +977,8 @@ -- -- /See:/ 'restDescription' smart constructor.-data RestDescription = RestDescription'+data RestDescription =+ RestDescription' { _rdEtag :: !(Maybe Text) , _rdSchemas :: !(Maybe RestDescriptionSchemas) , _rdServicePath :: !(Maybe Text)@@ -976,8 +1009,10 @@ , _rdTitle :: !(Maybe Text) , _rdRevision :: !(Maybe Text) , _rdDescription :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1044,7 +1079,7 @@ restDescription :: RestDescription restDescription =- RestDescription'+ RestDescription' { _rdEtag = Nothing , _rdSchemas = Nothing , _rdServicePath = Nothing@@ -1077,6 +1112,7 @@ , _rdDescription = Nothing } + -- | The ETag for this response. rdEtag :: Lens' RestDescription (Maybe Text) rdEtag = lens _rdEtag (\ s a -> s{_rdEtag = a})@@ -1307,7 +1343,8 @@ -- -- /See:/ 'jsonSchema' smart constructor.-data JSONSchema = JSONSchema'+data JSONSchema =+ JSONSchema' { _jsAnnotations :: !(Maybe JSONSchemaAnnotations) , _jsVariant :: !(Maybe JSONSchemaVariant) , _jsLocation :: !(Maybe Text)@@ -1328,8 +1365,10 @@ , _jsEnumDescriptions :: !(Maybe [Text]) , _jsDescription :: !(Maybe Text) , _jsProperties :: !(Maybe JSONSchemaProperties)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'JSONSchema' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1376,7 +1415,7 @@ jsonSchema :: JSONSchema jsonSchema =- JSONSchema'+ JSONSchema' { _jsAnnotations = Nothing , _jsVariant = Nothing , _jsLocation = Nothing@@ -1399,6 +1438,7 @@ , _jsProperties = Nothing } + -- | Additional information about this property. jsAnnotations :: Lens' JSONSchema (Maybe JSONSchemaAnnotations) jsAnnotations@@ -1567,10 +1607,13 @@ -- | The schemas for this API. -- -- /See:/ 'restDescriptionSchemas' smart constructor.-newtype RestDescriptionSchemas = RestDescriptionSchemas'+newtype RestDescriptionSchemas =+ RestDescriptionSchemas' { _rdsAddtional :: HashMap Text JSONSchema- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescriptionSchemas' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1580,10 +1623,9 @@ :: HashMap Text JSONSchema -- ^ 'rdsAddtional' -> RestDescriptionSchemas restDescriptionSchemas pRdsAddtional_ =- RestDescriptionSchemas'- { _rdsAddtional = _Coerce # pRdsAddtional_- }+ RestDescriptionSchemas' {_rdsAddtional = _Coerce # pRdsAddtional_} + -- | An individual schema description. rdsAddtional :: Lens' RestDescriptionSchemas (HashMap Text JSONSchema) rdsAddtional@@ -1601,11 +1643,14 @@ -- -- /See:/ 'jsonSchemaVariantMapItem' smart constructor.-data JSONSchemaVariantMapItem = JSONSchemaVariantMapItem'+data JSONSchemaVariantMapItem =+ JSONSchemaVariantMapItem' { _jsvmiRef :: !(Maybe Text) , _jsvmiTypeValue :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'JSONSchemaVariantMapItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1616,11 +1661,9 @@ jsonSchemaVariantMapItem :: JSONSchemaVariantMapItem jsonSchemaVariantMapItem =- JSONSchemaVariantMapItem'- { _jsvmiRef = Nothing- , _jsvmiTypeValue = Nothing- }+ JSONSchemaVariantMapItem' {_jsvmiRef = Nothing, _jsvmiTypeValue = Nothing} + jsvmiRef :: Lens' JSONSchemaVariantMapItem (Maybe Text) jsvmiRef = lens _jsvmiRef (\ s a -> s{_jsvmiRef = a}) @@ -1646,10 +1689,13 @@ -- | The resources in this API. -- -- /See:/ 'restDescriptionResources' smart constructor.-newtype RestDescriptionResources = RestDescriptionResources'+newtype RestDescriptionResources =+ RestDescriptionResources' { _rdrAddtional :: HashMap Text RestResource- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestDescriptionResources' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1659,10 +1705,9 @@ :: HashMap Text RestResource -- ^ 'rdrAddtional' -> RestDescriptionResources restDescriptionResources pRdrAddtional_ =- RestDescriptionResources'- { _rdrAddtional = _Coerce # pRdrAddtional_- }+ RestDescriptionResources' {_rdrAddtional = _Coerce # pRdrAddtional_} + -- | An individual resource description. Contains methods and sub-resources -- related to this resource. rdrAddtional :: Lens' RestDescriptionResources (HashMap Text RestResource)@@ -1682,11 +1727,14 @@ -- | Supported upload protocols. -- -- /See:/ 'restMethodMediaUploadProtocols' smart constructor.-data RestMethodMediaUploadProtocols = RestMethodMediaUploadProtocols'+data RestMethodMediaUploadProtocols =+ RestMethodMediaUploadProtocols' { _rmmupSimple :: !(Maybe RestMethodMediaUploadProtocolsSimple) , _rmmupResumable :: !(Maybe RestMethodMediaUploadProtocolsResumable)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestMethodMediaUploadProtocols' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1697,11 +1745,10 @@ restMethodMediaUploadProtocols :: RestMethodMediaUploadProtocols restMethodMediaUploadProtocols =- RestMethodMediaUploadProtocols'- { _rmmupSimple = Nothing- , _rmmupResumable = Nothing- }+ RestMethodMediaUploadProtocols'+ {_rmmupSimple = Nothing, _rmmupResumable = Nothing} + -- | Supports uploading as a single HTTP request. rmmupSimple :: Lens' RestMethodMediaUploadProtocols (Maybe RestMethodMediaUploadProtocolsSimple) rmmupSimple@@ -1731,10 +1778,13 @@ -- | Additional information about this property. -- -- /See:/ 'jsonSchemaAnnotations' smart constructor.-newtype JSONSchemaAnnotations = JSONSchemaAnnotations'+newtype JSONSchemaAnnotations =+ JSONSchemaAnnotations' { _jsaRequired :: Maybe [Text]- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'JSONSchemaAnnotations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1742,11 +1792,9 @@ -- * 'jsaRequired' jsonSchemaAnnotations :: JSONSchemaAnnotations-jsonSchemaAnnotations =- JSONSchemaAnnotations'- { _jsaRequired = Nothing- }+jsonSchemaAnnotations = JSONSchemaAnnotations' {_jsaRequired = Nothing} + -- | A list of methods for which this property is required on requests. jsaRequired :: Lens' JSONSchemaAnnotations [Text] jsaRequired@@ -1769,10 +1817,13 @@ -- | Details for all parameters in this method. -- -- /See:/ 'restMethodParameters' smart constructor.-newtype RestMethodParameters = RestMethodParameters'+newtype RestMethodParameters =+ RestMethodParameters' { _rmpAddtional :: HashMap Text JSONSchema- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestMethodParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1782,10 +1833,9 @@ :: HashMap Text JSONSchema -- ^ 'rmpAddtional' -> RestMethodParameters restMethodParameters pRmpAddtional_ =- RestMethodParameters'- { _rmpAddtional = _Coerce # pRmpAddtional_- }+ RestMethodParameters' {_rmpAddtional = _Coerce # pRmpAddtional_} + -- | Details for a single parameter in this method. rmpAddtional :: Lens' RestMethodParameters (HashMap Text JSONSchema) rmpAddtional@@ -1804,12 +1854,15 @@ -- | Media upload parameters. -- -- /See:/ 'restMethodMediaUpload' smart constructor.-data RestMethodMediaUpload = RestMethodMediaUpload'+data RestMethodMediaUpload =+ RestMethodMediaUpload' { _rmmuProtocols :: !(Maybe RestMethodMediaUploadProtocols) , _rmmuAccept :: !(Maybe [Text]) , _rmmuMaxSize :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestMethodMediaUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1822,12 +1875,10 @@ restMethodMediaUpload :: RestMethodMediaUpload restMethodMediaUpload =- RestMethodMediaUpload'- { _rmmuProtocols = Nothing- , _rmmuAccept = Nothing- , _rmmuMaxSize = Nothing- }+ RestMethodMediaUpload'+ {_rmmuProtocols = Nothing, _rmmuAccept = Nothing, _rmmuMaxSize = Nothing} + -- | Supported upload protocols. rmmuProtocols :: Lens' RestMethodMediaUpload (Maybe RestMethodMediaUploadProtocols) rmmuProtocols@@ -1866,10 +1917,13 @@ -- this object. -- -- /See:/ 'jsonSchemaProperties' smart constructor.-newtype JSONSchemaProperties = JSONSchemaProperties'+newtype JSONSchemaProperties =+ JSONSchemaProperties' { _jspAddtional :: HashMap Text JSONSchema- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'JSONSchemaProperties' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1879,10 +1933,9 @@ :: HashMap Text JSONSchema -- ^ 'jspAddtional' -> JSONSchemaProperties jsonSchemaProperties pJspAddtional_ =- JSONSchemaProperties'- { _jspAddtional = _Coerce # pJspAddtional_- }+ JSONSchemaProperties' {_jspAddtional = _Coerce # pJspAddtional_} + -- | A single property of this object. The value is itself a JSON Schema -- object describing this property. jspAddtional :: Lens' JSONSchemaProperties (HashMap Text JSONSchema)@@ -1902,11 +1955,14 @@ -- | Supports the Resumable Media Upload protocol. -- -- /See:/ 'restMethodMediaUploadProtocolsResumable' smart constructor.-data RestMethodMediaUploadProtocolsResumable = RestMethodMediaUploadProtocolsResumable'+data RestMethodMediaUploadProtocolsResumable =+ RestMethodMediaUploadProtocolsResumable' { _rmmuprPath :: !(Maybe Text) , _rmmuprMultiPart :: !Bool- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestMethodMediaUploadProtocolsResumable' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1917,11 +1973,10 @@ restMethodMediaUploadProtocolsResumable :: RestMethodMediaUploadProtocolsResumable restMethodMediaUploadProtocolsResumable =- RestMethodMediaUploadProtocolsResumable'- { _rmmuprPath = Nothing- , _rmmuprMultiPart = True- }+ RestMethodMediaUploadProtocolsResumable'+ {_rmmuprPath = Nothing, _rmmuprMultiPart = True} + -- | The URI path to be used for upload. Should be used in conjunction with -- the basePath property at the api-level. rmmuprPath :: Lens' RestMethodMediaUploadProtocolsResumable (Maybe Text)@@ -1935,7 +1990,8 @@ (\ s a -> s{_rmmuprMultiPart = a}) instance FromJSON- RestMethodMediaUploadProtocolsResumable where+ RestMethodMediaUploadProtocolsResumable+ where parseJSON = withObject "RestMethodMediaUploadProtocolsResumable"@@ -1944,7 +2000,8 @@ (o .:? "path") <*> (o .:? "multipart" .!= True)) instance ToJSON- RestMethodMediaUploadProtocolsResumable where+ RestMethodMediaUploadProtocolsResumable+ where toJSON RestMethodMediaUploadProtocolsResumable'{..} = object (catMaybes@@ -1953,12 +2010,15 @@ -- -- /See:/ 'directoryList' smart constructor.-data DirectoryList = DirectoryList'+data DirectoryList =+ DirectoryList' { _dlKind :: !Text , _dlItems :: !(Maybe [DirectoryListItemsItem]) , _dlDiscoveryVersion :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DirectoryList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1971,12 +2031,13 @@ directoryList :: DirectoryList directoryList =- DirectoryList'+ DirectoryList' { _dlKind = "discovery#directoryList" , _dlItems = Nothing , _dlDiscoveryVersion = "v1" } + -- | The kind for this response. dlKind :: Lens' DirectoryList Text dlKind = lens _dlKind (\ s a -> s{_dlKind = a})@@ -2012,11 +2073,14 @@ -- | The schema for the request. -- -- /See:/ 'restMethodRequest' smart constructor.-data RestMethodRequest = RestMethodRequest'+data RestMethodRequest =+ RestMethodRequest' { _rRef :: !(Maybe Text) , _rParameterName :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestMethodRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2027,10 +2091,8 @@ restMethodRequest :: RestMethodRequest restMethodRequest =- RestMethodRequest'- { _rRef = Nothing- , _rParameterName = Nothing- }+ RestMethodRequest' {_rRef = Nothing, _rParameterName = Nothing}+ -- | Schema ID for the request schema. rRef :: Lens' RestMethodRequest (Maybe Text)
gen/Network/Google/Resource/Discovery/APIs/GetRest.hs view
@@ -22,7 +22,7 @@ -- -- Retrieve the description of a particular version of an api. ----- /See:/ <https://developers.google.com/discovery/ APIs Discovery Service Reference> for @discovery.apis.getRest@.+-- /See:/ <https://developers.google.com/discovery/ API Discovery Service Reference> for @discovery.apis.getRest@. module Network.Google.Resource.Discovery.APIs.GetRest ( -- * REST Resource@@ -55,11 +55,14 @@ -- | Retrieve the description of a particular version of an api. -- -- /See:/ 'apisGetRest' smart constructor.-data APIsGetRest = APIsGetRest'+data APIsGetRest =+ APIsGetRest' { _agrVersion :: !Text , _agrAPI :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'APIsGetRest' 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 -- ^ 'agrAPI' -> APIsGetRest apisGetRest pAgrVersion_ pAgrAPI_ =- APIsGetRest'- { _agrVersion = pAgrVersion_- , _agrAPI = pAgrAPI_- }+ APIsGetRest' {_agrVersion = pAgrVersion_, _agrAPI = pAgrAPI_}+ -- | The version of the API. agrVersion :: Lens' APIsGetRest Text
gen/Network/Google/Resource/Discovery/APIs/List.hs view
@@ -22,7 +22,7 @@ -- -- Retrieve the list of APIs supported at this endpoint. ----- /See:/ <https://developers.google.com/discovery/ APIs Discovery Service Reference> for @discovery.apis.list@.+-- /See:/ <https://developers.google.com/discovery/ API Discovery Service Reference> for @discovery.apis.list@. module Network.Google.Resource.Discovery.APIs.List ( -- * REST Resource@@ -53,11 +53,14 @@ -- | Retrieve the list of APIs supported at this endpoint. -- -- /See:/ 'apisList' smart constructor.-data APIsList = APIsList'+data APIsList =+ APIsList' { _alPreferred :: !Bool , _alName :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'APIsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +70,8 @@ -- * 'alName' apisList :: APIsList-apisList =- APIsList'- { _alPreferred = False- , _alName = Nothing- }+apisList = APIsList' {_alPreferred = False, _alName = Nothing}+ -- | Return only the preferred version of an API. alPreferred :: Lens' APIsList Bool
gogol-discovery.cabal view
@@ -1,6 +1,6 @@ name: gogol-discovery-version: 0.4.0-synopsis: Google APIs Discovery Service SDK.+version: 0.5.0+synopsis: Google API Discovery Service SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues license: OtherLicense@@ -44,5 +44,5 @@ , Network.Google.Discovery.Types.Sum build-depends:- gogol-core == 0.4.0.*+ gogol-core == 0.5.0.* , base >= 4.7 && < 5