module AccountService_types: sig .. end
type __dummy = unit
type email = string
type password = string
type useragent = string
type token = string
type applicationToken = string
type developerToken = string
type clientEmail = string
type responseTime = int64
type operations = int64
type units = int64
type creditCardType = [ `AmericanExpress | `JCB | `MasterCard | `SOLO | `Switch | `VISA ]
type taxStatus = [ `Charity | `ExtraTerritorial | `Other | `SubjectToTax | `ZeroRated ]
type createAdWordsAccount = {
|
createAdWordsAccount_loginEmail : string; |
|
createAdWordsAccount_password : string; |
|
createAdWordsAccount_languagePreference : string; |
|
createAdWordsAccount_emailPrefs : emailPromotionsPreferences; |
|
createAdWordsAccount_currencyCode : string; |
|
createAdWordsAccount_cardInfo : creditCard; |
|
createAdWordsAccount_contactInfo : address; |
|
createAdWordsAccount_defaultAdsCoverage : coverageType; |
|
createAdWordsAccount_timeZoneId : string; |
}
type emailPromotionsPreferences = {
|
emailPromotionsPreferences_marketResearchEnabled : bool; |
|
emailPromotionsPreferences_newsletterEnabled : bool; |
|
emailPromotionsPreferences_promotionsEnabled : bool; |
}
type creditCard = {
|
creditCard_cardNumber : string; |
|
creditCard_cardType : creditCardType; |
|
creditCard_cardVerificationNumber : string option; |
|
creditCard_expirationMonth : int32; |
|
creditCard_expirationYear : int32; |
|
creditCard_issueNumber : string option; |
|
creditCard_startMonth : int32; |
|
creditCard_startYear : int32; |
|
creditCard_status : taxStatus option; |
|
creditCard_taxNumber : string option; |
}
type address = {
|
address_addressLine1 : string; |
|
address_addressLine2 : string option; |
|
address_city : string; |
|
address_companyName : string; |
|
address_countryCode : string; |
|
address_faxNumber : string option; |
|
address_name : string; |
|
address_phoneNumber : string; |
|
address_postalCode : string; |
|
address_state : string option; |
|
address_emailAddress : string option; |
}
type coverageType = {
|
coverageType_optInContentNetwork : bool; |
|
coverageType_optInSearchNetwork : bool; |
}
type accountInfo = {
|
accountInfo_currencyCode : string option; |
|
accountInfo_billingAddress : address option; |
|
accountInfo_primaryAddress : address option; |
|
accountInfo_emailPromotionsPreferences : emailPromotionsPreferences option; |
|
accountInfo_languagePreference : string option; |
|
accountInfo_timeZoneId : string option; |
|
accountInfo_timeZoneEffectiveDate : int64 option; |
|
accountInfo_customerId : int64 option; |
|
accountInfo_descriptiveName : string option; |
|
accountInfo_termsAndConditions : string option; |
|
accountInfo_primaryBusinessCategory : string option; |
|
accountInfo_defaultAdsCoverage : coverageType option; |
}
type createAdWordsAccountResponse = unit
type apiException = {
|
apiException_code : int32; |
|
apiException_internal : bool; |
|
apiException_message : string option; |
|
apiException_trigger : string option; |
|
apiException_errors : apiError list; |
}
type apiError = {
|
apiError_index : int32; |
|
apiError_field : string option; |
|
apiError_textIndex : int32 option; |
|
apiError_textLength : int32 option; |
|
apiError_trigger : string option; |
|
apiError_code : int32; |
|
apiError_isExemptable : bool; |
|
apiError_detail : string; |
}
type fault = unit
type setLoginInfo = {
|
setLoginInfo_login : string; |
|
setLoginInfo_newPassword : string; |
}
type setLoginInfoResponse = unit
type getAccountCurrency = unit
type getAccountCurrencyResponse = {
|
getAccountCurrencyResponse_getAccountCurrencyReturn : string; |
}
type getCreditCard = unit
type getCreditCardResponse = {
|
getCreditCardResponse_getCreditCardReturn : creditCard; |
}
type getBillingAddress = unit
type getBillingAddressResponse = {
|
getBillingAddressResponse_getBillingAddressReturn : address; |
}
type setCreditCard = {
}
type setCreditCardResponse = unit
type getDefaultAdsCoverage = unit
type getDefaultAdsCoverageResponse = {
|
getDefaultAdsCoverageResponse_getDefaultAdsCoverageReturn : coverageType; |
}
type setDefaultAdsCoverage = {
}
type setDefaultAdsCoverageResponse = unit
type getLanguagePreference = unit
type getLanguagePreferenceResponse = {
|
getLanguagePreferenceResponse_getLanguagePreferenceReturn : string; |
}
type setLanguagePreference = {
|
setLanguagePreference_languagePref : string; |
}
type setLanguagePreferenceResponse = unit
type getEmailPromotionsPreferences = unit
type getEmailPromotionsPreferencesResponse = {
}
type setEmailPromotionsPreferences = {
}
type setEmailPromotionsPreferencesResponse = unit
type getPrimaryBusinessCategory = unit
type getPrimaryBusinessCategoryResponse = {
|
getPrimaryBusinessCategoryResponse_getPrimaryBusinessCategoryReturn : string; |
}
type setPrimaryBusinessCategory = {
|
setPrimaryBusinessCategory_bizType : string; |
}
type setPrimaryBusinessCategoryResponse = unit
type getTermsAndConditions = unit
type getTermsAndConditionsResponse = {
|
getTermsAndConditionsResponse_getTermsAndConditionsReturn : string; |
}
type getClientAccounts = unit
type getClientAccountsResponse = {
|
getClientAccountsResponse_getClientAccountsReturn : string list; |
}
type getLocalTimezone = unit
type getLocalTimezoneResponse = {
|
getLocalTimezoneResponse_getLocalTimezoneReturn : string; |
}
type setLocalTimezone = {
|
setLocalTimezone_timezoneID : string; |
}
type setLocalTimezoneResponse = unit
type getTimezoneEffectiveDate = unit
type getTimezoneEffectiveDateResponse = {
|
getTimezoneEffectiveDateResponse_getTimezoneEffectiveDateReturn : int64; |
}
type getAccountInfo = unit
type getAccountInfoResponse = {
|
getAccountInfoResponse_getAccountInfoReturn : accountInfo; |
}
type updateAccountInfo = {
}
type updateAccountInfoResponse = unit
val __dummy : unit
val node_of_creditCardType : ?a:(string * string) list ->
OCSoap.ctx -> string -> creditCardType -> OCSoap.node
val creditCardType_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
creditCardType
val string_of_creditCardType : [< `AmericanExpress | `JCB | `MasterCard | `SOLO | `Switch | `VISA ] ->
string
val creditCardType_of_string : string -> creditCardType
val node_of_taxStatus : ?a:(string * string) list ->
OCSoap.ctx -> string -> taxStatus -> OCSoap.node
val taxStatus_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
taxStatus
val string_of_taxStatus : [< `Charity | `ExtraTerritorial | `Other | `SubjectToTax | `ZeroRated ] ->
string
val taxStatus_of_string : string -> taxStatus
val node_of_createAdWordsAccount : ?a:(string * string) list ->
OCSoap.ctx ->
string -> createAdWordsAccount -> OCSoap.node
val createAdWordsAccount_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
createAdWordsAccount
val node_of_emailPromotionsPreferences : ?a:(string * string) list ->
OCSoap.ctx ->
string -> emailPromotionsPreferences -> OCSoap.node
val emailPromotionsPreferences_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
emailPromotionsPreferences
val node_of_creditCard : ?a:(string * string) list ->
OCSoap.ctx -> string -> creditCard -> OCSoap.node
val creditCard_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
creditCard
val node_of_address : ?a:(string * string) list ->
OCSoap.ctx -> string -> address -> OCSoap.node
val address_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
address
val node_of_coverageType : ?a:(string * string) list ->
OCSoap.ctx -> string -> coverageType -> OCSoap.node
val coverageType_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
coverageType
val node_of_accountInfo : ?a:(string * string) list ->
OCSoap.ctx -> string -> accountInfo -> OCSoap.node
val accountInfo_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
accountInfo
val node_of_createAdWordsAccountResponse : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val createAdWordsAccountResponse_of_node : 'a -> 'b -> unit
val node_of_apiException : ?a:(string * string) list ->
OCSoap.ctx -> string -> apiException -> OCSoap.node
val apiException_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
apiException
val node_of_apiError : ?a:(string * string) list ->
OCSoap.ctx -> string -> apiError -> OCSoap.node
val apiError_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
apiError
val node_of_fault : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val fault_of_node : 'a -> 'b -> unit
val node_of_setLoginInfo : ?a:(string * string) list ->
OCSoap.ctx -> string -> setLoginInfo -> OCSoap.node
val setLoginInfo_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
setLoginInfo
val node_of_setLoginInfoResponse : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val setLoginInfoResponse_of_node : 'a -> 'b -> unit
val node_of_getAccountCurrency : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getAccountCurrency_of_node : 'a -> 'b -> unit
val node_of_getAccountCurrencyResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string -> getAccountCurrencyResponse -> OCSoap.node
val getAccountCurrencyResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getAccountCurrencyResponse
val node_of_getCreditCard : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getCreditCard_of_node : 'a -> 'b -> unit
val node_of_getCreditCardResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string -> getCreditCardResponse -> OCSoap.node
val getCreditCardResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getCreditCardResponse
val node_of_getBillingAddress : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getBillingAddress_of_node : 'a -> 'b -> unit
val node_of_getBillingAddressResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string -> getBillingAddressResponse -> OCSoap.node
val getBillingAddressResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getBillingAddressResponse
val node_of_setCreditCard : ?a:(string * string) list ->
OCSoap.ctx -> string -> setCreditCard -> OCSoap.node
val setCreditCard_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
setCreditCard
val node_of_setCreditCardResponse : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val setCreditCardResponse_of_node : 'a -> 'b -> unit
val node_of_getDefaultAdsCoverage : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getDefaultAdsCoverage_of_node : 'a -> 'b -> unit
val node_of_getDefaultAdsCoverageResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string -> getDefaultAdsCoverageResponse -> OCSoap.node
val getDefaultAdsCoverageResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getDefaultAdsCoverageResponse
val node_of_setDefaultAdsCoverage : ?a:(string * string) list ->
OCSoap.ctx ->
string -> setDefaultAdsCoverage -> OCSoap.node
val setDefaultAdsCoverage_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
setDefaultAdsCoverage
val node_of_setDefaultAdsCoverageResponse : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val setDefaultAdsCoverageResponse_of_node : 'a -> 'b -> unit
val node_of_getLanguagePreference : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getLanguagePreference_of_node : 'a -> 'b -> unit
val node_of_getLanguagePreferenceResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string -> getLanguagePreferenceResponse -> OCSoap.node
val getLanguagePreferenceResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getLanguagePreferenceResponse
val node_of_setLanguagePreference : ?a:(string * string) list ->
OCSoap.ctx ->
string -> setLanguagePreference -> OCSoap.node
val setLanguagePreference_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
setLanguagePreference
val node_of_setLanguagePreferenceResponse : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val setLanguagePreferenceResponse_of_node : 'a -> 'b -> unit
val node_of_getEmailPromotionsPreferences : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getEmailPromotionsPreferences_of_node : 'a -> 'b -> unit
val node_of_getEmailPromotionsPreferencesResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string ->
getEmailPromotionsPreferencesResponse -> OCSoap.node
val getEmailPromotionsPreferencesResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getEmailPromotionsPreferencesResponse
val node_of_setEmailPromotionsPreferences : ?a:(string * string) list ->
OCSoap.ctx ->
string -> setEmailPromotionsPreferences -> OCSoap.node
val setEmailPromotionsPreferences_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
setEmailPromotionsPreferences
val node_of_setEmailPromotionsPreferencesResponse : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val setEmailPromotionsPreferencesResponse_of_node : 'a -> 'b -> unit
val node_of_getPrimaryBusinessCategory : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getPrimaryBusinessCategory_of_node : 'a -> 'b -> unit
val node_of_getPrimaryBusinessCategoryResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string ->
getPrimaryBusinessCategoryResponse -> OCSoap.node
val getPrimaryBusinessCategoryResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getPrimaryBusinessCategoryResponse
val node_of_setPrimaryBusinessCategory : ?a:(string * string) list ->
OCSoap.ctx ->
string -> setPrimaryBusinessCategory -> OCSoap.node
val setPrimaryBusinessCategory_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
setPrimaryBusinessCategory
val node_of_setPrimaryBusinessCategoryResponse : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val setPrimaryBusinessCategoryResponse_of_node : 'a -> 'b -> unit
val node_of_getTermsAndConditions : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getTermsAndConditions_of_node : 'a -> 'b -> unit
val node_of_getTermsAndConditionsResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string -> getTermsAndConditionsResponse -> OCSoap.node
val getTermsAndConditionsResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getTermsAndConditionsResponse
val node_of_getClientAccounts : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getClientAccounts_of_node : 'a -> 'b -> unit
val node_of_getClientAccountsResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string -> getClientAccountsResponse -> OCSoap.node
val getClientAccountsResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getClientAccountsResponse
val node_of_getLocalTimezone : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getLocalTimezone_of_node : 'a -> 'b -> unit
val node_of_getLocalTimezoneResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string -> getLocalTimezoneResponse -> OCSoap.node
val getLocalTimezoneResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getLocalTimezoneResponse
val node_of_setLocalTimezone : ?a:(string * string) list ->
OCSoap.ctx -> string -> setLocalTimezone -> OCSoap.node
val setLocalTimezone_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
setLocalTimezone
val node_of_setLocalTimezoneResponse : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val setLocalTimezoneResponse_of_node : 'a -> 'b -> unit
val node_of_getTimezoneEffectiveDate : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getTimezoneEffectiveDate_of_node : 'a -> 'b -> unit
val node_of_getTimezoneEffectiveDateResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string ->
getTimezoneEffectiveDateResponse -> OCSoap.node
val getTimezoneEffectiveDateResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getTimezoneEffectiveDateResponse
val node_of_getAccountInfo : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val getAccountInfo_of_node : 'a -> 'b -> unit
val node_of_getAccountInfoResponse : ?a:(string * string) list ->
OCSoap.ctx ->
string -> getAccountInfoResponse -> OCSoap.node
val getAccountInfoResponse_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
getAccountInfoResponse
val node_of_updateAccountInfo : ?a:(string * string) list ->
OCSoap.ctx -> string -> updateAccountInfo -> OCSoap.node
val updateAccountInfo_of_node : string ->
('a Pxp_document.node Pxp_document.extension as 'a) Pxp_document.node ->
updateAccountInfo
val node_of_updateAccountInfoResponse : ?a:(string * string) list -> OCSoap.ctx -> string -> unit -> OCSoap.node
val updateAccountInfoResponse_of_node : 'a -> 'b -> unit