diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -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 diff --git a/gen/Network/Google/Discovery.hs b/gen/Network/Google/Discovery.hs --- a/gen/Network/Google/Discovery.hs +++ b/gen/Network/Google/Discovery.hs @@ -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:/ +-- /See:/ 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 diff --git a/gen/Network/Google/Discovery/Types.hs b/gen/Network/Google/Discovery/Types.hs --- a/gen/Network/Google/Discovery/Types.hs +++ b/gen/Network/Google/Discovery/Types.hs @@ -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") diff --git a/gen/Network/Google/Discovery/Types/Product.hs b/gen/Network/Google/Discovery/Types/Product.hs --- a/gen/Network/Google/Discovery/Types/Product.hs +++ b/gen/Network/Google/Discovery/Types/Product.hs @@ -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) diff --git a/gen/Network/Google/Resource/Discovery/APIs/GetRest.hs b/gen/Network/Google/Resource/Discovery/APIs/GetRest.hs --- a/gen/Network/Google/Resource/Discovery/APIs/GetRest.hs +++ b/gen/Network/Google/Resource/Discovery/APIs/GetRest.hs @@ -22,7 +22,7 @@ -- -- Retrieve the description of a particular version of an api. -- --- /See:/ for @discovery.apis.getRest@. +-- /See:/ 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 diff --git a/gen/Network/Google/Resource/Discovery/APIs/List.hs b/gen/Network/Google/Resource/Discovery/APIs/List.hs --- a/gen/Network/Google/Resource/Discovery/APIs/List.hs +++ b/gen/Network/Google/Resource/Discovery/APIs/List.hs @@ -22,7 +22,7 @@ -- -- Retrieve the list of APIs supported at this endpoint. -- --- /See:/ for @discovery.apis.list@. +-- /See:/ 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 diff --git a/gogol-discovery.cabal b/gogol-discovery.cabal --- a/gogol-discovery.cabal +++ b/gogol-discovery.cabal @@ -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