forked from loafle/openapi-generator-original
[haskell-http-client] handle Alias models + refactoring. (#6712)
* handle Alias models with newtypes * add inlineConsumesContentTypes cli option * generate swagger.yaml instead of swagger.json * check for/validate unhandled authMethods * refactoring
This commit is contained in:
Jon Schoning
wing328
parent
1ac04ae13a
commit
5219035b3a
@ -19,10 +19,8 @@ import io.swagger.codegen.CodegenModel;
|
||||
import io.swagger.codegen.CodegenOperation;
|
||||
import io.swagger.codegen.CodegenProperty;
|
||||
import io.swagger.codegen.SupportingFile;
|
||||
import io.swagger.util.Json;
|
||||
|
||||
import java.io.IOException;
|
||||
import java.io.File;
|
||||
import io.swagger.util.Yaml;
|
||||
import com.fasterxml.jackson.core.JsonProcessingException;
|
||||
|
||||
import org.apache.commons.lang3.StringUtils;
|
||||
import org.apache.commons.lang3.StringEscapeUtils;
|
||||
@ -41,17 +39,18 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
|
||||
protected Boolean useMonadLogger = false;
|
||||
|
||||
// CLI
|
||||
public static final String ALLOW_FROMJSON_NULLS = "allowFromJsonNulls";
|
||||
public static final String ALLOW_TOJSON_NULLS = "allowToJsonNulls";
|
||||
public static final String DATETIME_FORMAT = "dateTimeFormat";
|
||||
public static final String DATE_FORMAT = "dateFormat";
|
||||
public static final String GENERATE_FORM_URLENCODED_INSTANCES = "generateFormUrlEncodedInstances";
|
||||
public static final String GENERATE_LENSES = "generateLenses";
|
||||
public static final String GENERATE_MODEL_CONSTRUCTORS = "generateModelConstructors";
|
||||
public static final String MODEL_DERIVING = "modelDeriving";
|
||||
public static final String STRICT_FIELDS = "strictFields";
|
||||
public static final String USE_MONAD_LOGGER = "useMonadLogger";
|
||||
// CLI PROPS
|
||||
public static final String PROP_ALLOW_FROMJSON_NULLS = "allowFromJsonNulls";
|
||||
public static final String PROP_ALLOW_TOJSON_NULLS = "allowToJsonNulls";
|
||||
public static final String PROP_DATETIME_FORMAT = "dateTimeFormat";
|
||||
public static final String PROP_DATE_FORMAT = "dateFormat";
|
||||
public static final String PROP_GENERATE_FORM_URLENCODED_INSTANCES = "generateFormUrlEncodedInstances";
|
||||
public static final String PROP_GENERATE_LENSES = "generateLenses";
|
||||
public static final String PROP_GENERATE_MODEL_CONSTRUCTORS = "generateModelConstructors";
|
||||
public static final String PROP_INLINE_CONSUMES_CONTENT_TYPES = "inlineConsumesContentTypes";
|
||||
public static final String PROP_MODEL_DERIVING = "modelDeriving";
|
||||
public static final String PROP_STRICT_FIELDS = "strictFields";
|
||||
public static final String PROP_USE_MONAD_LOGGER = "useMonadLogger";
|
||||
|
||||
// protected String MODEL_IMPORTS = "modelImports";
|
||||
// protected String MODEL_EXTENSIONS = "modelExtensions";
|
||||
@ -59,8 +58,30 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
private static final Pattern LEADING_UNDERSCORE = Pattern.compile("^_+");
|
||||
|
||||
static final String MEDIA_TYPE = "mediaType";
|
||||
static final String MEDIA_DATA_TYPE = "x-mediaDataType";
|
||||
static final String MEDIA_IS_JSON = "x-mediaIsJson";
|
||||
|
||||
// vendor extensions
|
||||
static final String X_ALL_UNIQUE_PARAMS = "x-allUniqueParams";
|
||||
static final String X_COLLECTION_FORMAT = "x-collectionFormat";
|
||||
static final String X_DUPLICATE = "x-duplicate";
|
||||
static final String X_HADDOCK_PATH = "x-haddockPath";
|
||||
static final String X_HAS_BODY_OR_FORM_PARAM = "x-hasBodyOrFormParam";
|
||||
static final String X_HAS_MIME_FORM_URL_ENCODED = "x-hasMimeFormUrlEncoded";
|
||||
static final String X_HAS_NEW_TAG = "x-hasNewTag";
|
||||
static final String X_HAS_OPTIONAL_PARAMS = "x-hasOptionalParams";
|
||||
static final String X_HAS_UNKNOWN_MIME_TYPES = "x-hasUnknownMimeTypes";
|
||||
static final String X_HAS_UNKNOWN_RETURN = "x-hasUnknownReturn";
|
||||
static final String X_INLINE_CONTENT_TYPE = "x-inlineContentType";
|
||||
static final String X_IS_BODY_OR_FORM_PARAM = "x-isBodyOrFormParam";
|
||||
static final String X_MEDIA_DATA_TYPE = "x-mediaDataType";
|
||||
static final String X_MEDIA_IS_JSON = "x-mediaIsJson";
|
||||
static final String X_MIME_TYPES = "x-mimeTypes";
|
||||
static final String X_OPERATION_TYPE = "x-operationType";
|
||||
static final String X_PARAM_NAME_TYPE = "x-paramNameType";
|
||||
static final String X_PATH = "x-path";
|
||||
static final String X_RETURN_TYPE = "x-returnType";
|
||||
static final String X_STRICT_FIELDS = "x-strictFields";
|
||||
static final String X_UNKNOWN_MIME_TYPES = "x-unknownMimeTypes";
|
||||
static final String X_USE_MONAD_LOGGER = "x-useMonadLogger";
|
||||
|
||||
|
||||
protected Map<String, CodegenParameter> uniqueParamsByName = new HashMap<String, CodegenParameter>();
|
||||
@ -183,79 +204,82 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
knownMimeDataTypes.put("*/*", "MimeAny");
|
||||
|
||||
importMapping.clear();
|
||||
importMapping.put("Map", "qualified Data.Map as Map");
|
||||
|
||||
cliOptions.add(CliOption.newString(CodegenConstants.MODEL_PACKAGE, CodegenConstants.MODEL_PACKAGE_DESC));
|
||||
cliOptions.add(CliOption.newString(CodegenConstants.API_PACKAGE, CodegenConstants.API_PACKAGE_DESC));
|
||||
|
||||
cliOptions.add(CliOption.newBoolean(ALLOW_FROMJSON_NULLS, "allow JSON Null during model decoding from JSON").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(ALLOW_TOJSON_NULLS, "allow emitting JSON Null during model encoding to JSON").defaultValue(Boolean.FALSE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(GENERATE_LENSES, "Generate Lens optics for Models").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(GENERATE_MODEL_CONSTRUCTORS, "Generate smart constructors (only supply required fields) for models").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(GENERATE_FORM_URLENCODED_INSTANCES, "Generate FromForm/ToForm instances for models that are used by operations that produce or consume application/x-www-form-urlencoded").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(PROP_ALLOW_FROMJSON_NULLS, "allow JSON Null during model decoding from JSON").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(PROP_ALLOW_TOJSON_NULLS, "allow emitting JSON Null during model encoding to JSON").defaultValue(Boolean.FALSE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(PROP_GENERATE_LENSES, "Generate Lens optics for Models").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(PROP_GENERATE_MODEL_CONSTRUCTORS, "Generate smart constructors (only supply required fields) for models").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(PROP_GENERATE_FORM_URLENCODED_INSTANCES, "Generate FromForm/ToForm instances for models that are used by operations that produce or consume application/x-www-form-urlencoded").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(PROP_INLINE_CONSUMES_CONTENT_TYPES, "Inline (hardcode) the content-type on operations that do not have multiple content-types (Consumes)").defaultValue(Boolean.FALSE.toString()));
|
||||
|
||||
cliOptions.add(CliOption.newString(MODEL_DERIVING, "Additional classes to include in the deriving() clause of Models"));
|
||||
cliOptions.add(CliOption.newBoolean(STRICT_FIELDS, "Add strictness annotations to all model fields").defaultValue((Boolean.TRUE.toString())));
|
||||
cliOptions.add(CliOption.newBoolean(USE_MONAD_LOGGER, "Use the monad-logger package to provide logging (if false, use the katip logging package)").defaultValue((Boolean.FALSE.toString())));
|
||||
cliOptions.add(CliOption.newString(PROP_MODEL_DERIVING, "Additional classes to include in the deriving() clause of Models"));
|
||||
cliOptions.add(CliOption.newBoolean(PROP_STRICT_FIELDS, "Add strictness annotations to all model fields").defaultValue((Boolean.TRUE.toString())));
|
||||
cliOptions.add(CliOption.newBoolean(PROP_USE_MONAD_LOGGER, "Use the monad-logger package to provide logging (if false, use the katip logging package)").defaultValue((Boolean.FALSE.toString())));
|
||||
|
||||
cliOptions.add(CliOption.newString(DATETIME_FORMAT, "format string used to parse/render a datetime"));
|
||||
cliOptions.add(CliOption.newString(DATE_FORMAT, "format string used to parse/render a date").defaultValue(defaultDateFormat));
|
||||
cliOptions.add(CliOption.newString(PROP_DATETIME_FORMAT, "format string used to parse/render a datetime"));
|
||||
cliOptions.add(CliOption.newString(PROP_DATE_FORMAT, "format string used to parse/render a date").defaultValue(defaultDateFormat));
|
||||
|
||||
cliOptions.add(CliOption.newBoolean(CodegenConstants.HIDE_GENERATION_TIMESTAMP, "hides the timestamp when files were generated").defaultValue(Boolean.TRUE.toString()));
|
||||
|
||||
}
|
||||
|
||||
public void setAllowFromJsonNulls(Boolean value) {
|
||||
additionalProperties.put(ALLOW_FROMJSON_NULLS, value);
|
||||
additionalProperties.put(PROP_ALLOW_FROMJSON_NULLS, value);
|
||||
}
|
||||
|
||||
public void setAllowToJsonNulls(Boolean value) {
|
||||
additionalProperties.put(ALLOW_TOJSON_NULLS, value);
|
||||
additionalProperties.put(PROP_ALLOW_TOJSON_NULLS, value);
|
||||
}
|
||||
|
||||
public void setGenerateModelConstructors(Boolean value) {
|
||||
additionalProperties.put(GENERATE_MODEL_CONSTRUCTORS, value);
|
||||
additionalProperties.put(PROP_GENERATE_MODEL_CONSTRUCTORS, value);
|
||||
}
|
||||
|
||||
public void setGenerateFormUrlEncodedInstances(Boolean value) {
|
||||
additionalProperties.put(GENERATE_FORM_URLENCODED_INSTANCES, value);
|
||||
additionalProperties.put(PROP_GENERATE_FORM_URLENCODED_INSTANCES, value);
|
||||
}
|
||||
public void setInlineConsumesContentTypes (Boolean value) {
|
||||
additionalProperties.put(PROP_INLINE_CONSUMES_CONTENT_TYPES, value);
|
||||
}
|
||||
|
||||
public void setGenerateLenses(Boolean value) {
|
||||
additionalProperties.put(GENERATE_LENSES, value);
|
||||
additionalProperties.put(PROP_GENERATE_LENSES, value);
|
||||
}
|
||||
|
||||
public void setModelDeriving(String value) {
|
||||
if (StringUtils.isBlank(value)) {
|
||||
additionalProperties.remove(MODEL_DERIVING);
|
||||
additionalProperties.remove(PROP_MODEL_DERIVING);
|
||||
} else {
|
||||
additionalProperties.put(MODEL_DERIVING, StringUtils.join(value.split(" "), ","));
|
||||
additionalProperties.put(PROP_MODEL_DERIVING, StringUtils.join(value.split(" "), ","));
|
||||
}
|
||||
}
|
||||
|
||||
public void setDateTimeFormat(String value) {
|
||||
if (StringUtils.isBlank(value)) {
|
||||
additionalProperties.remove(DATETIME_FORMAT);
|
||||
additionalProperties.remove(PROP_DATETIME_FORMAT);
|
||||
} else {
|
||||
additionalProperties.put(DATETIME_FORMAT, value);
|
||||
additionalProperties.put(PROP_DATETIME_FORMAT, value);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
public void setDateFormat(String value) {
|
||||
if (StringUtils.isBlank(value)) {
|
||||
additionalProperties.remove(DATE_FORMAT);
|
||||
additionalProperties.remove(PROP_DATE_FORMAT);
|
||||
} else {
|
||||
additionalProperties.put(DATE_FORMAT, value);
|
||||
additionalProperties.put(PROP_DATE_FORMAT, value);
|
||||
}
|
||||
}
|
||||
|
||||
public void setStrictFields(Boolean value) {
|
||||
additionalProperties.put("x-strictFields", value);
|
||||
additionalProperties.put(X_STRICT_FIELDS, value);
|
||||
}
|
||||
|
||||
public void setUseMonadLogger(Boolean value) {
|
||||
additionalProperties.put("x-useMonadLogger", value);
|
||||
additionalProperties.put(X_USE_MONAD_LOGGER, value);
|
||||
this.useMonadLogger = value;
|
||||
}
|
||||
|
||||
@ -269,61 +293,67 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
additionalProperties.put(CodegenConstants.HIDE_GENERATION_TIMESTAMP, true);
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(ALLOW_FROMJSON_NULLS)) {
|
||||
setAllowFromJsonNulls(convertPropertyToBoolean(ALLOW_FROMJSON_NULLS));
|
||||
if (additionalProperties.containsKey(PROP_ALLOW_FROMJSON_NULLS)) {
|
||||
setAllowFromJsonNulls(convertPropertyToBoolean(PROP_ALLOW_FROMJSON_NULLS));
|
||||
} else {
|
||||
setAllowFromJsonNulls(true);
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(ALLOW_TOJSON_NULLS)) {
|
||||
setAllowToJsonNulls(convertPropertyToBoolean(ALLOW_TOJSON_NULLS));
|
||||
if (additionalProperties.containsKey(PROP_ALLOW_TOJSON_NULLS)) {
|
||||
setAllowToJsonNulls(convertPropertyToBoolean(PROP_ALLOW_TOJSON_NULLS));
|
||||
} else {
|
||||
setAllowToJsonNulls(false);
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(GENERATE_MODEL_CONSTRUCTORS)) {
|
||||
setGenerateModelConstructors(convertPropertyToBoolean(GENERATE_MODEL_CONSTRUCTORS));
|
||||
if (additionalProperties.containsKey(PROP_GENERATE_MODEL_CONSTRUCTORS)) {
|
||||
setGenerateModelConstructors(convertPropertyToBoolean(PROP_GENERATE_MODEL_CONSTRUCTORS));
|
||||
} else {
|
||||
setGenerateModelConstructors(true);
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(GENERATE_FORM_URLENCODED_INSTANCES)) {
|
||||
setGenerateFormUrlEncodedInstances(convertPropertyToBoolean(GENERATE_FORM_URLENCODED_INSTANCES));
|
||||
if (additionalProperties.containsKey(PROP_GENERATE_FORM_URLENCODED_INSTANCES)) {
|
||||
setGenerateFormUrlEncodedInstances(convertPropertyToBoolean(PROP_GENERATE_FORM_URLENCODED_INSTANCES));
|
||||
} else {
|
||||
setGenerateFormUrlEncodedInstances(true);
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(GENERATE_LENSES)) {
|
||||
setGenerateLenses(convertPropertyToBoolean(GENERATE_LENSES));
|
||||
if (additionalProperties.containsKey(PROP_INLINE_CONSUMES_CONTENT_TYPES)) {
|
||||
setInlineConsumesContentTypes(convertPropertyToBoolean(PROP_INLINE_CONSUMES_CONTENT_TYPES));
|
||||
} else {
|
||||
setInlineConsumesContentTypes(false);
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(PROP_GENERATE_LENSES)) {
|
||||
setGenerateLenses(convertPropertyToBoolean(PROP_GENERATE_LENSES));
|
||||
} else {
|
||||
setGenerateLenses(true);
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(MODEL_DERIVING)) {
|
||||
setModelDeriving(additionalProperties.get(MODEL_DERIVING).toString());
|
||||
if (additionalProperties.containsKey(PROP_MODEL_DERIVING)) {
|
||||
setModelDeriving(additionalProperties.get(PROP_MODEL_DERIVING).toString());
|
||||
} else {
|
||||
setModelDeriving("");
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(DATETIME_FORMAT)) {
|
||||
setDateTimeFormat(additionalProperties.get(DATETIME_FORMAT).toString());
|
||||
if (additionalProperties.containsKey(PROP_DATETIME_FORMAT)) {
|
||||
setDateTimeFormat(additionalProperties.get(PROP_DATETIME_FORMAT).toString());
|
||||
} else {
|
||||
setDateTimeFormat(null); // default should be null
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(DATE_FORMAT)) {
|
||||
setDateFormat(additionalProperties.get(DATE_FORMAT).toString());
|
||||
if (additionalProperties.containsKey(PROP_DATE_FORMAT)) {
|
||||
setDateFormat(additionalProperties.get(PROP_DATE_FORMAT).toString());
|
||||
} else {
|
||||
setDateFormat(defaultDateFormat);
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(STRICT_FIELDS)) {
|
||||
setStrictFields(convertPropertyToBoolean(STRICT_FIELDS));
|
||||
if (additionalProperties.containsKey(PROP_STRICT_FIELDS)) {
|
||||
setStrictFields(convertPropertyToBoolean(PROP_STRICT_FIELDS));
|
||||
} else {
|
||||
setStrictFields(true);
|
||||
}
|
||||
if (additionalProperties.containsKey(USE_MONAD_LOGGER)) {
|
||||
setUseMonadLogger(convertPropertyToBoolean(USE_MONAD_LOGGER));
|
||||
if (additionalProperties.containsKey(PROP_USE_MONAD_LOGGER)) {
|
||||
setUseMonadLogger(convertPropertyToBoolean(PROP_USE_MONAD_LOGGER));
|
||||
} else {
|
||||
setUseMonadLogger(false);
|
||||
}
|
||||
@ -366,12 +396,14 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
|
||||
// root
|
||||
supportingFiles.add(new SupportingFile("haskell-http-client.cabal.mustache", "", cabalName + ".cabal"));
|
||||
supportingFiles.add(new SupportingFile("swagger.mustache", "", "swagger.yaml"));
|
||||
|
||||
// lib
|
||||
supportingFiles.add(new SupportingFile("TopLevel.mustache", "lib/", apiName + ".hs"));
|
||||
supportingFiles.add(new SupportingFile("Client.mustache", "lib/" + apiName, "Client.hs"));
|
||||
|
||||
supportingFiles.add(new SupportingFile("API.mustache", "lib/" + apiName, "API.hs"));
|
||||
supportingFiles.add(new SupportingFile("Core.mustache", "lib/" + apiName, "Core.hs"));
|
||||
supportingFiles.add(new SupportingFile("Model.mustache", "lib/" + apiName, "Model.hs"));
|
||||
supportingFiles.add(new SupportingFile("MimeTypes.mustache", "lib/" + apiName, "MimeTypes.hs"));
|
||||
|
||||
@ -382,8 +414,8 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
// apiTemplateFiles.put("Model.mustache", ".hs");
|
||||
|
||||
// lens
|
||||
if ((boolean)additionalProperties.get(GENERATE_LENSES)) {
|
||||
supportingFiles.add(new SupportingFile("Lens.mustache", "lib/" + apiName, "Lens.hs"));
|
||||
if ((boolean)additionalProperties.get(PROP_GENERATE_LENSES)) {
|
||||
supportingFiles.add(new SupportingFile("ModelLens.mustache", "lib/" + apiName, "ModelLens.hs"));
|
||||
}
|
||||
|
||||
additionalProperties.put("title", apiName);
|
||||
@ -394,11 +426,22 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
additionalProperties.put("configType", apiName + "Config");
|
||||
additionalProperties.put("swaggerVersion", swagger.getSwagger());
|
||||
|
||||
WriteInputSwaggerToFile(swagger);
|
||||
|
||||
super.preprocessSwagger(swagger);
|
||||
}
|
||||
|
||||
@Override
|
||||
public Map<String, Object> postProcessSupportingFileData(Map<String, Object> objs) {
|
||||
Swagger swagger = (Swagger)objs.get("swagger");
|
||||
if(swagger != null) {
|
||||
try {
|
||||
objs.put("swagger-yaml", Yaml.mapper().writeValueAsString(swagger));
|
||||
} catch (JsonProcessingException e) {
|
||||
LOGGER.error(e.getMessage(), e);
|
||||
}
|
||||
}
|
||||
return super.postProcessSupportingFileData(objs);
|
||||
}
|
||||
|
||||
|
||||
@Override
|
||||
public String getTypeDeclaration(Property p) {
|
||||
@ -417,15 +460,11 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
@Override
|
||||
public String getSwaggerType(Property p) {
|
||||
String swaggerType = super.getSwaggerType(p);
|
||||
String type = null;
|
||||
|
||||
if (typeMapping.containsKey(swaggerType)) {
|
||||
return typeMapping.get(swaggerType);
|
||||
} else if (languageSpecificPrimitives.contains(type)) {
|
||||
return type;
|
||||
} else if (swaggerType == "object") {
|
||||
return "A.Value";
|
||||
// } else if (typeMapping.containsValue(swaggerType)) {
|
||||
// return toModelName(swaggerType) + "_";
|
||||
} else {
|
||||
return toModelName(swaggerType);
|
||||
}
|
||||
@ -459,21 +498,21 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
op.vendorExtensions = new LinkedHashMap();
|
||||
|
||||
String operationType = toTypeName("Op", op.operationId);
|
||||
op.vendorExtensions.put("x-operationType", operationType);
|
||||
op.vendorExtensions.put(X_OPERATION_TYPE, operationType);
|
||||
typeNames.add(operationType);
|
||||
|
||||
op.vendorExtensions.put("x-haddockPath", String.format("%s %s", op.httpMethod, op.path.replace("/", "\\/")));
|
||||
op.vendorExtensions.put("x-hasBodyOrFormParam", op.getHasBodyParam() || op.getHasFormParams());
|
||||
op.vendorExtensions.put(X_HADDOCK_PATH, String.format("%s %s", op.httpMethod, op.path.replace("/", "\\/")));
|
||||
op.vendorExtensions.put(X_HAS_BODY_OR_FORM_PARAM, op.getHasBodyParam() || op.getHasFormParams());
|
||||
|
||||
for (CodegenParameter param : op.allParams) {
|
||||
param.vendorExtensions = new LinkedHashMap(); // prevent aliasing/sharing
|
||||
param.vendorExtensions.put("x-operationType", operationType);
|
||||
param.vendorExtensions.put("x-isBodyOrFormParam", param.isBodyParam || param.isFormParam);
|
||||
param.vendorExtensions.put(X_OPERATION_TYPE, operationType);
|
||||
param.vendorExtensions.put(X_IS_BODY_OR_FORM_PARAM, param.isBodyParam || param.isFormParam);
|
||||
if (!StringUtils.isBlank(param.collectionFormat)) {
|
||||
param.vendorExtensions.put("x-collectionFormat", mapCollectionFormat(param.collectionFormat));
|
||||
param.vendorExtensions.put(X_COLLECTION_FORMAT, mapCollectionFormat(param.collectionFormat));
|
||||
}
|
||||
if(!param.required) {
|
||||
op.vendorExtensions.put("x-hasOptionalParams", true);
|
||||
op.vendorExtensions.put(X_HAS_OPTIONAL_PARAMS, true);
|
||||
}
|
||||
|
||||
deduplicateParameter(param);
|
||||
@ -508,10 +547,10 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
HashMap<String, Object> pathOps = (HashMap<String, Object>)ret.get("operations");
|
||||
ArrayList<CodegenOperation> ops = (ArrayList<CodegenOperation>)pathOps.get("operation");
|
||||
if(ops.size() > 0) {
|
||||
ops.get(0).vendorExtensions.put("x-hasNewTag", true);
|
||||
ops.get(0).vendorExtensions.put(X_HAS_NEW_TAG, true);
|
||||
}
|
||||
|
||||
additionalProperties.put("x-hasUnknownMimeTypes", !unknownMimeTypes.isEmpty());
|
||||
additionalProperties.put(X_HAS_UNKNOWN_MIME_TYPES, !unknownMimeTypes.isEmpty());
|
||||
|
||||
Collections.sort(unknownMimeTypes, new Comparator<Map<String, String>>() {
|
||||
@Override
|
||||
@ -519,19 +558,19 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
return o1.get(MEDIA_TYPE).compareTo(o2.get(MEDIA_TYPE));
|
||||
}
|
||||
});
|
||||
additionalProperties.put("x-unknownMimeTypes", unknownMimeTypes);
|
||||
additionalProperties.put(X_UNKNOWN_MIME_TYPES, unknownMimeTypes);
|
||||
|
||||
ArrayList<CodegenParameter> params = new ArrayList<>(uniqueParamsByName.values());
|
||||
Collections.sort(params, new Comparator<CodegenParameter>() {
|
||||
@Override
|
||||
public int compare(CodegenParameter o1, CodegenParameter o2) {
|
||||
return
|
||||
((String) o1.vendorExtensions.get("x-paramNameType"))
|
||||
((String) o1.vendorExtensions.get(X_PARAM_NAME_TYPE))
|
||||
.compareTo(
|
||||
(String) o2.vendorExtensions.get("x-paramNameType"));
|
||||
(String) o2.vendorExtensions.get(X_PARAM_NAME_TYPE));
|
||||
}
|
||||
});
|
||||
additionalProperties.put("x-allUniqueParams", params);
|
||||
additionalProperties.put(X_ALL_UNIQUE_PARAMS, params);
|
||||
|
||||
return ret;
|
||||
}
|
||||
@ -543,8 +582,8 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
CodegenModel m = (CodegenModel) h.get("model");
|
||||
if (modelMimeTypes.containsKey(m.classname)) {
|
||||
Set<String> mimeTypes = modelMimeTypes.get(m.classname);
|
||||
m.vendorExtensions.put("x-mimeTypes", mimeTypes);
|
||||
if ((boolean)additionalProperties.get(GENERATE_FORM_URLENCODED_INSTANCES) && mimeTypes.contains("MimeFormUrlEncoded")) {
|
||||
m.vendorExtensions.put(X_MIME_TYPES, mimeTypes);
|
||||
if ((boolean)additionalProperties.get(PROP_GENERATE_FORM_URLENCODED_INSTANCES) && mimeTypes.contains("MimeFormUrlEncoded")) {
|
||||
Boolean hasMimeFormUrlEncoded = true;
|
||||
for (CodegenProperty v : m.vars) {
|
||||
if (!(v.isPrimitiveType || v.isString || v.isDate || v.isDateTime)) {
|
||||
@ -552,7 +591,7 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
}
|
||||
}
|
||||
if (hasMimeFormUrlEncoded) {
|
||||
m.vendorExtensions.put("x-hasMimeFormUrlEncoded", true);
|
||||
m.vendorExtensions.put(X_HAS_MIME_FORM_URL_ENCODED, true);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -614,22 +653,12 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
return dataType != null && dataType.equals("B.ByteString");
|
||||
}
|
||||
|
||||
//copy input swagger to output folder
|
||||
private void WriteInputSwaggerToFile(Swagger swagger) {
|
||||
try {
|
||||
String swaggerJson = Json.pretty(swagger);
|
||||
FileUtils.writeStringToFile(new File(outputFolder + File.separator + "swagger.json"), swaggerJson);
|
||||
} catch (IOException e) {
|
||||
throw new RuntimeException(e.getMessage(), e.getCause());
|
||||
}
|
||||
}
|
||||
|
||||
private void processReturnType(CodegenOperation op) {
|
||||
String returnType = op.returnType;
|
||||
if (returnType == null || returnType.equals("null")) {
|
||||
if(op.hasProduces) {
|
||||
returnType = "res";
|
||||
op.vendorExtensions.put("x-hasUnknownReturn", true);
|
||||
op.vendorExtensions.put(X_HAS_UNKNOWN_RETURN, true);
|
||||
} else {
|
||||
returnType = "NoContent";
|
||||
}
|
||||
@ -637,13 +666,15 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
if (returnType.indexOf(" ") >= 0) {
|
||||
returnType = "(" + returnType + ")";
|
||||
}
|
||||
op.vendorExtensions.put("x-returnType", returnType);
|
||||
op.vendorExtensions.put(X_RETURN_TYPE, returnType);
|
||||
}
|
||||
|
||||
private void processProducesConsumes(CodegenOperation op) {
|
||||
if (op.hasConsumes) {
|
||||
for (Map<String, String> m : op.consumes) {
|
||||
processMediaType(op,m);
|
||||
processInlineConsumesContentType(op, m);
|
||||
|
||||
}
|
||||
if (isMultipartOperation(op.consumes)) {
|
||||
op.isMultipart = Boolean.TRUE;
|
||||
@ -656,6 +687,18 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
}
|
||||
}
|
||||
|
||||
private void processInlineConsumesContentType(CodegenOperation op, Map<String, String> m) {
|
||||
if ((boolean) additionalProperties.get(PROP_INLINE_CONSUMES_CONTENT_TYPES)
|
||||
&& op.consumes.size() == 1) {
|
||||
op.vendorExtensions.put(X_INLINE_CONTENT_TYPE, m);
|
||||
for (CodegenParameter param : op.allParams) {
|
||||
if (param.isBodyParam && param.required) {
|
||||
param.vendorExtensions.put(X_INLINE_CONTENT_TYPE, m);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
private void deduplicateParameter(CodegenParameter param) {
|
||||
if (typeMapping.containsKey(param.dataType) || param.isPrimitiveType || param.isListContainer || param.isMapContainer || param.isFile) {
|
||||
|
||||
@ -687,7 +730,7 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
uniqueParamsByName.put(paramNameType, param);
|
||||
}
|
||||
|
||||
param.vendorExtensions.put("x-paramNameType", paramNameType);
|
||||
param.vendorExtensions.put(X_PARAM_NAME_TYPE, paramNameType);
|
||||
typeNames.add(paramNameType);
|
||||
}
|
||||
}
|
||||
@ -695,7 +738,7 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
public Boolean checkParamForDuplicates(String paramNameType, CodegenParameter param) {
|
||||
CodegenParameter lastParam = this.uniqueParamsByName.get(paramNameType);
|
||||
if (lastParam != null && lastParam.dataType != null && lastParam.dataType.equals(param.dataType)) {
|
||||
param.vendorExtensions.put("x-duplicate", true);
|
||||
param.vendorExtensions.put(X_DUPLICATE, true);
|
||||
return true;
|
||||
}
|
||||
return false;
|
||||
@ -714,7 +757,7 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
xPath = xPath.replaceAll("^\\[,", "[");
|
||||
xPath = xPath.replaceAll(",\\]$", "]");
|
||||
}
|
||||
op.vendorExtensions.put("x-path", xPath);
|
||||
op.vendorExtensions.put(X_PATH, xPath);
|
||||
}
|
||||
|
||||
|
||||
@ -725,9 +768,9 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
|
||||
String mimeType = getMimeDataType(mediaType);
|
||||
typeNames.add(mimeType);
|
||||
m.put(MEDIA_DATA_TYPE, mimeType);
|
||||
m.put(X_MEDIA_DATA_TYPE, mimeType);
|
||||
if (isJsonMimeType(mediaType)) {
|
||||
m.put(MEDIA_IS_JSON, "true");
|
||||
m.put(X_MEDIA_IS_JSON, "true");
|
||||
}
|
||||
|
||||
if (!knownMimeDataTypes.containsValue(mimeType) && !unknownMimeTypesContainsType(mimeType)) {
|
||||
@ -744,7 +787,7 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
|
||||
private Boolean unknownMimeTypesContainsType(String mimeType) {
|
||||
for(Map<String,String> m : unknownMimeTypes) {
|
||||
String mimeType0 = m.get(MEDIA_DATA_TYPE);
|
||||
String mimeType0 = m.get(X_MEDIA_DATA_TYPE);
|
||||
if(mimeType0 != null && mimeType0.equals(mimeType)) {
|
||||
return true;
|
||||
}
|
||||
@ -913,31 +956,50 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
else
|
||||
return "True";
|
||||
}
|
||||
} else if (p instanceof DoubleProperty) {
|
||||
DoubleProperty dp = (DoubleProperty) p;
|
||||
if (dp.getDefault() != null) {
|
||||
return dp.getDefault().toString();
|
||||
}
|
||||
} else if (p instanceof FloatProperty) {
|
||||
FloatProperty dp = (FloatProperty) p;
|
||||
if (dp.getDefault() != null) {
|
||||
return dp.getDefault().toString();
|
||||
}
|
||||
} else if (p instanceof IntegerProperty) {
|
||||
IntegerProperty dp = (IntegerProperty) p;
|
||||
if (dp.getDefault() != null) {
|
||||
return dp.getDefault().toString();
|
||||
}
|
||||
} else if (p instanceof LongProperty) {
|
||||
LongProperty dp = (LongProperty) p;
|
||||
if (dp.getDefault() != null) {
|
||||
return dp.getDefault().toString();
|
||||
}
|
||||
}
|
||||
|
||||
return null;
|
||||
}
|
||||
|
||||
@Override
|
||||
public String toEnumName(CodegenProperty property) {
|
||||
return "Enum'" + toTypeName("", property.name);
|
||||
}
|
||||
|
||||
@Override
|
||||
public String toEnumVarName(String value, String datatype) {
|
||||
List<String> num = new ArrayList<>(Arrays.asList("integer","int","double","long","float"));
|
||||
if (value.length() == 0) {
|
||||
return "E'Empty";
|
||||
}
|
||||
|
||||
// for symbol, e.g. $, #
|
||||
if (getSymbolName(value) != null) {
|
||||
return "E'" + sanitizeName(getSymbolName(value));
|
||||
}
|
||||
|
||||
// number
|
||||
if (num.contains(datatype.toLowerCase())) {
|
||||
String varName = "Num" + value;
|
||||
varName = varName.replaceAll("-", "Minus_");
|
||||
varName = varName.replaceAll("\\+", "Plus_");
|
||||
varName = varName.replaceAll("\\.", "_Dot_");
|
||||
return "E'" + sanitizeName(varName);
|
||||
}
|
||||
|
||||
return "E'" + sanitizeName(value);
|
||||
}
|
||||
|
||||
@Override
|
||||
public String toEnumValue(String value, String datatype) {
|
||||
List<String> num = new ArrayList<>(Arrays.asList("integer","int","double","long","float"));
|
||||
if(num.contains(datatype.toLowerCase())) {
|
||||
return value;
|
||||
} else {
|
||||
return "\"" + escapeText(value) + "\"";
|
||||
}
|
||||
}
|
||||
|
||||
// override with any special text escaping logic
|
||||
@SuppressWarnings("static-method")
|
||||
public String escapeText(String input) {
|
||||
|
||||
@ -4,6 +4,7 @@ Module : {{title}}.API
|
||||
-}
|
||||
|
||||
{-# LANGUAGE ConstraintKinds #-}
|
||||
{-# LANGUAGE ExistentialQuantification #-}
|
||||
{-# LANGUAGE FlexibleContexts #-}
|
||||
{-# LANGUAGE FlexibleInstances #-}
|
||||
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
||||
@ -13,49 +14,38 @@ Module : {{title}}.API
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
{-# LANGUAGE ExistentialQuantification #-}
|
||||
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
|
||||
|
||||
module {{title}}.API where
|
||||
|
||||
|
||||
import {{title}}.Model as M
|
||||
import {{title}}.Core
|
||||
import {{title}}.MimeTypes
|
||||
import {{title}}.Lens
|
||||
import {{title}}.Model as M
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
|
||||
import qualified Data.Time as TI
|
||||
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Builder as BB
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
import qualified Data.ByteString.Base64 as B64
|
||||
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Media as ME
|
||||
import qualified Network.HTTP.Types as NH
|
||||
|
||||
import qualified Web.HttpApiData as WH
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
|
||||
import qualified Data.CaseInsensitive as CI
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
|
||||
import qualified Data.Foldable as P
|
||||
import qualified Data.Map as Map
|
||||
import qualified Data.Set as Set
|
||||
import qualified Data.Maybe as P
|
||||
import qualified Data.Proxy as P (Proxy(..))
|
||||
import qualified Data.Set as Set
|
||||
import qualified Data.String as P
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Data.Text.Lazy as TL
|
||||
import qualified Data.Text.Lazy.Encoding as TL
|
||||
import qualified Data.Time as TI
|
||||
import qualified GHC.Base as P (Alternative)
|
||||
import qualified Control.Arrow as P (left)
|
||||
|
||||
import qualified Lens.Micro as L
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Media as ME
|
||||
import qualified Network.HTTP.Types as NH
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Function ((&))
|
||||
@ -83,11 +73,11 @@ import qualified Prelude as P
|
||||
-- Note: Has 'Produces' instances, but no response schema
|
||||
-- {{/vendorExtensions.x-hasUnknownReturn}}
|
||||
{{operationId}}
|
||||
:: {{#vendorExtensions.x-hasBodyOrFormParam}}(Consumes {{{vendorExtensions.x-operationType}}} contentType{{#allParams}}{{#isBodyParam}}{{#required}}, MimeRender contentType {{#vendorExtensions.x-paramNameType}}{{{.}}}{{/vendorExtensions.x-paramNameType}}{{^vendorExtensions.x-paramNameType}}{{{dataType}}}{{/vendorExtensions.x-paramNameType}}{{/required}}{{/isBodyParam}}{{/allParams}})
|
||||
=> contentType -- ^ request content-type ('MimeType')
|
||||
-> {{/vendorExtensions.x-hasBodyOrFormParam}}{{#allParams}}{{#required}}{{#vendorExtensions.x-paramNameType}}{{{.}}}{{/vendorExtensions.x-paramNameType}}{{^vendorExtensions.x-paramNameType}}{{{dataType}}}{{/vendorExtensions.x-paramNameType}} -- ^ "{{{paramName}}}"{{#description}} - {{/description}} {{{description}}}
|
||||
-> {{/required}}{{/allParams}}{{requestType}} {{{vendorExtensions.x-operationType}}} {{#vendorExtensions.x-hasBodyOrFormParam}}contentType{{/vendorExtensions.x-hasBodyOrFormParam}}{{^vendorExtensions.x-hasBodyOrFormParam}}MimeNoContent{{/vendorExtensions.x-hasBodyOrFormParam}} {{vendorExtensions.x-returnType}}
|
||||
{{operationId}} {{#vendorExtensions.x-hasBodyOrFormParam}}_ {{/vendorExtensions.x-hasBodyOrFormParam}}{{#allParams}}{{#required}}{{#isBodyParam}}{{{paramName}}}{{/isBodyParam}}{{^isBodyParam}}({{{vendorExtensions.x-paramNameType}}} {{{paramName}}}){{/isBodyParam}} {{/required}}{{/allParams}}=
|
||||
:: {{#vendorExtensions.x-hasBodyOrFormParam}}(Consumes {{{vendorExtensions.x-operationType}}} {{>_contentType}}{{#allParams}}{{#isBodyParam}}{{#required}}, MimeRender {{>_contentType}} {{#vendorExtensions.x-paramNameType}}{{{.}}}{{/vendorExtensions.x-paramNameType}}{{^vendorExtensions.x-paramNameType}}{{{dataType}}}{{/vendorExtensions.x-paramNameType}}{{/required}}{{/isBodyParam}}{{/allParams}})
|
||||
=> {{^vendorExtensions.x-inlineContentType}}contentType -- ^ request content-type ('MimeType')
|
||||
-> {{/vendorExtensions.x-inlineContentType}}{{/vendorExtensions.x-hasBodyOrFormParam}}{{#allParams}}{{#required}}{{#vendorExtensions.x-paramNameType}}{{{.}}}{{/vendorExtensions.x-paramNameType}}{{^vendorExtensions.x-paramNameType}}{{{dataType}}}{{/vendorExtensions.x-paramNameType}} -- ^ "{{{paramName}}}"{{#description}} - {{/description}} {{{description}}}
|
||||
-> {{/required}}{{/allParams}}{{requestType}} {{{vendorExtensions.x-operationType}}} {{#vendorExtensions.x-hasBodyOrFormParam}}{{>_contentType}}{{/vendorExtensions.x-hasBodyOrFormParam}}{{^vendorExtensions.x-hasBodyOrFormParam}}MimeNoContent{{/vendorExtensions.x-hasBodyOrFormParam}} {{vendorExtensions.x-returnType}}
|
||||
{{operationId}} {{#vendorExtensions.x-hasBodyOrFormParam}}{{^vendorExtensions.x-inlineContentType}}_ {{/vendorExtensions.x-inlineContentType}}{{/vendorExtensions.x-hasBodyOrFormParam}}{{#allParams}}{{#required}}{{#isBodyParam}}{{{paramName}}}{{/isBodyParam}}{{^isBodyParam}}({{{vendorExtensions.x-paramNameType}}} {{{paramName}}}){{/isBodyParam}} {{/required}}{{/allParams}}=
|
||||
_mkRequest "{{httpMethod}}" {{{vendorExtensions.x-path}}}{{#authMethods}}
|
||||
`_hasAuthType` (P.Proxy :: P.Proxy {{name}}){{/authMethods}}{{#allParams}}{{#required}}{{#isHeaderParam}}
|
||||
`setHeader` {{>_headerColl}} ("{{{baseName}}}", {{{paramName}}}){{/isHeaderParam}}{{#isQueryParam}}
|
||||
@ -117,240 +107,13 @@ instance Produces {{{vendorExtensions.x-operationType}}} {{{x-mediaDataType}}}
|
||||
{{/produces}}{{/hasProduces}}{{/operation}}{{/operations}}{{/apis}}{{/apiInfo}}
|
||||
|
||||
|
||||
-- * HasBodyParam
|
||||
-- * Parameter newtypes
|
||||
|
||||
-- | Designates the body parameter of a request
|
||||
class HasBodyParam req param where
|
||||
setBodyParam :: forall contentType res. (Consumes req contentType, MimeRender contentType param) => {{requestType}} req contentType res -> param -> {{requestType}} req contentType res
|
||||
setBodyParam req xs =
|
||||
req `_setBodyLBS` mimeRender (P.Proxy :: P.Proxy contentType) xs & _setContentTypeHeader
|
||||
{{#x-allUniqueParams}}
|
||||
newtype {{{vendorExtensions.x-paramNameType}}} = {{{vendorExtensions.x-paramNameType}}} { un{{{vendorExtensions.x-paramNameType}}} :: {{{dataType}}} } deriving (P.Eq, P.Show{{#isBodyParam}}, A.ToJSON{{/isBodyParam}})
|
||||
{{/x-allUniqueParams}}
|
||||
|
||||
-- * HasOptionalParam
|
||||
|
||||
-- | Designates the optional parameters of a request
|
||||
class HasOptionalParam req param where
|
||||
{-# MINIMAL applyOptionalParam | (-&-) #-}
|
||||
|
||||
-- | Apply an optional parameter to a request
|
||||
applyOptionalParam :: {{requestType}} req contentType res -> param -> {{requestType}} req contentType res
|
||||
applyOptionalParam = (-&-)
|
||||
{-# INLINE applyOptionalParam #-}
|
||||
|
||||
-- | infix operator \/ alias for 'addOptionalParam'
|
||||
(-&-) :: {{requestType}} req contentType res -> param -> {{requestType}} req contentType res
|
||||
(-&-) = applyOptionalParam
|
||||
{-# INLINE (-&-) #-}
|
||||
|
||||
infixl 2 -&-
|
||||
|
||||
-- * {{requestType}}
|
||||
|
||||
-- | Represents a request. The "req" type variable is the request type. The "res" type variable is the response type.
|
||||
data {{requestType}} req contentType res = {{requestType}}
|
||||
{ rMethod :: NH.Method -- ^ Method of {{requestType}}
|
||||
, rUrlPath :: [BCL.ByteString] -- ^ Endpoint of {{requestType}}
|
||||
, rParams :: Params -- ^ params of {{requestType}}
|
||||
, rAuthTypes :: [P.TypeRep] -- ^ types of auth methods
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'rMethod' Lens
|
||||
rMethodL :: Lens_' ({{requestType}} req contentType res) NH.Method
|
||||
rMethodL f {{requestType}}{..} = (\rMethod -> {{requestType}} { rMethod, ..} ) <$> f rMethod
|
||||
{-# INLINE rMethodL #-}
|
||||
|
||||
-- | 'rUrlPath' Lens
|
||||
rUrlPathL :: Lens_' ({{requestType}} req contentType res) [BCL.ByteString]
|
||||
rUrlPathL f {{requestType}}{..} = (\rUrlPath -> {{requestType}} { rUrlPath, ..} ) <$> f rUrlPath
|
||||
{-# INLINE rUrlPathL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rParamsL :: Lens_' ({{requestType}} req contentType res) Params
|
||||
rParamsL f {{requestType}}{..} = (\rParams -> {{requestType}} { rParams, ..} ) <$> f rParams
|
||||
{-# INLINE rParamsL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rAuthTypesL :: Lens_' ({{requestType}} req contentType res) [P.TypeRep]
|
||||
rAuthTypesL f {{requestType}}{..} = (\rAuthTypes -> {{requestType}} { rAuthTypes, ..} ) <$> f rAuthTypes
|
||||
{-# INLINE rAuthTypesL #-}
|
||||
|
||||
-- | Request Params
|
||||
data Params = Params
|
||||
{ paramsQuery :: NH.Query
|
||||
, paramsHeaders :: NH.RequestHeaders
|
||||
, paramsBody :: ParamBody
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'paramsQuery' Lens
|
||||
paramsQueryL :: Lens_' Params NH.Query
|
||||
paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery
|
||||
{-# INLINE paramsQueryL #-}
|
||||
|
||||
-- | 'paramsHeaders' Lens
|
||||
paramsHeadersL :: Lens_' Params NH.RequestHeaders
|
||||
paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders
|
||||
{-# INLINE paramsHeadersL #-}
|
||||
|
||||
-- | 'paramsBody' Lens
|
||||
paramsBodyL :: Lens_' Params ParamBody
|
||||
paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody
|
||||
{-# INLINE paramsBodyL #-}
|
||||
|
||||
-- | Request Body
|
||||
data ParamBody
|
||||
= ParamBodyNone
|
||||
| ParamBodyB B.ByteString
|
||||
| ParamBodyBL BL.ByteString
|
||||
| ParamBodyFormUrlEncoded WH.Form
|
||||
| ParamBodyMultipartFormData [NH.Part]
|
||||
deriving (P.Show)
|
||||
|
||||
-- ** {{requestType}} Utils
|
||||
|
||||
_mkRequest :: NH.Method -- ^ Method
|
||||
-> [BCL.ByteString] -- ^ Endpoint
|
||||
-> {{requestType}} req contentType res -- ^ req: Request Type, res: Response Type
|
||||
_mkRequest m u = {{requestType}} m u _mkParams []
|
||||
|
||||
_mkParams :: Params
|
||||
_mkParams = Params [] [] ParamBodyNone
|
||||
|
||||
setHeader :: {{requestType}} req contentType res -> [NH.Header] -> {{requestType}} req contentType res
|
||||
setHeader req header =
|
||||
req `removeHeader` P.fmap P.fst header &
|
||||
L.over (rParamsL . paramsHeadersL) (header P.++)
|
||||
|
||||
removeHeader :: {{requestType}} req contentType res -> [NH.HeaderName] -> {{requestType}} req contentType res
|
||||
removeHeader req header =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsHeadersL)
|
||||
(P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
|
||||
_setContentTypeHeader :: forall req contentType res. MimeType contentType => {{requestType}} req contentType res -> {{requestType}} req contentType res
|
||||
_setContentTypeHeader req =
|
||||
case mimeType (P.Proxy :: P.Proxy contentType) of
|
||||
Just m -> req `setHeader` [("content-type", BC.pack $ P.show m)]
|
||||
Nothing -> req `removeHeader` ["content-type"]
|
||||
|
||||
_setAcceptHeader :: forall req contentType res accept. MimeType accept => {{requestType}} req contentType res -> accept -> {{requestType}} req contentType res
|
||||
_setAcceptHeader req accept =
|
||||
case mimeType' accept of
|
||||
Just m -> req `setHeader` [("accept", BC.pack $ P.show m)]
|
||||
Nothing -> req `removeHeader` ["accept"]
|
||||
|
||||
setQuery :: {{requestType}} req contentType res -> [NH.QueryItem] -> {{requestType}} req contentType res
|
||||
setQuery req query =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsQueryL)
|
||||
((query P.++) . P.filter (\q -> cifst q `P.notElem` P.fmap cifst query))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
addForm :: {{requestType}} req contentType res -> WH.Form -> {{requestType}} req contentType res
|
||||
addForm req newform =
|
||||
let form = case paramsBody (rParams req) of
|
||||
ParamBodyFormUrlEncoded _form -> _form
|
||||
_ -> mempty
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form))
|
||||
|
||||
_addMultiFormPart :: {{requestType}} req contentType res -> NH.Part -> {{requestType}} req contentType res
|
||||
_addMultiFormPart req newpart =
|
||||
let parts = case paramsBody (rParams req) of
|
||||
ParamBodyMultipartFormData _parts -> _parts
|
||||
_ -> []
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts))
|
||||
|
||||
_setBodyBS :: {{requestType}} req contentType res -> B.ByteString -> {{requestType}} req contentType res
|
||||
_setBodyBS req body =
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyB body)
|
||||
|
||||
_setBodyLBS :: {{requestType}} req contentType res -> BL.ByteString -> {{requestType}} req contentType res
|
||||
_setBodyLBS req body =
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body)
|
||||
|
||||
_hasAuthType :: AuthMethod authMethod => {{requestType}} req contentType res -> P.Proxy authMethod -> {{requestType}} req contentType res
|
||||
_hasAuthType req proxy =
|
||||
req & L.over rAuthTypesL (P.typeRep proxy :)
|
||||
|
||||
-- ** Params Utils
|
||||
|
||||
toPath
|
||||
:: WH.ToHttpApiData a
|
||||
=> a -> BCL.ByteString
|
||||
toPath = BB.toLazyByteString . WH.toEncodedUrlPiece
|
||||
|
||||
toHeader :: WH.ToHttpApiData a => (NH.HeaderName, a) -> [NH.Header]
|
||||
toHeader x = [fmap WH.toHeader x]
|
||||
|
||||
toForm :: WH.ToHttpApiData v => (BC.ByteString, v) -> WH.Form
|
||||
toForm (k,v) = WH.toForm [(BC.unpack k,v)]
|
||||
|
||||
toQuery :: WH.ToHttpApiData a => (BC.ByteString, Maybe a) -> [NH.QueryItem]
|
||||
toQuery x = [(fmap . fmap) toQueryParam x]
|
||||
where toQueryParam = T.encodeUtf8 . WH.toQueryParam
|
||||
|
||||
-- *** Swagger `CollectionFormat` Utils
|
||||
|
||||
-- | Determines the format of the array if type array is used.
|
||||
data CollectionFormat
|
||||
= CommaSeparated -- ^ CSV format for multiple parameters.
|
||||
| SpaceSeparated -- ^ Also called "SSV"
|
||||
| TabSeparated -- ^ Also called "TSV"
|
||||
| PipeSeparated -- ^ `value1|value2|value2`
|
||||
| MultiParamArray -- ^ Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form')
|
||||
|
||||
toHeaderColl :: WH.ToHttpApiData a => CollectionFormat -> (NH.HeaderName, [a]) -> [NH.Header]
|
||||
toHeaderColl c xs = _toColl c toHeader xs
|
||||
|
||||
toFormColl :: WH.ToHttpApiData v => CollectionFormat -> (BC.ByteString, [v]) -> WH.Form
|
||||
toFormColl c xs = WH.toForm $ fmap unpack $ _toColl c toHeader $ pack xs
|
||||
where
|
||||
pack (k,v) = (CI.mk k, v)
|
||||
unpack (k,v) = (BC.unpack (CI.original k), BC.unpack v)
|
||||
|
||||
toQueryColl :: WH.ToHttpApiData a => CollectionFormat -> (BC.ByteString, Maybe [a]) -> NH.Query
|
||||
toQueryColl c xs = _toCollA c toQuery xs
|
||||
|
||||
_toColl :: P.Traversable f => CollectionFormat -> (f a -> [(b, BC.ByteString)]) -> f [a] -> [(b, BC.ByteString)]
|
||||
_toColl c encode xs = fmap (fmap P.fromJust) (_toCollA' c fencode BC.singleton (fmap Just xs))
|
||||
where fencode = fmap (fmap Just) . encode . fmap P.fromJust
|
||||
{-# INLINE fencode #-}
|
||||
|
||||
_toCollA :: (P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t BC.ByteString)]) -> f (t [a]) -> [(b, t BC.ByteString)]
|
||||
_toCollA c encode xs = _toCollA' c encode BC.singleton xs
|
||||
|
||||
_toCollA' :: (P.Monoid c, P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)]
|
||||
_toCollA' c encode one xs = case c of
|
||||
CommaSeparated -> go (one ',')
|
||||
SpaceSeparated -> go (one ' ')
|
||||
TabSeparated -> go (one '\t')
|
||||
PipeSeparated -> go (one '|')
|
||||
MultiParamArray -> expandList
|
||||
where
|
||||
go sep =
|
||||
[P.foldl1 (\(sk, sv) (_, v) -> (sk, (combine sep <$> sv <*> v) <|> sv <|> v)) expandList]
|
||||
combine sep x y = x <> sep <> y
|
||||
expandList = (P.concatMap encode . (P.traverse . P.traverse) P.toList) xs
|
||||
{-# INLINE go #-}
|
||||
{-# INLINE expandList #-}
|
||||
{-# INLINE combine #-}
|
||||
|
||||
-- * AuthMethods
|
||||
|
||||
-- | Provides a method to apply auth methods to requests
|
||||
class P.Typeable a => AuthMethod a where
|
||||
applyAuthMethod :: {{requestType}} req contentType res -> a -> {{requestType}} req contentType res
|
||||
|
||||
-- | An existential wrapper for any AuthMethod
|
||||
data AnyAuthMethod = forall a. AuthMethod a => AnyAuthMethod a deriving (P.Typeable)
|
||||
|
||||
instance AuthMethod AnyAuthMethod where applyAuthMethod req (AnyAuthMethod a) = applyAuthMethod req a
|
||||
-- * Auth Methods
|
||||
|
||||
{{#authMethods}}{{#isBasic}}-- ** {{name}}
|
||||
data {{name}} =
|
||||
@ -358,9 +121,11 @@ data {{name}} =
|
||||
deriving (P.Eq, P.Show, P.Typeable)
|
||||
|
||||
instance AuthMethod {{name}} where
|
||||
applyAuthMethod req a@({{name}} user pw) =
|
||||
applyAuthMethod _ a@({{name}} user pw) req =
|
||||
P.pure $
|
||||
if (P.typeOf a `P.elem` rAuthTypes req)
|
||||
then req `setHeader` toHeader ("Authorization", T.decodeUtf8 cred)
|
||||
& L.over rAuthTypesL (P.filter (/= P.typeOf a))
|
||||
else req
|
||||
where cred = BC.append "Basic " (B64.encode $ BC.concat [ user, ":", pw ])
|
||||
|
||||
@ -370,9 +135,11 @@ data {{name}} =
|
||||
deriving (P.Eq, P.Show, P.Typeable)
|
||||
|
||||
instance AuthMethod {{name}} where
|
||||
applyAuthMethod req a@({{name}} secret) =
|
||||
applyAuthMethod _ a@({{name}} secret) req =
|
||||
P.pure $
|
||||
if (P.typeOf a `P.elem` rAuthTypes req)
|
||||
then req {{#isKeyInHeader}}`setHeader` toHeader ("{{keyParamName}}", secret){{/isKeyInHeader}}{{^isKeyInHeader}}`setQuery` toQuery ("{{keyParamName}}", Just secret){{/isKeyInHeader}}
|
||||
& L.over rAuthTypesL (P.filter (/= P.typeOf a))
|
||||
else req
|
||||
|
||||
{{/isApiKey}}{{#isOAuth}}-- ** {{name}}
|
||||
@ -381,9 +148,28 @@ data {{name}} =
|
||||
deriving (P.Eq, P.Show, P.Typeable)
|
||||
|
||||
instance AuthMethod {{name}} where
|
||||
applyAuthMethod req a@({{name}} secret) =
|
||||
applyAuthMethod _ a@({{name}} secret) req =
|
||||
P.pure $
|
||||
if (P.typeOf a `P.elem` rAuthTypes req)
|
||||
then req `setHeader` toHeader ("Authorization", "Bearer " <> secret)
|
||||
& L.over rAuthTypesL (P.filter (/= P.typeOf a))
|
||||
else req
|
||||
|
||||
{{/isOAuth}}{{/authMethods}}
|
||||
|
||||
{{#x-hasUnknownMimeTypes}}
|
||||
-- * Custom Mime Types
|
||||
|
||||
{{#x-unknownMimeTypes}}-- ** {{{x-mediaDataType}}}
|
||||
|
||||
data {{{x-mediaDataType}}} = {{{x-mediaDataType}}} deriving (P.Typeable)
|
||||
|
||||
-- | @{{{mediaType}}}@
|
||||
instance MimeType {{{x-mediaDataType}}} where
|
||||
mimeType _ = Just $ P.fromString "{{{mediaType}}}"{{#x-mediaIsJson}}
|
||||
instance A.ToJSON a => MimeRender {{{x-mediaDataType}}} a where mimeRender _ = A.encode
|
||||
instance A.FromJSON a => MimeUnrender {{{x-mediaDataType}}} a where mimeUnrender _ = A.eitherDecode{{/x-mediaIsJson}}
|
||||
-- instance MimeRender {{{x-mediaDataType}}} T.Text where mimeRender _ = undefined
|
||||
-- instance MimeUnrender {{{x-mediaDataType}}} T.Text where mimeUnrender _ = undefined
|
||||
|
||||
{{/x-unknownMimeTypes}}{{/x-hasUnknownMimeTypes}}
|
||||
|
||||
@ -15,102 +15,30 @@ Module : {{title}}.Client
|
||||
|
||||
module {{title}}.Client where
|
||||
|
||||
import {{title}}.Model
|
||||
import {{title}}.API
|
||||
import {{title}}.MimeTypes
|
||||
import {{title}}.Core
|
||||
import {{title}}.Logging
|
||||
import {{title}}.MimeTypes
|
||||
|
||||
import qualified Control.Exception.Safe as E
|
||||
import qualified Control.Monad.IO.Class as P
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Control.Monad as P
|
||||
import qualified Data.Aeson.Types as A
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
import qualified Data.Proxy as P (Proxy(..))
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Network.HTTP.Client as NH
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Types as NH
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import Data.Function ((&))
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Text (Text)
|
||||
import GHC.Exts (IsString(..))
|
||||
import Web.FormUrlEncoded as WH
|
||||
import Web.HttpApiData as WH
|
||||
import Control.Monad.Catch (MonadThrow)
|
||||
|
||||
import qualified Data.Time as TI
|
||||
import qualified Data.Map as Map
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Text.Printf as T
|
||||
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
import qualified Data.ByteString.Builder as BB
|
||||
import qualified Network.HTTP.Client as NH
|
||||
import qualified Network.HTTP.Client.TLS as NH
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Types.Method as NH
|
||||
import qualified Network.HTTP.Types as NH
|
||||
import qualified Network.HTTP.Types.URI as NH
|
||||
|
||||
import qualified Control.Exception.Safe as E
|
||||
-- * Config
|
||||
|
||||
-- |
|
||||
data {{configType}} = {{configType}}
|
||||
{ configHost :: BCL.ByteString -- ^ host supplied in the Request
|
||||
, configUserAgent :: Text -- ^ user-agent supplied in the Request
|
||||
, configLogExecWithContext :: LogExecWithContext -- ^ Run a block using a Logger instance
|
||||
, configLogContext :: LogContext -- ^ Configures the logger
|
||||
, configAuthMethods :: [AnyAuthMethod] -- ^ List of configured auth methods
|
||||
}
|
||||
|
||||
-- | display the config
|
||||
instance Show {{configType}} where
|
||||
show c =
|
||||
T.printf
|
||||
"{ configHost = %v, configUserAgent = %v, ..}"
|
||||
(show (configHost c))
|
||||
(show (configUserAgent c))
|
||||
|
||||
-- | constructs a default {{configType}}
|
||||
--
|
||||
-- configHost:
|
||||
--
|
||||
-- @{{basePath}}@
|
||||
--
|
||||
-- configUserAgent:
|
||||
--
|
||||
-- @"{{#httpUserAgent}}{{{.}}}{{/httpUserAgent}}{{^httpUserAgent}}{{{artifactId}}}/{{{artifactVersion}}}{{/httpUserAgent}}"@
|
||||
--
|
||||
newConfig :: IO {{configType}}
|
||||
newConfig = do
|
||||
logCxt <- initLogContext
|
||||
return $ {{configType}}
|
||||
{ configHost = "{{{basePath}}}"
|
||||
, configUserAgent = "{{#httpUserAgent}}{{{.}}}{{/httpUserAgent}}{{^httpUserAgent}}{{{artifactId}}}/{{{artifactVersion}}}{{/httpUserAgent}}"
|
||||
, configLogExecWithContext = runDefaultLogExecWithContext
|
||||
, configLogContext = logCxt
|
||||
, configAuthMethods = []
|
||||
}
|
||||
|
||||
-- | updates config use AuthMethod on matching requests
|
||||
addAuthMethod :: AuthMethod auth => {{configType}} -> auth -> {{configType}}
|
||||
addAuthMethod config@{{configType}} {configAuthMethods = as} a =
|
||||
config { configAuthMethods = AnyAuthMethod a : as}
|
||||
|
||||
-- | updates the config to use stdout logging
|
||||
withStdoutLogging :: {{configType}} -> IO {{configType}}
|
||||
withStdoutLogging p = do
|
||||
logCxt <- stdoutLoggingContext (configLogContext p)
|
||||
return $ p { configLogExecWithContext = stdoutLoggingExec, configLogContext = logCxt }
|
||||
|
||||
-- | updates the config to use stderr logging
|
||||
withStderrLogging :: {{configType}} -> IO {{configType}}
|
||||
withStderrLogging p = do
|
||||
logCxt <- stderrLoggingContext (configLogContext p)
|
||||
return $ p { configLogExecWithContext = stderrLoggingExec, configLogContext = logCxt }
|
||||
|
||||
-- | updates the config to disable logging
|
||||
withNoLogging :: {{configType}} -> {{configType}}
|
||||
withNoLogging p = p { configLogExecWithContext = runNullLogExec}
|
||||
|
||||
-- * Dispatch
|
||||
|
||||
@ -233,35 +161,28 @@ _toInitRequest
|
||||
-> {{requestType}} req contentType res -- ^ request
|
||||
-> accept -- ^ "accept" 'MimeType'
|
||||
-> IO (InitRequest req contentType res accept) -- ^ initialized request
|
||||
_toInitRequest config req0 accept = do
|
||||
parsedReq <- NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0))
|
||||
let req1 = _applyAuthMethods req0 config
|
||||
& _setContentTypeHeader
|
||||
& flip _setAcceptHeader accept
|
||||
reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (rParams req1)
|
||||
reqQuery = NH.renderQuery True (paramsQuery (rParams req1))
|
||||
pReq = parsedReq { NH.method = (rMethod req1)
|
||||
, NH.requestHeaders = reqHeaders
|
||||
, NH.queryString = reqQuery
|
||||
}
|
||||
outReq <- case paramsBody (rParams req1) of
|
||||
ParamBodyNone -> pure (pReq { NH.requestBody = mempty })
|
||||
ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs })
|
||||
ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl })
|
||||
ParamBodyFormUrlEncoded form -> pure (pReq { NH.requestBody = NH.RequestBodyLBS (WH.urlEncodeForm form) })
|
||||
ParamBodyMultipartFormData parts -> NH.formDataBody parts pReq
|
||||
_toInitRequest config req0 accept =
|
||||
runConfigLogWithExceptions "Client" config $ do
|
||||
parsedReq <- P.liftIO $ NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0))
|
||||
req1 <- P.liftIO $ _applyAuthMethods req0 config
|
||||
P.when
|
||||
(configValidateAuthMethods config && (not . null . rAuthTypes) req1)
|
||||
(E.throwString $ "AuthMethod not configured: " <> (show . head . rAuthTypes) req1)
|
||||
let req2 = req1 & _setContentTypeHeader & flip _setAcceptHeader accept
|
||||
reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (rParams req2)
|
||||
reqQuery = NH.renderQuery True (paramsQuery (rParams req2))
|
||||
pReq = parsedReq { NH.method = (rMethod req2)
|
||||
, NH.requestHeaders = reqHeaders
|
||||
, NH.queryString = reqQuery
|
||||
}
|
||||
outReq <- case paramsBody (rParams req2) of
|
||||
ParamBodyNone -> pure (pReq { NH.requestBody = mempty })
|
||||
ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs })
|
||||
ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl })
|
||||
ParamBodyFormUrlEncoded form -> pure (pReq { NH.requestBody = NH.RequestBodyLBS (WH.urlEncodeForm form) })
|
||||
ParamBodyMultipartFormData parts -> NH.formDataBody parts pReq
|
||||
|
||||
pure (InitRequest outReq)
|
||||
|
||||
-- | apply all matching AuthMethods in config to request
|
||||
_applyAuthMethods
|
||||
:: {{requestType}} req contentType res
|
||||
-> {{configType}}
|
||||
-> {{requestType}} req contentType res
|
||||
_applyAuthMethods req {{configType}} {configAuthMethods = as} =
|
||||
foldl go req as
|
||||
where
|
||||
go r (AnyAuthMethod a) = r `applyAuthMethod` a
|
||||
pure (InitRequest outReq)
|
||||
|
||||
-- | modify the underlying Request
|
||||
modifyInitRequest :: InitRequest req contentType res accept -> (NH.Request -> NH.Request) -> InitRequest req contentType res accept
|
||||
|
||||
@ -0,0 +1,522 @@
|
||||
{{>partial_header}}
|
||||
{-|
|
||||
Module : {{title}}.Core
|
||||
-}
|
||||
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
{-# LANGUAGE ExistentialQuantification #-}
|
||||
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
||||
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE RankNTypes #-}
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
{-# LANGUAGE TupleSections #-}
|
||||
{-# LANGUAGE TypeFamilies #-}
|
||||
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds #-}
|
||||
|
||||
module {{title}}.Core where
|
||||
|
||||
import {{title}}.MimeTypes
|
||||
import {{title}}.Logging
|
||||
|
||||
import qualified Control.Arrow as P (left)
|
||||
import qualified Control.DeepSeq as NF
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Base64.Lazy as BL64
|
||||
import qualified Data.ByteString.Builder as BB
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
import qualified Data.CaseInsensitive as CI
|
||||
import qualified Data.Data as P (Data, Typeable, TypeRep, typeRep)
|
||||
import qualified Data.Foldable as P
|
||||
import qualified Data.Ix as P
|
||||
import qualified Data.Maybe as P
|
||||
import qualified Data.Proxy as P (Proxy(..))
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Data.Time as TI
|
||||
import qualified Data.Time.ISO8601 as TI
|
||||
import qualified GHC.Base as P (Alternative)
|
||||
import qualified Lens.Micro as L
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Types as NH
|
||||
import qualified Prelude as P
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
import qualified Text.Printf as T
|
||||
|
||||
import Control.Applicative ((<|>))
|
||||
import Control.Applicative (Alternative)
|
||||
import Data.Function ((&))
|
||||
import Data.Foldable(foldlM)
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Text (Text)
|
||||
import Prelude (($), (.), (<$>), (<*>), Maybe(..), Bool(..), Char, String, fmap, mempty, pure, return, show, IO, Monad, Functor)
|
||||
|
||||
-- * {{configType}}
|
||||
|
||||
-- |
|
||||
data {{configType}} = {{configType}}
|
||||
{ configHost :: BCL.ByteString -- ^ host supplied in the Request
|
||||
, configUserAgent :: Text -- ^ user-agent supplied in the Request
|
||||
, configLogExecWithContext :: LogExecWithContext -- ^ Run a block using a Logger instance
|
||||
, configLogContext :: LogContext -- ^ Configures the logger
|
||||
, configAuthMethods :: [AnyAuthMethod] -- ^ List of configured auth methods
|
||||
, configValidateAuthMethods :: Bool -- ^ throw exceptions if auth methods are not configured
|
||||
}
|
||||
|
||||
-- | display the config
|
||||
instance P.Show {{configType}} where
|
||||
show c =
|
||||
T.printf
|
||||
"{ configHost = %v, configUserAgent = %v, ..}"
|
||||
(show (configHost c))
|
||||
(show (configUserAgent c))
|
||||
|
||||
-- | constructs a default {{configType}}
|
||||
--
|
||||
-- configHost:
|
||||
--
|
||||
-- @{{basePath}}@
|
||||
--
|
||||
-- configUserAgent:
|
||||
--
|
||||
-- @"{{#httpUserAgent}}{{{.}}}{{/httpUserAgent}}{{^httpUserAgent}}{{{artifactId}}}/{{{artifactVersion}}}{{/httpUserAgent}}"@
|
||||
--
|
||||
newConfig :: IO {{configType}}
|
||||
newConfig = do
|
||||
logCxt <- initLogContext
|
||||
return $ {{configType}}
|
||||
{ configHost = "{{{basePath}}}"
|
||||
, configUserAgent = "{{#httpUserAgent}}{{{.}}}{{/httpUserAgent}}{{^httpUserAgent}}{{{artifactId}}}/{{{artifactVersion}}}{{/httpUserAgent}}"
|
||||
, configLogExecWithContext = runDefaultLogExecWithContext
|
||||
, configLogContext = logCxt
|
||||
, configAuthMethods = []
|
||||
, configValidateAuthMethods = True
|
||||
}
|
||||
|
||||
-- | updates config use AuthMethod on matching requests
|
||||
addAuthMethod :: AuthMethod auth => {{configType}} -> auth -> {{configType}}
|
||||
addAuthMethod config@{{configType}} {configAuthMethods = as} a =
|
||||
config { configAuthMethods = AnyAuthMethod a : as}
|
||||
|
||||
-- | updates the config to use stdout logging
|
||||
withStdoutLogging :: {{configType}} -> IO {{configType}}
|
||||
withStdoutLogging p = do
|
||||
logCxt <- stdoutLoggingContext (configLogContext p)
|
||||
return $ p { configLogExecWithContext = stdoutLoggingExec, configLogContext = logCxt }
|
||||
|
||||
-- | updates the config to use stderr logging
|
||||
withStderrLogging :: {{configType}} -> IO {{configType}}
|
||||
withStderrLogging p = do
|
||||
logCxt <- stderrLoggingContext (configLogContext p)
|
||||
return $ p { configLogExecWithContext = stderrLoggingExec, configLogContext = logCxt }
|
||||
|
||||
-- | updates the config to disable logging
|
||||
withNoLogging :: {{configType}} -> {{configType}}
|
||||
withNoLogging p = p { configLogExecWithContext = runNullLogExec}
|
||||
|
||||
-- * {{requestType}}
|
||||
|
||||
-- | Represents a request. The "req" type variable is the request type. The "res" type variable is the response type.
|
||||
data {{requestType}} req contentType res = {{requestType}}
|
||||
{ rMethod :: NH.Method -- ^ Method of {{requestType}}
|
||||
, rUrlPath :: [BCL.ByteString] -- ^ Endpoint of {{requestType}}
|
||||
, rParams :: Params -- ^ params of {{requestType}}
|
||||
, rAuthTypes :: [P.TypeRep] -- ^ types of auth methods
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'rMethod' Lens
|
||||
rMethodL :: Lens_' ({{requestType}} req contentType res) NH.Method
|
||||
rMethodL f {{requestType}}{..} = (\rMethod -> {{requestType}} { rMethod, ..} ) <$> f rMethod
|
||||
{-# INLINE rMethodL #-}
|
||||
|
||||
-- | 'rUrlPath' Lens
|
||||
rUrlPathL :: Lens_' ({{requestType}} req contentType res) [BCL.ByteString]
|
||||
rUrlPathL f {{requestType}}{..} = (\rUrlPath -> {{requestType}} { rUrlPath, ..} ) <$> f rUrlPath
|
||||
{-# INLINE rUrlPathL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rParamsL :: Lens_' ({{requestType}} req contentType res) Params
|
||||
rParamsL f {{requestType}}{..} = (\rParams -> {{requestType}} { rParams, ..} ) <$> f rParams
|
||||
{-# INLINE rParamsL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rAuthTypesL :: Lens_' ({{requestType}} req contentType res) [P.TypeRep]
|
||||
rAuthTypesL f {{requestType}}{..} = (\rAuthTypes -> {{requestType}} { rAuthTypes, ..} ) <$> f rAuthTypes
|
||||
{-# INLINE rAuthTypesL #-}
|
||||
|
||||
-- * HasBodyParam
|
||||
|
||||
-- | Designates the body parameter of a request
|
||||
class HasBodyParam req param where
|
||||
setBodyParam :: forall contentType res. (Consumes req contentType, MimeRender contentType param) => {{requestType}} req contentType res -> param -> {{requestType}} req contentType res
|
||||
setBodyParam req xs =
|
||||
req `_setBodyLBS` mimeRender (P.Proxy :: P.Proxy contentType) xs & _setContentTypeHeader
|
||||
|
||||
-- * HasOptionalParam
|
||||
|
||||
-- | Designates the optional parameters of a request
|
||||
class HasOptionalParam req param where
|
||||
{-# MINIMAL applyOptionalParam | (-&-) #-}
|
||||
|
||||
-- | Apply an optional parameter to a request
|
||||
applyOptionalParam :: {{requestType}} req contentType res -> param -> {{requestType}} req contentType res
|
||||
applyOptionalParam = (-&-)
|
||||
{-# INLINE applyOptionalParam #-}
|
||||
|
||||
-- | infix operator \/ alias for 'addOptionalParam'
|
||||
(-&-) :: {{requestType}} req contentType res -> param -> {{requestType}} req contentType res
|
||||
(-&-) = applyOptionalParam
|
||||
{-# INLINE (-&-) #-}
|
||||
|
||||
infixl 2 -&-
|
||||
|
||||
-- | Request Params
|
||||
data Params = Params
|
||||
{ paramsQuery :: NH.Query
|
||||
, paramsHeaders :: NH.RequestHeaders
|
||||
, paramsBody :: ParamBody
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'paramsQuery' Lens
|
||||
paramsQueryL :: Lens_' Params NH.Query
|
||||
paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery
|
||||
{-# INLINE paramsQueryL #-}
|
||||
|
||||
-- | 'paramsHeaders' Lens
|
||||
paramsHeadersL :: Lens_' Params NH.RequestHeaders
|
||||
paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders
|
||||
{-# INLINE paramsHeadersL #-}
|
||||
|
||||
-- | 'paramsBody' Lens
|
||||
paramsBodyL :: Lens_' Params ParamBody
|
||||
paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody
|
||||
{-# INLINE paramsBodyL #-}
|
||||
|
||||
-- | Request Body
|
||||
data ParamBody
|
||||
= ParamBodyNone
|
||||
| ParamBodyB B.ByteString
|
||||
| ParamBodyBL BL.ByteString
|
||||
| ParamBodyFormUrlEncoded WH.Form
|
||||
| ParamBodyMultipartFormData [NH.Part]
|
||||
deriving (P.Show)
|
||||
|
||||
-- ** {{requestType}} Utils
|
||||
|
||||
_mkRequest :: NH.Method -- ^ Method
|
||||
-> [BCL.ByteString] -- ^ Endpoint
|
||||
-> {{requestType}} req contentType res -- ^ req: Request Type, res: Response Type
|
||||
_mkRequest m u = {{requestType}} m u _mkParams []
|
||||
|
||||
_mkParams :: Params
|
||||
_mkParams = Params [] [] ParamBodyNone
|
||||
|
||||
setHeader :: {{requestType}} req contentType res -> [NH.Header] -> {{requestType}} req contentType res
|
||||
setHeader req header =
|
||||
req `removeHeader` P.fmap P.fst header &
|
||||
L.over (rParamsL . paramsHeadersL) (header P.++)
|
||||
|
||||
removeHeader :: {{requestType}} req contentType res -> [NH.HeaderName] -> {{requestType}} req contentType res
|
||||
removeHeader req header =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsHeadersL)
|
||||
(P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
|
||||
_setContentTypeHeader :: forall req contentType res. MimeType contentType => {{requestType}} req contentType res -> {{requestType}} req contentType res
|
||||
_setContentTypeHeader req =
|
||||
case mimeType (P.Proxy :: P.Proxy contentType) of
|
||||
Just m -> req `setHeader` [("content-type", BC.pack $ P.show m)]
|
||||
Nothing -> req `removeHeader` ["content-type"]
|
||||
|
||||
_setAcceptHeader :: forall req contentType res accept. MimeType accept => {{requestType}} req contentType res -> accept -> {{requestType}} req contentType res
|
||||
_setAcceptHeader req accept =
|
||||
case mimeType' accept of
|
||||
Just m -> req `setHeader` [("accept", BC.pack $ P.show m)]
|
||||
Nothing -> req `removeHeader` ["accept"]
|
||||
|
||||
setQuery :: {{requestType}} req contentType res -> [NH.QueryItem] -> {{requestType}} req contentType res
|
||||
setQuery req query =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsQueryL)
|
||||
((query P.++) . P.filter (\q -> cifst q `P.notElem` P.fmap cifst query))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
addForm :: {{requestType}} req contentType res -> WH.Form -> {{requestType}} req contentType res
|
||||
addForm req newform =
|
||||
let form = case paramsBody (rParams req) of
|
||||
ParamBodyFormUrlEncoded _form -> _form
|
||||
_ -> mempty
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form))
|
||||
|
||||
_addMultiFormPart :: {{requestType}} req contentType res -> NH.Part -> {{requestType}} req contentType res
|
||||
_addMultiFormPart req newpart =
|
||||
let parts = case paramsBody (rParams req) of
|
||||
ParamBodyMultipartFormData _parts -> _parts
|
||||
_ -> []
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts))
|
||||
|
||||
_setBodyBS :: {{requestType}} req contentType res -> B.ByteString -> {{requestType}} req contentType res
|
||||
_setBodyBS req body =
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyB body)
|
||||
|
||||
_setBodyLBS :: {{requestType}} req contentType res -> BL.ByteString -> {{requestType}} req contentType res
|
||||
_setBodyLBS req body =
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body)
|
||||
|
||||
_hasAuthType :: AuthMethod authMethod => {{requestType}} req contentType res -> P.Proxy authMethod -> {{requestType}} req contentType res
|
||||
_hasAuthType req proxy =
|
||||
req & L.over rAuthTypesL (P.typeRep proxy :)
|
||||
|
||||
-- ** Params Utils
|
||||
|
||||
toPath
|
||||
:: WH.ToHttpApiData a
|
||||
=> a -> BCL.ByteString
|
||||
toPath = BB.toLazyByteString . WH.toEncodedUrlPiece
|
||||
|
||||
toHeader :: WH.ToHttpApiData a => (NH.HeaderName, a) -> [NH.Header]
|
||||
toHeader x = [fmap WH.toHeader x]
|
||||
|
||||
toForm :: WH.ToHttpApiData v => (BC.ByteString, v) -> WH.Form
|
||||
toForm (k,v) = WH.toForm [(BC.unpack k,v)]
|
||||
|
||||
toQuery :: WH.ToHttpApiData a => (BC.ByteString, Maybe a) -> [NH.QueryItem]
|
||||
toQuery x = [(fmap . fmap) toQueryParam x]
|
||||
where toQueryParam = T.encodeUtf8 . WH.toQueryParam
|
||||
|
||||
-- *** Swagger `CollectionFormat` Utils
|
||||
|
||||
-- | Determines the format of the array if type array is used.
|
||||
data CollectionFormat
|
||||
= CommaSeparated -- ^ CSV format for multiple parameters.
|
||||
| SpaceSeparated -- ^ Also called "SSV"
|
||||
| TabSeparated -- ^ Also called "TSV"
|
||||
| PipeSeparated -- ^ `value1|value2|value2`
|
||||
| MultiParamArray -- ^ Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form')
|
||||
|
||||
toHeaderColl :: WH.ToHttpApiData a => CollectionFormat -> (NH.HeaderName, [a]) -> [NH.Header]
|
||||
toHeaderColl c xs = _toColl c toHeader xs
|
||||
|
||||
toFormColl :: WH.ToHttpApiData v => CollectionFormat -> (BC.ByteString, [v]) -> WH.Form
|
||||
toFormColl c xs = WH.toForm $ fmap unpack $ _toColl c toHeader $ pack xs
|
||||
where
|
||||
pack (k,v) = (CI.mk k, v)
|
||||
unpack (k,v) = (BC.unpack (CI.original k), BC.unpack v)
|
||||
|
||||
toQueryColl :: WH.ToHttpApiData a => CollectionFormat -> (BC.ByteString, Maybe [a]) -> NH.Query
|
||||
toQueryColl c xs = _toCollA c toQuery xs
|
||||
|
||||
_toColl :: P.Traversable f => CollectionFormat -> (f a -> [(b, BC.ByteString)]) -> f [a] -> [(b, BC.ByteString)]
|
||||
_toColl c encode xs = fmap (fmap P.fromJust) (_toCollA' c fencode BC.singleton (fmap Just xs))
|
||||
where fencode = fmap (fmap Just) . encode . fmap P.fromJust
|
||||
{-# INLINE fencode #-}
|
||||
|
||||
_toCollA :: (P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t BC.ByteString)]) -> f (t [a]) -> [(b, t BC.ByteString)]
|
||||
_toCollA c encode xs = _toCollA' c encode BC.singleton xs
|
||||
|
||||
_toCollA' :: (P.Monoid c, P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)]
|
||||
_toCollA' c encode one xs = case c of
|
||||
CommaSeparated -> go (one ',')
|
||||
SpaceSeparated -> go (one ' ')
|
||||
TabSeparated -> go (one '\t')
|
||||
PipeSeparated -> go (one '|')
|
||||
MultiParamArray -> expandList
|
||||
where
|
||||
go sep =
|
||||
[P.foldl1 (\(sk, sv) (_, v) -> (sk, (combine sep <$> sv <*> v) <|> sv <|> v)) expandList]
|
||||
combine sep x y = x <> sep <> y
|
||||
expandList = (P.concatMap encode . (P.traverse . P.traverse) P.toList) xs
|
||||
{-# INLINE go #-}
|
||||
{-# INLINE expandList #-}
|
||||
{-# INLINE combine #-}
|
||||
|
||||
-- * AuthMethods
|
||||
|
||||
-- | Provides a method to apply auth methods to requests
|
||||
class P.Typeable a =>
|
||||
AuthMethod a where
|
||||
applyAuthMethod
|
||||
:: {{configType}}
|
||||
-> a
|
||||
-> {{requestType}} req contentType res
|
||||
-> IO ({{requestType}} req contentType res)
|
||||
|
||||
-- | An existential wrapper for any AuthMethod
|
||||
data AnyAuthMethod = forall a. AuthMethod a => AnyAuthMethod a deriving (P.Typeable)
|
||||
|
||||
instance AuthMethod AnyAuthMethod where applyAuthMethod config (AnyAuthMethod a) req = applyAuthMethod config a req
|
||||
|
||||
-- | apply all matching AuthMethods in config to request
|
||||
_applyAuthMethods
|
||||
:: {{requestType}} req contentType res
|
||||
-> {{configType}}
|
||||
-> IO ({{requestType}} req contentType res)
|
||||
_applyAuthMethods req config@({{configType}} {configAuthMethods = as}) =
|
||||
foldlM go req as
|
||||
where
|
||||
go r (AnyAuthMethod a) = applyAuthMethod config a r
|
||||
|
||||
-- * Utils
|
||||
|
||||
-- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)
|
||||
_omitNulls :: [(Text, A.Value)] -> A.Value
|
||||
_omitNulls = A.object . P.filter notNull
|
||||
where
|
||||
notNull (_, A.Null) = False
|
||||
notNull _ = True
|
||||
|
||||
-- | Encodes fields using WH.toQueryParam
|
||||
_toFormItem :: (WH.ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text])
|
||||
_toFormItem name x = (name,) . (:[]) . WH.toQueryParam <$> x
|
||||
|
||||
-- | Collapse (Just "") to Nothing
|
||||
_emptyToNothing :: Maybe String -> Maybe String
|
||||
_emptyToNothing (Just "") = Nothing
|
||||
_emptyToNothing x = x
|
||||
{-# INLINE _emptyToNothing #-}
|
||||
|
||||
-- | Collapse (Just mempty) to Nothing
|
||||
_memptyToNothing :: (P.Monoid a, P.Eq a) => Maybe a -> Maybe a
|
||||
_memptyToNothing (Just x) | x P.== P.mempty = Nothing
|
||||
_memptyToNothing x = x
|
||||
{-# INLINE _memptyToNothing #-}
|
||||
|
||||
-- * DateTime Formatting
|
||||
|
||||
newtype DateTime = DateTime { unDateTime :: TI.UTCTime }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData,TI.ParseTime,TI.FormatTime)
|
||||
instance A.FromJSON DateTime where
|
||||
parseJSON = A.withText "DateTime" (_readDateTime . T.unpack)
|
||||
instance A.ToJSON DateTime where
|
||||
toJSON (DateTime t) = A.toJSON (_showDateTime t)
|
||||
instance WH.FromHttpApiData DateTime where
|
||||
parseUrlPiece = P.left T.pack . _readDateTime . T.unpack
|
||||
instance WH.ToHttpApiData DateTime where
|
||||
toUrlPiece (DateTime t) = T.pack (_showDateTime t)
|
||||
instance P.Show DateTime where
|
||||
show (DateTime t) = _showDateTime t
|
||||
instance MimeRender MimeMultipartFormData DateTime where
|
||||
mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
|
||||
-- | @{{^dateTimeFormat}}_parseISO8601{{/dateTimeFormat}}{{#dateTimeFormat}}TI.parseTimeM True TI.defaultTimeLocale "{{{dateTimeFormat}}}"{{/dateTimeFormat}}@
|
||||
_readDateTime :: (TI.ParseTime t, Monad m, {{^dateTimeFormat}}Alternative m{{/dateTimeFormat}}) => String -> m t
|
||||
_readDateTime =
|
||||
{{^dateTimeFormat}}_parseISO8601{{/dateTimeFormat}}{{#dateTimeFormat}}TI.parseTimeM True TI.defaultTimeLocale "{{{dateTimeFormat}}}"{{/dateTimeFormat}}
|
||||
{-# INLINE _readDateTime #-}
|
||||
|
||||
-- | @{{^dateTimeFormat}}TI.formatISO8601Millis{{/dateTimeFormat}}{{#dateTimeFormat}}TI.formatTime TI.defaultTimeLocale "{{{dateTimeFormat}}}"{{/dateTimeFormat}}@
|
||||
_showDateTime :: ({{^dateTimeFormat}}t ~ TI.UTCTime, {{/dateTimeFormat}}TI.FormatTime t) => t -> String
|
||||
_showDateTime =
|
||||
{{^dateTimeFormat}}TI.formatISO8601Millis{{/dateTimeFormat}}{{#dateTimeFormat}}TI.formatTime TI.defaultTimeLocale "{{{dateTimeFormat}}}"{{/dateTimeFormat}}
|
||||
{-# INLINE _showDateTime #-}
|
||||
|
||||
-- | parse an ISO8601 date-time string
|
||||
_parseISO8601 :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
|
||||
_parseISO8601 t =
|
||||
P.asum $
|
||||
P.flip (TI.parseTimeM True TI.defaultTimeLocale) t <$>
|
||||
["%FT%T%QZ", "%FT%T%Q%z", "%FT%T%Q%Z"]
|
||||
{-# INLINE _parseISO8601 #-}
|
||||
|
||||
-- * Date Formatting
|
||||
|
||||
newtype Date = Date { unDate :: TI.Day }
|
||||
deriving (P.Enum,P.Eq,P.Data,P.Ord,P.Ix,NF.NFData,TI.ParseTime,TI.FormatTime)
|
||||
instance A.FromJSON Date where
|
||||
parseJSON = A.withText "Date" (_readDate . T.unpack)
|
||||
instance A.ToJSON Date where
|
||||
toJSON (Date t) = A.toJSON (_showDate t)
|
||||
instance WH.FromHttpApiData Date where
|
||||
parseUrlPiece = P.left T.pack . _readDate . T.unpack
|
||||
instance WH.ToHttpApiData Date where
|
||||
toUrlPiece (Date t) = T.pack (_showDate t)
|
||||
instance P.Show Date where
|
||||
show (Date t) = _showDate t
|
||||
instance MimeRender MimeMultipartFormData Date where
|
||||
mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
|
||||
-- | @TI.parseTimeM True TI.defaultTimeLocale "{{{dateFormat}}}"@
|
||||
_readDate :: (TI.ParseTime t, Monad m) => String -> m t
|
||||
_readDate =
|
||||
TI.parseTimeM True TI.defaultTimeLocale "{{{dateFormat}}}"
|
||||
{-# INLINE _readDate #-}
|
||||
|
||||
-- | @TI.formatTime TI.defaultTimeLocale "{{{dateFormat}}}"@
|
||||
_showDate :: TI.FormatTime t => t -> String
|
||||
_showDate =
|
||||
TI.formatTime TI.defaultTimeLocale "{{{dateFormat}}}"
|
||||
{-# INLINE _showDate #-}
|
||||
|
||||
-- * Byte/Binary Formatting
|
||||
|
||||
|
||||
-- | base64 encoded characters
|
||||
newtype ByteArray = ByteArray { unByteArray :: BL.ByteString }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
|
||||
|
||||
instance A.FromJSON ByteArray where
|
||||
parseJSON = A.withText "ByteArray" _readByteArray
|
||||
instance A.ToJSON ByteArray where
|
||||
toJSON = A.toJSON . _showByteArray
|
||||
instance WH.FromHttpApiData ByteArray where
|
||||
parseUrlPiece = P.left T.pack . _readByteArray
|
||||
instance WH.ToHttpApiData ByteArray where
|
||||
toUrlPiece = _showByteArray
|
||||
instance P.Show ByteArray where
|
||||
show = T.unpack . _showByteArray
|
||||
instance MimeRender MimeMultipartFormData ByteArray where
|
||||
mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
|
||||
-- | read base64 encoded characters
|
||||
_readByteArray :: Monad m => Text -> m ByteArray
|
||||
_readByteArray = P.either P.fail (pure . ByteArray) . BL64.decode . BL.fromStrict . T.encodeUtf8
|
||||
{-# INLINE _readByteArray #-}
|
||||
|
||||
-- | show base64 encoded characters
|
||||
_showByteArray :: ByteArray -> Text
|
||||
_showByteArray = T.decodeUtf8 . BL.toStrict . BL64.encode . unByteArray
|
||||
{-# INLINE _showByteArray #-}
|
||||
|
||||
-- | any sequence of octets
|
||||
newtype Binary = Binary { unBinary :: BL.ByteString }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
|
||||
|
||||
instance A.FromJSON Binary where
|
||||
parseJSON = A.withText "Binary" _readBinaryBase64
|
||||
instance A.ToJSON Binary where
|
||||
toJSON = A.toJSON . _showBinaryBase64
|
||||
instance WH.FromHttpApiData Binary where
|
||||
parseUrlPiece = P.left T.pack . _readBinaryBase64
|
||||
instance WH.ToHttpApiData Binary where
|
||||
toUrlPiece = _showBinaryBase64
|
||||
instance P.Show Binary where
|
||||
show = T.unpack . _showBinaryBase64
|
||||
instance MimeRender MimeMultipartFormData Binary where
|
||||
mimeRender _ = unBinary
|
||||
|
||||
_readBinaryBase64 :: Monad m => Text -> m Binary
|
||||
_readBinaryBase64 = P.either P.fail (pure . Binary) . BL64.decode . BL.fromStrict . T.encodeUtf8
|
||||
{-# INLINE _readBinaryBase64 #-}
|
||||
|
||||
_showBinaryBase64 :: Binary -> Text
|
||||
_showBinaryBase64 = T.decodeUtf8 . BL.toStrict . BL64.encode . unBinary
|
||||
{-# INLINE _showBinaryBase64 #-}
|
||||
|
||||
-- * Lens Type Aliases
|
||||
|
||||
type Lens_' s a = Lens_ s s a a
|
||||
type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t
|
||||
@ -10,9 +10,6 @@ Katip Logging functions
|
||||
|
||||
module {{title}}.Logging where
|
||||
|
||||
import Data.Text (Text)
|
||||
import GHC.Exts (IsString(..))
|
||||
|
||||
import qualified Control.Exception.Safe as E
|
||||
import qualified Control.Monad.IO.Class as P
|
||||
import qualified Control.Monad.Trans.Reader as P
|
||||
@ -20,6 +17,9 @@ import qualified Data.Text as T
|
||||
import qualified Lens.Micro as L
|
||||
import qualified System.IO as IO
|
||||
|
||||
import Data.Text (Text)
|
||||
import GHC.Exts (IsString(..))
|
||||
|
||||
import qualified Katip as LG
|
||||
|
||||
-- * Type Aliases (for compatability)
|
||||
|
||||
@ -10,13 +10,13 @@ monad-logger Logging functions
|
||||
|
||||
module {{title}}.Logging where
|
||||
|
||||
import Data.Text (Text)
|
||||
|
||||
import qualified Control.Exception.Safe as E
|
||||
import qualified Control.Monad.IO.Class as P
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Time as TI
|
||||
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Text (Text)
|
||||
|
||||
import qualified Control.Monad.Logger as LG
|
||||
|
||||
|
||||
@ -13,39 +13,35 @@ Module : {{title}}.MimeTypes
|
||||
|
||||
module {{title}}.MimeTypes where
|
||||
|
||||
import {{title}}.Model as M
|
||||
|
||||
import qualified Control.Arrow as P (left)
|
||||
import qualified Data.Aeson as A
|
||||
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Builder as BB
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
|
||||
|
||||
import qualified Network.HTTP.Media as ME
|
||||
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import qualified Data.Data as P (Typeable)
|
||||
import qualified Data.Proxy as P (Proxy(..))
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.String as P
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Control.Arrow as P (left)
|
||||
import qualified Network.HTTP.Media as ME
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import Prelude (($), (.),(<$>),(<*>),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty)
|
||||
import qualified Prelude as P
|
||||
|
||||
-- * Content Negotiation
|
||||
|
||||
-- | A type for responses without content-body.
|
||||
data NoContent = NoContent
|
||||
deriving (P.Show, P.Eq)
|
||||
-- * Consumes Class
|
||||
|
||||
-- ** Mime Types
|
||||
class MimeType mtype => Consumes req mtype where
|
||||
|
||||
-- * Produces Class
|
||||
|
||||
class MimeType mtype => Produces req mtype where
|
||||
|
||||
-- * Default Mime Types
|
||||
|
||||
data MimeJSON = MimeJSON deriving (P.Typeable)
|
||||
data MimeXML = MimeXML deriving (P.Typeable)
|
||||
@ -56,10 +52,12 @@ data MimeOctetStream = MimeOctetStream deriving (P.Typeable)
|
||||
data MimeNoContent = MimeNoContent deriving (P.Typeable)
|
||||
data MimeAny = MimeAny deriving (P.Typeable)
|
||||
|
||||
{{#x-unknownMimeTypes}}data {{{x-mediaDataType}}} = {{{x-mediaDataType}}} deriving (P.Typeable)
|
||||
{{/x-unknownMimeTypes}}
|
||||
-- | A type for responses without content-body.
|
||||
data NoContent = NoContent
|
||||
deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- ** MimeType Class
|
||||
|
||||
-- * MimeType Class
|
||||
|
||||
class P.Typeable mtype => MimeType mtype where
|
||||
{-# MINIMAL mimeType | mimeTypes #-}
|
||||
@ -81,7 +79,7 @@ class P.Typeable mtype => MimeType mtype where
|
||||
mimeTypes' :: mtype -> [ME.MediaType]
|
||||
mimeTypes' _ = mimeTypes (P.Proxy :: P.Proxy mtype)
|
||||
|
||||
-- ** MimeType Instances
|
||||
-- Default MimeType Instances
|
||||
|
||||
-- | @application/json; charset=utf-8@
|
||||
instance MimeType MimeJSON where
|
||||
@ -107,16 +105,7 @@ instance MimeType MimeAny where
|
||||
instance MimeType MimeNoContent where
|
||||
mimeType _ = Nothing
|
||||
|
||||
{{#x-unknownMimeTypes}}
|
||||
-- | @{{{mediaType}}}@
|
||||
instance MimeType {{{x-mediaDataType}}} where
|
||||
mimeType _ = Just $ P.fromString "{{{mediaType}}}"{{#x-mediaIsJson}}
|
||||
instance A.ToJSON a => MimeRender {{{x-mediaDataType}}} a where mimeRender _ = A.encode
|
||||
instance A.FromJSON a => MimeUnrender {{{x-mediaDataType}}} a where mimeUnrender _ = A.eitherDecode{{/x-mediaIsJson}}
|
||||
|
||||
{{/x-unknownMimeTypes}}
|
||||
|
||||
-- ** MimeRender Class
|
||||
-- * MimeRender Class
|
||||
|
||||
class MimeType mtype => MimeRender mtype x where
|
||||
mimeRender :: P.Proxy mtype -> x -> BL.ByteString
|
||||
@ -124,7 +113,10 @@ class MimeType mtype => MimeRender mtype x where
|
||||
mimeRender' _ x = mimeRender (P.Proxy :: P.Proxy mtype) x
|
||||
|
||||
|
||||
-- ** MimeRender Instances
|
||||
mimeRenderDefaultMultipartFormData :: WH.ToHttpApiData a => a -> BL.ByteString
|
||||
mimeRenderDefaultMultipartFormData = BL.fromStrict . T.encodeUtf8 . WH.toQueryParam
|
||||
|
||||
-- Default MimeRender Instances
|
||||
|
||||
-- | `A.encode`
|
||||
instance A.ToJSON a => MimeRender MimeJSON a where mimeRender _ = A.encode
|
||||
@ -146,13 +138,9 @@ instance MimeRender MimeOctetStream T.Text where mimeRender _ = BL.fromStrict .
|
||||
instance MimeRender MimeOctetStream String where mimeRender _ = BCL.pack
|
||||
|
||||
instance MimeRender MimeMultipartFormData BL.ByteString where mimeRender _ = P.id
|
||||
instance MimeRender MimeMultipartFormData Binary where mimeRender _ = unBinary
|
||||
|
||||
instance MimeRender MimeMultipartFormData ByteArray where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Bool where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Char where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Date where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData DateTime where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Double where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Float where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Int where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
@ -160,29 +148,18 @@ instance MimeRender MimeMultipartFormData Integer where mimeRender _ = mimeRende
|
||||
instance MimeRender MimeMultipartFormData String where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData T.Text where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
|
||||
mimeRenderDefaultMultipartFormData :: WH.ToHttpApiData a => a -> BL.ByteString
|
||||
mimeRenderDefaultMultipartFormData = BL.fromStrict . T.encodeUtf8 . WH.toQueryParam
|
||||
|
||||
-- | @P.Right . P.const NoContent@
|
||||
instance MimeRender MimeNoContent NoContent where mimeRender _ = P.const BCL.empty
|
||||
|
||||
-- instance MimeRender MimeOctetStream Double where mimeRender _ = BB.toLazyByteString . BB.doubleDec
|
||||
-- instance MimeRender MimeOctetStream Float where mimeRender _ = BB.toLazyByteString . BB.floatDec
|
||||
-- instance MimeRender MimeOctetStream Int where mimeRender _ = BB.toLazyByteString . BB.intDec
|
||||
-- instance MimeRender MimeOctetStream Integer where mimeRender _ = BB.toLazyByteString . BB.integerDec
|
||||
|
||||
{{#x-unknownMimeTypes}}
|
||||
-- instance MimeRender {{{x-mediaDataType}}} T.Text where mimeRender _ = undefined
|
||||
{{/x-unknownMimeTypes}}
|
||||
|
||||
-- ** MimeUnrender Class
|
||||
-- * MimeUnrender Class
|
||||
|
||||
class MimeType mtype => MimeUnrender mtype o where
|
||||
mimeUnrender :: P.Proxy mtype -> BL.ByteString -> P.Either String o
|
||||
mimeUnrender' :: mtype -> BL.ByteString -> P.Either String o
|
||||
mimeUnrender' _ x = mimeUnrender (P.Proxy :: P.Proxy mtype) x
|
||||
|
||||
-- ** MimeUnrender Instances
|
||||
-- Default MimeUnrender Instances
|
||||
|
||||
-- | @A.eitherDecode@
|
||||
instance A.FromJSON a => MimeUnrender MimeJSON a where mimeUnrender _ = A.eitherDecode
|
||||
@ -204,16 +181,4 @@ instance MimeUnrender MimeOctetStream T.Text where mimeUnrender _ = P.left P.sho
|
||||
instance MimeUnrender MimeOctetStream String where mimeUnrender _ = P.Right . BCL.unpack
|
||||
|
||||
-- | @P.Right . P.const NoContent@
|
||||
instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent
|
||||
|
||||
{{#x-unknownMimeTypes}}
|
||||
-- instance MimeUnrender {{{x-mediaDataType}}} T.Text where mimeUnrender _ = undefined
|
||||
{{/x-unknownMimeTypes}}
|
||||
|
||||
-- ** Request Consumes
|
||||
|
||||
class MimeType mtype => Consumes req mtype where
|
||||
|
||||
-- ** Request Produces
|
||||
|
||||
class MimeType mtype => Produces req mtype where
|
||||
instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent
|
||||
@ -17,33 +17,30 @@ Module : {{title}}.Model
|
||||
|
||||
module {{title}}.Model where
|
||||
|
||||
import {{title}}.Core
|
||||
|
||||
import Data.Aeson ((.:),(.:!),(.:?),(.=))
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Base64.Lazy as BL64
|
||||
import qualified Data.Data as P (Data, Typeable)
|
||||
import qualified Data.Foldable as P
|
||||
import qualified Data.HashMap.Lazy as HM
|
||||
import qualified Data.Map as Map
|
||||
import qualified Data.Set as Set
|
||||
import qualified Data.Maybe as P
|
||||
import qualified Data.Foldable as P
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
import qualified Control.DeepSeq as NF
|
||||
import qualified Data.Ix as P
|
||||
import qualified Data.Set as Set
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Control.Arrow as P (left)
|
||||
import Data.Text (Text)
|
||||
|
||||
import qualified Data.Time as TI
|
||||
import qualified Data.Time.ISO8601 as TI
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import Control.Applicative ((<|>))
|
||||
import Control.Applicative (Alternative)
|
||||
import Data.Text (Text)
|
||||
import Prelude (($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
|
||||
|
||||
import qualified Prelude as P
|
||||
|
||||
|
||||
@ -59,14 +56,16 @@ import qualified Prelude as P
|
||||
-- | {{classname}}{{#title}}
|
||||
-- {{{.}}}
|
||||
-- {{/title}}{{#description}}
|
||||
-- {{{.}}}{{/description}}
|
||||
-- {{{.}}}{{/description}}{{#isAlias}}
|
||||
newtype {{classname}} = {{classname}}
|
||||
{ un{{classname}} :: {{{dataType}}}
|
||||
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON, WH.ToHttpApiData, WH.FromHttpApiData{{#modelDeriving}}, {{modelDeriving}}{{/modelDeriving}}){{/isAlias}}{{^isAlias}}
|
||||
data {{classname}} = {{classname}}
|
||||
{ {{#vars}}{{name}} :: {{#x-strictFields}}!({{/x-strictFields}}{{^required}}Maybe {{/required}}{{datatype}}{{#x-strictFields}}){{/x-strictFields}} -- ^ {{#required}}/Required/ {{/required}}{{#readOnly}}/ReadOnly/ {{/readOnly}}"{{baseName}}"{{#description}} - {{description}}{{/description}}{{#hasMore}}
|
||||
, {{/hasMore}}{{/vars}}
|
||||
} deriving (P.Show,P.Eq,P.Typeable{{#modelDeriving}},{{modelDeriving}}{{/modelDeriving}})
|
||||
} deriving (P.Show, P.Eq, P.Typeable{{#modelDeriving}}, {{modelDeriving}}{{/modelDeriving}}){{/isAlias}}
|
||||
|
||||
|
||||
-- | FromJSON {{classname}}
|
||||
{{^isAlias}}-- | FromJSON {{classname}}
|
||||
instance A.FromJSON {{classname}} where
|
||||
parseJSON = A.withObject "{{classname}}" $ \o ->
|
||||
{{^hasVars}}pure {{/hasVars}}{{classname}}
|
||||
@ -109,150 +108,9 @@ mk{{classname}} {{#requiredVars}}{{name}} {{/requiredVars}}=
|
||||
, {{/hasMore}}{{/vars}}
|
||||
}
|
||||
{{/generateModelConstructors}}
|
||||
|
||||
{{/isAlias}}
|
||||
|
||||
{{/model}}
|
||||
{{/models}}
|
||||
|
||||
-- * Parameter newtypes
|
||||
|
||||
{{#x-allUniqueParams}}
|
||||
newtype {{{vendorExtensions.x-paramNameType}}} = {{{vendorExtensions.x-paramNameType}}} { un{{{vendorExtensions.x-paramNameType}}} :: {{{dataType}}} } deriving (P.Eq, P.Show{{#isBodyParam}}, A.ToJSON{{/isBodyParam}})
|
||||
{{/x-allUniqueParams}}
|
||||
|
||||
-- * Utils
|
||||
|
||||
-- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)
|
||||
_omitNulls :: [(Text, A.Value)] -> A.Value
|
||||
_omitNulls = A.object . P.filter notNull
|
||||
where
|
||||
notNull (_, A.Null) = False
|
||||
notNull _ = True
|
||||
|
||||
-- | Encodes fields using WH.toQueryParam
|
||||
_toFormItem :: (WH.ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text])
|
||||
_toFormItem name x = (name,) . (:[]) . WH.toQueryParam <$> x
|
||||
|
||||
-- | Collapse (Just "") to Nothing
|
||||
_emptyToNothing :: Maybe String -> Maybe String
|
||||
_emptyToNothing (Just "") = Nothing
|
||||
_emptyToNothing x = x
|
||||
{-# INLINE _emptyToNothing #-}
|
||||
|
||||
-- | Collapse (Just mempty) to Nothing
|
||||
_memptyToNothing :: (P.Monoid a, P.Eq a) => Maybe a -> Maybe a
|
||||
_memptyToNothing (Just x) | x P.== P.mempty = Nothing
|
||||
_memptyToNothing x = x
|
||||
{-# INLINE _memptyToNothing #-}
|
||||
|
||||
-- * DateTime Formatting
|
||||
|
||||
newtype DateTime = DateTime { unDateTime :: TI.UTCTime }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData,TI.ParseTime,TI.FormatTime)
|
||||
instance A.FromJSON DateTime where
|
||||
parseJSON = A.withText "DateTime" (_readDateTime . T.unpack)
|
||||
instance A.ToJSON DateTime where
|
||||
toJSON (DateTime t) = A.toJSON (_showDateTime t)
|
||||
instance WH.FromHttpApiData DateTime where
|
||||
parseUrlPiece = P.left T.pack . _readDateTime . T.unpack
|
||||
instance WH.ToHttpApiData DateTime where
|
||||
toUrlPiece (DateTime t) = T.pack (_showDateTime t)
|
||||
instance P.Show DateTime where
|
||||
show (DateTime t) = _showDateTime t
|
||||
|
||||
-- | @{{^dateTimeFormat}}_parseISO8601{{/dateTimeFormat}}{{#dateTimeFormat}}TI.parseTimeM True TI.defaultTimeLocale "{{{dateTimeFormat}}}"{{/dateTimeFormat}}@
|
||||
_readDateTime :: (TI.ParseTime t, Monad m, {{^dateTimeFormat}}Alternative m{{/dateTimeFormat}}) => String -> m t
|
||||
_readDateTime =
|
||||
{{^dateTimeFormat}}_parseISO8601{{/dateTimeFormat}}{{#dateTimeFormat}}TI.parseTimeM True TI.defaultTimeLocale "{{{dateTimeFormat}}}"{{/dateTimeFormat}}
|
||||
{-# INLINE _readDateTime #-}
|
||||
|
||||
-- | @{{^dateTimeFormat}}TI.formatISO8601Millis{{/dateTimeFormat}}{{#dateTimeFormat}}TI.formatTime TI.defaultTimeLocale "{{{dateTimeFormat}}}"{{/dateTimeFormat}}@
|
||||
_showDateTime :: ({{^dateTimeFormat}}t ~ TI.UTCTime, {{/dateTimeFormat}}TI.FormatTime t) => t -> String
|
||||
_showDateTime =
|
||||
{{^dateTimeFormat}}TI.formatISO8601Millis{{/dateTimeFormat}}{{#dateTimeFormat}}TI.formatTime TI.defaultTimeLocale "{{{dateTimeFormat}}}"{{/dateTimeFormat}}
|
||||
{-# INLINE _showDateTime #-}
|
||||
|
||||
-- | parse an ISO8601 date-time string
|
||||
_parseISO8601 :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
|
||||
_parseISO8601 t =
|
||||
P.asum $
|
||||
P.flip (TI.parseTimeM True TI.defaultTimeLocale) t <$>
|
||||
["%FT%T%QZ", "%FT%T%Q%z", "%FT%T%Q%Z"]
|
||||
{-# INLINE _parseISO8601 #-}
|
||||
|
||||
-- * Date Formatting
|
||||
|
||||
newtype Date = Date { unDate :: TI.Day }
|
||||
deriving (P.Enum,P.Eq,P.Data,P.Ord,P.Ix,NF.NFData,TI.ParseTime,TI.FormatTime)
|
||||
instance A.FromJSON Date where
|
||||
parseJSON = A.withText "Date" (_readDate . T.unpack)
|
||||
instance A.ToJSON Date where
|
||||
toJSON (Date t) = A.toJSON (_showDate t)
|
||||
instance WH.FromHttpApiData Date where
|
||||
parseUrlPiece = P.left T.pack . _readDate . T.unpack
|
||||
instance WH.ToHttpApiData Date where
|
||||
toUrlPiece (Date t) = T.pack (_showDate t)
|
||||
instance P.Show Date where
|
||||
show (Date t) = _showDate t
|
||||
|
||||
-- | @TI.parseTimeM True TI.defaultTimeLocale "{{{dateFormat}}}"@
|
||||
_readDate :: (TI.ParseTime t, Monad m) => String -> m t
|
||||
_readDate =
|
||||
TI.parseTimeM True TI.defaultTimeLocale "{{{dateFormat}}}"
|
||||
{-# INLINE _readDate #-}
|
||||
|
||||
-- | @TI.formatTime TI.defaultTimeLocale "{{{dateFormat}}}"@
|
||||
_showDate :: TI.FormatTime t => t -> String
|
||||
_showDate =
|
||||
TI.formatTime TI.defaultTimeLocale "{{{dateFormat}}}"
|
||||
{-# INLINE _showDate #-}
|
||||
|
||||
-- * Byte/Binary Formatting
|
||||
|
||||
|
||||
-- | base64 encoded characters
|
||||
newtype ByteArray = ByteArray { unByteArray :: BL.ByteString }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
|
||||
|
||||
instance A.FromJSON ByteArray where
|
||||
parseJSON = A.withText "ByteArray" _readByteArray
|
||||
instance A.ToJSON ByteArray where
|
||||
toJSON = A.toJSON . _showByteArray
|
||||
instance WH.FromHttpApiData ByteArray where
|
||||
parseUrlPiece = P.left T.pack . _readByteArray
|
||||
instance WH.ToHttpApiData ByteArray where
|
||||
toUrlPiece = _showByteArray
|
||||
instance P.Show ByteArray where
|
||||
show = T.unpack . _showByteArray
|
||||
|
||||
-- | read base64 encoded characters
|
||||
_readByteArray :: Monad m => Text -> m ByteArray
|
||||
_readByteArray = P.either P.fail (pure . ByteArray) . BL64.decode . BL.fromStrict . T.encodeUtf8
|
||||
{-# INLINE _readByteArray #-}
|
||||
|
||||
-- | show base64 encoded characters
|
||||
_showByteArray :: ByteArray -> Text
|
||||
_showByteArray = T.decodeUtf8 . BL.toStrict . BL64.encode . unByteArray
|
||||
{-# INLINE _showByteArray #-}
|
||||
|
||||
-- | any sequence of octets
|
||||
newtype Binary = Binary { unBinary :: BL.ByteString }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
|
||||
|
||||
instance A.FromJSON Binary where
|
||||
parseJSON = A.withText "Binary" _readBinaryBase64
|
||||
instance A.ToJSON Binary where
|
||||
toJSON = A.toJSON . _showBinaryBase64
|
||||
instance WH.FromHttpApiData Binary where
|
||||
parseUrlPiece = P.left T.pack . _readBinaryBase64
|
||||
instance WH.ToHttpApiData Binary where
|
||||
toUrlPiece = _showBinaryBase64
|
||||
instance P.Show Binary where
|
||||
show = T.unpack . _showBinaryBase64
|
||||
|
||||
_readBinaryBase64 :: Monad m => Text -> m Binary
|
||||
_readBinaryBase64 = P.either P.fail (pure . Binary) . BL64.decode . BL.fromStrict . T.encodeUtf8
|
||||
{-# INLINE _readBinaryBase64 #-}
|
||||
|
||||
_showBinaryBase64 :: Binary -> Text
|
||||
_showBinaryBase64 = T.decodeUtf8 . BL.toStrict . BL64.encode . unBinary
|
||||
{-# INLINE _showBinaryBase64 #-}
|
||||
|
||||
@ -9,7 +9,7 @@ Module : {{title}}.Lens
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}
|
||||
|
||||
module {{title}}.Lens where
|
||||
module {{title}}.ModelLens where
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
@ -24,11 +24,7 @@ import Prelude (($), (.),(<$>),(<*>),(=<<),Maybe(..),Bool(..),Char,Double,FilePa
|
||||
import qualified Prelude as P
|
||||
|
||||
import {{title}}.Model
|
||||
|
||||
-- * Type Aliases
|
||||
|
||||
type Lens_' s a = Lens_ s s a a
|
||||
type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t
|
||||
import {{title}}.Core
|
||||
|
||||
{{#models}}
|
||||
{{#model}}
|
||||
@ -70,6 +70,7 @@ These options allow some customization of the code generation process.
|
||||
| generateFormUrlEncodedInstances | Generate FromForm/ToForm instances for models used by x-www-form-urlencoded operations (model fields must be primitive types) | true | {{{generateFormUrlEncodedInstances}}} |
|
||||
| generateLenses | Generate Lens optics for Models | true | {{{generateLenses}}} |
|
||||
| generateModelConstructors | Generate smart constructors (only supply required fields) for models | true | {{{generateModelConstructors}}} |
|
||||
| inlineConsumesContentTypes | Inline (hardcode) the content-type on operations that do not have multiple content-types (Consumes) | false | {{{inlineConsumesContentTypes}}} |
|
||||
| modelDeriving | Additional classes to include in the deriving() clause of Models | | {{{modelDeriving}}} |
|
||||
| strictFields | Add strictness annotations to all model fields | true | {{{x-strictFields}}} |
|
||||
| useMonadLogger | Use the monad-logger package to provide logging (if instead false, use the katip logging package) | false | {{{x-useMonadLogger}}} |
|
||||
@ -109,10 +110,11 @@ This library is intended to be imported qualified.
|
||||
| MODULE | NOTES |
|
||||
| ------------------- | --------------------------------------------------- |
|
||||
| {{title}}.Client | use the "dispatch" functions to send requests |
|
||||
| {{title}}.API | construct requetss |
|
||||
| {{title}}.Model | describes models |
|
||||
| {{title}}.Core | core funcions, config and request types |
|
||||
| {{title}}.API | construct api requests |
|
||||
| {{title}}.Model | describes api models |
|
||||
| {{title}}.MimeTypes | encoding/decoding MIME types (content-types/accept) |
|
||||
| {{title}}.Lens | lenses for model fields |
|
||||
| {{title}}.ModelLens | lenses for model fields |
|
||||
| {{title}}.Logging | logging functions and utils |
|
||||
|
||||
|
||||
|
||||
@ -4,17 +4,19 @@ Module : {{title}}
|
||||
-}
|
||||
|
||||
module {{title}}
|
||||
( module {{title}}.Client
|
||||
, module {{title}}.API
|
||||
, module {{title}}.Model
|
||||
, module {{title}}.MimeTypes
|
||||
, module {{title}}.Lens
|
||||
( module {{title}}.API
|
||||
, module {{title}}.Client
|
||||
, module {{title}}.Core
|
||||
, module {{title}}.Logging
|
||||
, module {{title}}.MimeTypes
|
||||
, module {{title}}.Model
|
||||
, module {{title}}.ModelLens
|
||||
) where
|
||||
|
||||
import {{title}}.API
|
||||
import {{title}}.Client
|
||||
import {{title}}.Model
|
||||
import {{title}}.MimeTypes
|
||||
import {{title}}.Lens
|
||||
import {{title}}.Core
|
||||
import {{title}}.Logging
|
||||
import {{title}}.MimeTypes
|
||||
import {{title}}.Model
|
||||
import {{title}}.ModelLens
|
||||
|
||||
@ -0,0 +1 @@
|
||||
{{^vendorExtensions.x-inlineContentType}}contentType{{/vendorExtensions.x-inlineContentType}}{{#vendorExtensions.x-inlineContentType}}{{{x-mediaDataType}}}{{/vendorExtensions.x-inlineContentType}}
|
||||
@ -29,7 +29,7 @@ cabal-version: >= 1.10
|
||||
|
||||
extra-source-files:
|
||||
README.md
|
||||
swagger.json
|
||||
swagger.yaml
|
||||
|
||||
library
|
||||
hs-source-dirs:
|
||||
@ -65,10 +65,11 @@ library
|
||||
{{title}}
|
||||
{{title}}.API
|
||||
{{title}}.Client
|
||||
{{title}}.Model
|
||||
{{title}}.MimeTypes
|
||||
{{title}}.Lens
|
||||
{{title}}.Core
|
||||
{{title}}.Logging
|
||||
{{title}}.MimeTypes
|
||||
{{title}}.Model
|
||||
{{title}}.ModelLens
|
||||
other-modules:
|
||||
Paths_{{pathsName}}
|
||||
default-language: Haskell2010
|
||||
|
||||
@ -0,0 +1 @@
|
||||
{{{swagger-yaml}}}
|
||||
@ -2,10 +2,9 @@
|
||||
|
||||
module Instances where
|
||||
|
||||
import Control.Monad
|
||||
import Data.Char (isSpace)
|
||||
import Data.List (sort)
|
||||
import Test.QuickCheck
|
||||
import {{title}}.Model
|
||||
import {{title}}.Core
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.HashMap.Strict as HM
|
||||
@ -14,8 +13,12 @@ import qualified Data.Text as T
|
||||
import qualified Data.Time as TI
|
||||
import qualified Data.Vector as V
|
||||
|
||||
import Control.Monad
|
||||
import Data.Char (isSpace)
|
||||
import Data.List (sort)
|
||||
import Test.QuickCheck
|
||||
|
||||
import ApproxEq
|
||||
import {{title}}.Model
|
||||
|
||||
instance Arbitrary T.Text where
|
||||
arbitrary = T.pack <$> arbitrary
|
||||
@ -90,9 +93,10 @@ instance ApproxEq TI.Day where
|
||||
{{#model}}
|
||||
instance Arbitrary {{classname}} where
|
||||
arbitrary =
|
||||
{{^hasVars}}pure {{/hasVars}}{{classname}}
|
||||
{{#isAlias}}{{classname}} <$> arbitrary{{/isAlias}}{{^isAlias}}{{^hasVars}}
|
||||
pure {{/hasVars}}{{classname}}
|
||||
{{#hasVars}} <$>{{/hasVars}} {{#vars}}arbitrary -- {{name}} :: {{^required}}Maybe {{/required}}{{datatype}}
|
||||
{{#hasMore}} <*> {{/hasMore}}{{/vars}}
|
||||
{{#hasMore}} <*> {{/hasMore}}{{/vars}}{{/isAlias}}
|
||||
|
||||
{{/model}}
|
||||
{{/models}}
|
||||
|
||||
@ -30,7 +30,6 @@ public class HaskellHttpClientOptionsTest extends AbstractOptionsTest {
|
||||
times = 1;
|
||||
clientCodegen.setSortParamsByRequiredFlag(Boolean.valueOf(HaskellHttpClientOptionsProvider.SORT_PARAMS_VALUE));
|
||||
times = 1;
|
||||
|
||||
clientCodegen.setAllowFromJsonNulls(Boolean.valueOf(HaskellHttpClientOptionsProvider.ALLOW_FROMJSON_NULLS));
|
||||
times = 1;
|
||||
clientCodegen.setAllowToJsonNulls(Boolean.valueOf(HaskellHttpClientOptionsProvider.ALLOW_TOJSON_NULLS));
|
||||
@ -41,6 +40,8 @@ public class HaskellHttpClientOptionsTest extends AbstractOptionsTest {
|
||||
times = 1;
|
||||
clientCodegen.setGenerateLenses(Boolean.valueOf(HaskellHttpClientOptionsProvider.GENERATE_LENSES));
|
||||
times = 1;
|
||||
clientCodegen.setInlineConsumesContentTypes(Boolean.valueOf(HaskellHttpClientOptionsProvider.INLINE_CONSUMES_CONTENT_TYPES));
|
||||
times = 1;
|
||||
clientCodegen.setModelDeriving(HaskellHttpClientOptionsProvider.MODEL_DERIVING);
|
||||
times = 1;
|
||||
clientCodegen.setDateTimeFormat(HaskellHttpClientOptionsProvider.DATETIME_FORMAT);
|
||||
|
||||
@ -23,6 +23,7 @@ public class HaskellHttpClientOptionsProvider implements OptionsProvider {
|
||||
public static final String GENERATE_FORM_URLENCODED_INSTANCES = "true";
|
||||
public static final String GENERATE_LENSES = "true";
|
||||
public static final String GENERATE_MODEL_CONSTRUCTORS = "true";
|
||||
public static final String INLINE_CONSUMES_CONTENT_TYPES = "false";
|
||||
public static final String USE_MONAD_LOGGER = "false";
|
||||
|
||||
@Override
|
||||
@ -40,16 +41,17 @@ public class HaskellHttpClientOptionsProvider implements OptionsProvider {
|
||||
.put(CodegenConstants.ALLOW_UNICODE_IDENTIFIERS, ALLOW_UNICODE_IDENTIFIERS_VALUE)
|
||||
.put(CodegenConstants.HIDE_GENERATION_TIMESTAMP, HIDE_GENERATION_TIMESTAMP)
|
||||
|
||||
.put(HaskellHttpClientCodegen.ALLOW_FROMJSON_NULLS, ALLOW_FROMJSON_NULLS)
|
||||
.put(HaskellHttpClientCodegen.ALLOW_TOJSON_NULLS, ALLOW_TOJSON_NULLS)
|
||||
.put(HaskellHttpClientCodegen.DATETIME_FORMAT, DATETIME_FORMAT)
|
||||
.put(HaskellHttpClientCodegen.DATE_FORMAT, DATE_FORMAT)
|
||||
.put(HaskellHttpClientCodegen.MODEL_DERIVING, MODEL_DERIVING)
|
||||
.put(HaskellHttpClientCodegen.GENERATE_FORM_URLENCODED_INSTANCES, GENERATE_FORM_URLENCODED_INSTANCES)
|
||||
.put(HaskellHttpClientCodegen.GENERATE_LENSES, GENERATE_LENSES)
|
||||
.put(HaskellHttpClientCodegen.GENERATE_MODEL_CONSTRUCTORS, GENERATE_MODEL_CONSTRUCTORS)
|
||||
.put(HaskellHttpClientCodegen.STRICT_FIELDS, STRICT_FIELDS)
|
||||
.put(HaskellHttpClientCodegen.USE_MONAD_LOGGER, USE_MONAD_LOGGER)
|
||||
.put(HaskellHttpClientCodegen.PROP_ALLOW_FROMJSON_NULLS, ALLOW_FROMJSON_NULLS)
|
||||
.put(HaskellHttpClientCodegen.PROP_ALLOW_TOJSON_NULLS, ALLOW_TOJSON_NULLS)
|
||||
.put(HaskellHttpClientCodegen.PROP_DATETIME_FORMAT, DATETIME_FORMAT)
|
||||
.put(HaskellHttpClientCodegen.PROP_DATE_FORMAT, DATE_FORMAT)
|
||||
.put(HaskellHttpClientCodegen.PROP_MODEL_DERIVING, MODEL_DERIVING)
|
||||
.put(HaskellHttpClientCodegen.PROP_GENERATE_FORM_URLENCODED_INSTANCES, GENERATE_FORM_URLENCODED_INSTANCES)
|
||||
.put(HaskellHttpClientCodegen.PROP_GENERATE_LENSES, GENERATE_LENSES)
|
||||
.put(HaskellHttpClientCodegen.PROP_GENERATE_MODEL_CONSTRUCTORS, GENERATE_MODEL_CONSTRUCTORS)
|
||||
.put(HaskellHttpClientCodegen.PROP_INLINE_CONSUMES_CONTENT_TYPES, INLINE_CONSUMES_CONTENT_TYPES)
|
||||
.put(HaskellHttpClientCodegen.PROP_STRICT_FIELDS, STRICT_FIELDS)
|
||||
.put(HaskellHttpClientCodegen.PROP_USE_MONAD_LOGGER, USE_MONAD_LOGGER)
|
||||
|
||||
.build();
|
||||
}
|
||||
|
||||
@ -70,6 +70,7 @@ These options allow some customization of the code generation process.
|
||||
| generateFormUrlEncodedInstances | Generate FromForm/ToForm instances for models used by x-www-form-urlencoded operations (model fields must be primitive types) | true | true |
|
||||
| generateLenses | Generate Lens optics for Models | true | true |
|
||||
| generateModelConstructors | Generate smart constructors (only supply required fields) for models | true | true |
|
||||
| inlineConsumesContentTypes | Inline (hardcode) the content-type on operations that do not have multiple content-types (Consumes) | false | false |
|
||||
| modelDeriving | Additional classes to include in the deriving() clause of Models | | |
|
||||
| strictFields | Add strictness annotations to all model fields | true | true |
|
||||
| useMonadLogger | Use the monad-logger package to provide logging (if instead false, use the katip logging package) | false | false |
|
||||
@ -109,10 +110,11 @@ This library is intended to be imported qualified.
|
||||
| MODULE | NOTES |
|
||||
| ------------------- | --------------------------------------------------- |
|
||||
| SwaggerPetstore.Client | use the "dispatch" functions to send requests |
|
||||
| SwaggerPetstore.API | construct requetss |
|
||||
| SwaggerPetstore.Model | describes models |
|
||||
| SwaggerPetstore.Core | core funcions, config and request types |
|
||||
| SwaggerPetstore.API | construct api requests |
|
||||
| SwaggerPetstore.Model | describes api models |
|
||||
| SwaggerPetstore.MimeTypes | encoding/decoding MIME types (content-types/accept) |
|
||||
| SwaggerPetstore.Lens | lenses for model fields |
|
||||
| SwaggerPetstore.ModelLens | lenses for model fields |
|
||||
| SwaggerPetstore.Logging | logging functions and utils |
|
||||
|
||||
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>SwaggerPetstore</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();setSynopsis("mini_SwaggerPetstore.html");};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="src/SwaggerPetstore.html">Source</a></li><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="module-header"><table class="info"><tr><th>Safe Haskell</th><td>None</td></tr><tr><th>Language</th><td>Haskell2010</td></tr></table><p class="caption">SwaggerPetstore</p></div><div id="description"><p class="caption">Description</p><div class="doc empty"> </div></div><div id="interface"><h1>Documentation</h1><div class="top"><p class="src">module <a href="SwaggerPetstore-Client.html">SwaggerPetstore.Client</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-API.html">SwaggerPetstore.API</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-Model.html">SwaggerPetstore.Model</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-MimeTypes.html">SwaggerPetstore.MimeTypes</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-Lens.html">SwaggerPetstore.Lens</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-Logging.html">SwaggerPetstore.Logging</a></p></div></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="src/SwaggerPetstore.html">Source</a></li><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="module-header"><table class="info"><tr><th>Safe Haskell</th><td>None</td></tr><tr><th>Language</th><td>Haskell2010</td></tr></table><p class="caption">SwaggerPetstore</p></div><div id="description"><p class="caption">Description</p><div class="doc empty"> </div></div><div id="interface"><h1>Documentation</h1><div class="top"><p class="src">module <a href="SwaggerPetstore-API.html">SwaggerPetstore.API</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-Client.html">SwaggerPetstore.Client</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-Core.html">SwaggerPetstore.Core</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-Logging.html">SwaggerPetstore.Logging</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-MimeTypes.html">SwaggerPetstore.MimeTypes</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-Model.html">SwaggerPetstore.Model</a></p></div><div class="top"><p class="src">module <a href="SwaggerPetstore-ModelLens.html">SwaggerPetstore.ModelLens</a></p></div></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - -)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - -</p><table><tr><td class="src">-&-</td><td class="module"><a href="SwaggerPetstore-API.html#v:-45--38--45-">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - -</p><table><tr><td class="src">-&-</td><td class="module"><a href="SwaggerPetstore-Core.html#v:-45--38--45-">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - B)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - B</p><table><tr><td class="src">Binary</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Binary">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Binary">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">Body</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Body">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Body">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">Byte</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Byte">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Byte">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">ByteArray</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:ByteArray">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:ByteArray">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - B</p><table><tr><td class="src">Binary</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Core.html#t:Binary">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Core.html#v:Binary">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">Body</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-API.html#t:Body">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-API.html#v:Body">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">Byte</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-API.html#t:Byte">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-API.html#v:Byte">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">ByteArray</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Core.html#t:ByteArray">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Core.html#v:ByteArray">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - H)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - H</p><table><tr><td class="src">HasBodyParam</td><td class="module"><a href="SwaggerPetstore-API.html#t:HasBodyParam">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">HasOnlyReadOnly</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:HasOnlyReadOnly">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:HasOnlyReadOnly">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyBar</td><td class="module"><a href="SwaggerPetstore-Model.html#v:hasOnlyReadOnlyBar">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyBarL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:hasOnlyReadOnlyBarL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyFoo</td><td class="module"><a href="SwaggerPetstore-Model.html#v:hasOnlyReadOnlyFoo">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyFooL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:hasOnlyReadOnlyFooL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">HasOptionalParam</td><td class="module"><a href="SwaggerPetstore-API.html#t:HasOptionalParam">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - H</p><table><tr><td class="src">HasBodyParam</td><td class="module"><a href="SwaggerPetstore-Core.html#t:HasBodyParam">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">HasOnlyReadOnly</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:HasOnlyReadOnly">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:HasOnlyReadOnly">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyBar</td><td class="module"><a href="SwaggerPetstore-Model.html#v:hasOnlyReadOnlyBar">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyBarL</td><td class="module"><a href="SwaggerPetstore-ModelLens.html#v:hasOnlyReadOnlyBarL">SwaggerPetstore.ModelLens</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyFoo</td><td class="module"><a href="SwaggerPetstore-Model.html#v:hasOnlyReadOnlyFoo">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyFooL</td><td class="module"><a href="SwaggerPetstore-ModelLens.html#v:hasOnlyReadOnlyFooL">SwaggerPetstore.ModelLens</a>, SwaggerPetstore</td></tr><tr><td class="src">HasOptionalParam</td><td class="module"><a href="SwaggerPetstore-Core.html#t:HasOptionalParam">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - I)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - I</p><table><tr><td class="src">initLogContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:initLogContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">InitRequest</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Client.html#t:InitRequest">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Client.html#v:InitRequest">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">Int32</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Int32">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Int32">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">Int64</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Int64">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Int64">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - I</p><table><tr><td class="src">initLogContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:initLogContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">InitRequest</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Client.html#t:InitRequest">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Client.html#v:InitRequest">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">Int32</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-API.html#t:Int32">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-API.html#v:Int32">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">Int64</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-API.html#t:Int64">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-API.html#v:Int64">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - L)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - L</p><table><tr><td class="src">Lens_</td><td class="module"><a href="SwaggerPetstore-Lens.html#t:Lens_">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">Lens_'</td><td class="module"><a href="SwaggerPetstore-Lens.html#t:Lens_-39-">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">levelDebug</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelDebug">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">levelError</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelError">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">levelInfo</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelInfo">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">logExceptions</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:logExceptions">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogExec</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogExec">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogExecWithContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogExecWithContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LoginUser</td><td class="module"><a href="SwaggerPetstore-API.html#t:LoginUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">loginUser</td><td class="module"><a href="SwaggerPetstore-API.html#v:loginUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">LogLevel</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogLevel">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogoutUser</td><td class="module"><a href="SwaggerPetstore-API.html#t:LogoutUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">logoutUser</td><td class="module"><a href="SwaggerPetstore-API.html#v:logoutUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - L</p><table><tr><td class="src">Lens_</td><td class="module"><a href="SwaggerPetstore-Core.html#t:Lens_">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">Lens_'</td><td class="module"><a href="SwaggerPetstore-Core.html#t:Lens_-39-">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">levelDebug</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelDebug">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">levelError</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelError">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">levelInfo</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelInfo">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">logExceptions</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:logExceptions">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogExec</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogExec">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogExecWithContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogExecWithContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LoginUser</td><td class="module"><a href="SwaggerPetstore-API.html#t:LoginUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">loginUser</td><td class="module"><a href="SwaggerPetstore-API.html#v:loginUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">LogLevel</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogLevel">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogoutUser</td><td class="module"><a href="SwaggerPetstore-API.html#t:LogoutUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">logoutUser</td><td class="module"><a href="SwaggerPetstore-API.html#v:logoutUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - R)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - R</p><table><tr><td class="src">rAuthTypes</td><td class="module"><a href="SwaggerPetstore-API.html#v:rAuthTypes">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rAuthTypesL</td><td class="module"><a href="SwaggerPetstore-API.html#v:rAuthTypesL">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">ReadOnlyFirst</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:ReadOnlyFirst">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:ReadOnlyFirst">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">readOnlyFirstBar</td><td class="module"><a href="SwaggerPetstore-Model.html#v:readOnlyFirstBar">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">readOnlyFirstBarL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:readOnlyFirstBarL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">readOnlyFirstBaz</td><td class="module"><a href="SwaggerPetstore-Model.html#v:readOnlyFirstBaz">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">readOnlyFirstBazL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:readOnlyFirstBazL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">removeHeader</td><td class="module"><a href="SwaggerPetstore-API.html#v:removeHeader">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rMethod</td><td class="module"><a href="SwaggerPetstore-API.html#v:rMethod">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rMethodL</td><td class="module"><a href="SwaggerPetstore-API.html#v:rMethodL">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rParams</td><td class="module"><a href="SwaggerPetstore-API.html#v:rParams">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rParamsL</td><td class="module"><a href="SwaggerPetstore-API.html#v:rParamsL">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">runConfigLog</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runConfigLog">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">runConfigLogWithExceptions</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runConfigLogWithExceptions">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">runDefaultLogExecWithContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:runDefaultLogExecWithContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">runNullLogExec</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:runNullLogExec">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">rUrlPath</td><td class="module"><a href="SwaggerPetstore-API.html#v:rUrlPath">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rUrlPathL</td><td class="module"><a href="SwaggerPetstore-API.html#v:rUrlPathL">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - R</p><table><tr><td class="src">rAuthTypes</td><td class="module"><a href="SwaggerPetstore-Core.html#v:rAuthTypes">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">rAuthTypesL</td><td class="module"><a href="SwaggerPetstore-Core.html#v:rAuthTypesL">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">ReadOnlyFirst</td><td> </td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:ReadOnlyFirst">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:ReadOnlyFirst">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">readOnlyFirstBar</td><td class="module"><a href="SwaggerPetstore-Model.html#v:readOnlyFirstBar">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">readOnlyFirstBarL</td><td class="module"><a href="SwaggerPetstore-ModelLens.html#v:readOnlyFirstBarL">SwaggerPetstore.ModelLens</a>, SwaggerPetstore</td></tr><tr><td class="src">readOnlyFirstBaz</td><td class="module"><a href="SwaggerPetstore-Model.html#v:readOnlyFirstBaz">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">readOnlyFirstBazL</td><td class="module"><a href="SwaggerPetstore-ModelLens.html#v:readOnlyFirstBazL">SwaggerPetstore.ModelLens</a>, SwaggerPetstore</td></tr><tr><td class="src">removeHeader</td><td class="module"><a href="SwaggerPetstore-Core.html#v:removeHeader">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">rMethod</td><td class="module"><a href="SwaggerPetstore-Core.html#v:rMethod">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">rMethodL</td><td class="module"><a href="SwaggerPetstore-Core.html#v:rMethodL">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">rParams</td><td class="module"><a href="SwaggerPetstore-Core.html#v:rParams">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">rParamsL</td><td class="module"><a href="SwaggerPetstore-Core.html#v:rParamsL">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">runConfigLog</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runConfigLog">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">runConfigLogWithExceptions</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runConfigLogWithExceptions">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">runDefaultLogExecWithContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:runDefaultLogExecWithContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">runNullLogExec</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:runNullLogExec">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">rUrlPath</td><td class="module"><a href="SwaggerPetstore-Core.html#v:rUrlPath">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">rUrlPathL</td><td class="module"><a href="SwaggerPetstore-Core.html#v:rUrlPathL">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - W)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - W</p><table><tr><td class="src">withNoLogging</td><td class="module"><a href="SwaggerPetstore-Client.html#v:withNoLogging">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">withStderrLogging</td><td class="module"><a href="SwaggerPetstore-Client.html#v:withStderrLogging">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">withStdoutLogging</td><td class="module"><a href="SwaggerPetstore-Client.html#v:withStdoutLogging">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-B.html">B</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - W</p><table><tr><td class="src">withNoLogging</td><td class="module"><a href="SwaggerPetstore-Core.html#v:withNoLogging">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">withStderrLogging</td><td class="module"><a href="SwaggerPetstore-Core.html#v:withStderrLogging">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">withStdoutLogging</td><td class="module"><a href="SwaggerPetstore-Core.html#v:withStdoutLogging">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
@ -2,4 +2,4 @@
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="description"><h1>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</h1><div class="doc"><p>.
|
||||
Client library for calling the swagger-petstore API based on http-client.</p><p>host: petstore.swagger.io:80</p><p>base path: <a href="http://petstore.swagger.io:80/v2">http://petstore.swagger.io:80/v2</a></p><p>Swagger Petstore API version: 1.0.0</p><p>OpenAPI spec version: 2.0</p><p>OpenAPI-Specification: <a href="https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md">https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md</a></p></div></div><div id="module-list"><p class="caption">Modules</p><ul><li><span class="module"><span id="control.n.1" class="collapser" onclick="toggleSection('n.1')"> </span><a href="SwaggerPetstore.html">SwaggerPetstore</a></span><ul id="section.n.1" class="show"><li><span class="module"><a href="SwaggerPetstore-API.html">SwaggerPetstore.API</a></span></li><li><span class="module"><a href="SwaggerPetstore-Client.html">SwaggerPetstore.Client</a></span></li><li><span class="module"><a href="SwaggerPetstore-Lens.html">SwaggerPetstore.Lens</a></span></li><li><span class="module"><a href="SwaggerPetstore-Logging.html">SwaggerPetstore.Logging</a></span></li><li><span class="module"><a href="SwaggerPetstore-MimeTypes.html">SwaggerPetstore.MimeTypes</a></span></li><li><span class="module"><a href="SwaggerPetstore-Model.html">SwaggerPetstore.Model</a></span></li></ul></li></ul></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
Client library for calling the swagger-petstore API based on http-client.</p><p>host: petstore.swagger.io:80</p><p>base path: <a href="http://petstore.swagger.io:80/v2">http://petstore.swagger.io:80/v2</a></p><p>Swagger Petstore API version: 1.0.0</p><p>OpenAPI spec version: 2.0</p><p>OpenAPI-Specification: <a href="https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md">https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md</a></p></div></div><div id="module-list"><p class="caption">Modules</p><ul><li><span class="module"><span id="control.n.1" class="collapser" onclick="toggleSection('n.1')"> </span><a href="SwaggerPetstore.html">SwaggerPetstore</a></span><ul id="section.n.1" class="show"><li><span class="module"><a href="SwaggerPetstore-API.html">SwaggerPetstore.API</a></span></li><li><span class="module"><a href="SwaggerPetstore-Client.html">SwaggerPetstore.Client</a></span></li><li><span class="module"><a href="SwaggerPetstore-Core.html">SwaggerPetstore.Core</a></span></li><li><span class="module"><a href="SwaggerPetstore-Logging.html">SwaggerPetstore.Logging</a></span></li><li><span class="module"><a href="SwaggerPetstore-MimeTypes.html">SwaggerPetstore.MimeTypes</a></span></li><li><span class="module"><a href="SwaggerPetstore-Model.html">SwaggerPetstore.Model</a></span></li><li><span class="module"><a href="SwaggerPetstore-ModelLens.html">SwaggerPetstore.ModelLens</a></span></li></ul></li></ul></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
File diff suppressed because one or more lines are too long
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>SwaggerPetstore.Client</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body id="mini"><div id="module-header"><p class="caption">SwaggerPetstore.Client</p></div><div id="interface"><h1>Config</h1><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-Client.html#t:SwaggerPetstoreConfig" target="main">SwaggerPetstoreConfig</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:newConfig" target="main">newConfig</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:addAuthMethod" target="main">addAuthMethod</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:withStdoutLogging" target="main">withStdoutLogging</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:withStderrLogging" target="main">withStderrLogging</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:withNoLogging" target="main">withNoLogging</a></p></div><h1>Dispatch</h1><h2>Lbs</h2><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchLbs" target="main">dispatchLbs</a></p></div><h2>Mime</h2><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-Client.html#t:MimeResult" target="main">MimeResult</a> res</p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-Client.html#t:MimeError" target="main">MimeError</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchMime" target="main">dispatchMime</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchMime-39-" target="main">dispatchMime'</a></p></div><h2>Unsafe</h2><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchLbsUnsafe" target="main">dispatchLbsUnsafe</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchInitUnsafe" target="main">dispatchInitUnsafe</a></p></div><h1>InitRequest</h1><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-Client.html#t:InitRequest" target="main">InitRequest</a> req contentType res accept</p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:_toInitRequest" target="main">_toInitRequest</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:_applyAuthMethods" target="main">_applyAuthMethods</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:modifyInitRequest" target="main">modifyInitRequest</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:modifyInitRequestM" target="main">modifyInitRequestM</a></p></div><h2>Logging </h2><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:runConfigLog" target="main">runConfigLog</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:runConfigLogWithExceptions" target="main">runConfigLogWithExceptions</a></p></div></div></body></html>
|
||||
</script></head><body id="mini"><div id="module-header"><p class="caption">SwaggerPetstore.Client</p></div><div id="interface"><h1>Dispatch</h1><h2>Lbs</h2><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchLbs" target="main">dispatchLbs</a></p></div><h2>Mime</h2><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-Client.html#t:MimeResult" target="main">MimeResult</a> res</p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-Client.html#t:MimeError" target="main">MimeError</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchMime" target="main">dispatchMime</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchMime-39-" target="main">dispatchMime'</a></p></div><h2>Unsafe</h2><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchLbsUnsafe" target="main">dispatchLbsUnsafe</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:dispatchInitUnsafe" target="main">dispatchInitUnsafe</a></p></div><h1>InitRequest</h1><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-Client.html#t:InitRequest" target="main">InitRequest</a> req contentType res accept</p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:_toInitRequest" target="main">_toInitRequest</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:modifyInitRequest" target="main">modifyInitRequest</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:modifyInitRequestM" target="main">modifyInitRequestM</a></p></div><h2>Logging </h2><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:runConfigLog" target="main">runConfigLog</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Client.html#v:runConfigLogWithExceptions" target="main">runConfigLogWithExceptions</a></p></div></div></body></html>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>SwaggerPetstore.MimeTypes</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body id="mini"><div id="module-header"><p class="caption">SwaggerPetstore.MimeTypes</p></div><div id="interface"><h1>Content Negotiation</h1><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:NoContent" target="main">NoContent</a></p></div><h2>Mime Types</h2><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeJSON" target="main">MimeJSON</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeXML" target="main">MimeXML</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimePlainText" target="main">MimePlainText</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeFormUrlEncoded" target="main">MimeFormUrlEncoded</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeMultipartFormData" target="main">MimeMultipartFormData</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeOctetStream" target="main">MimeOctetStream</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeNoContent" target="main">MimeNoContent</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeAny" target="main">MimeAny</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeJsonCharsetutf8" target="main">MimeJsonCharsetutf8</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeXmlCharsetutf8" target="main">MimeXmlCharsetutf8</a></p></div><h2>MimeType Class</h2><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeType" target="main">MimeType</a> mtype</p></div><h2>MimeType Instances</h2><h2>MimeRender Class</h2><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeRender" target="main">MimeRender</a> mtype x</p></div><h2>MimeRender Instances</h2><div class="top"><p class="src"><a href="SwaggerPetstore-MimeTypes.html#v:mimeRenderDefaultMultipartFormData" target="main">mimeRenderDefaultMultipartFormData</a></p></div><h2>MimeUnrender Class</h2><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeUnrender" target="main">MimeUnrender</a> mtype o</p></div><h2>MimeUnrender Instances</h2><h2>Request Consumes</h2><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:Consumes" target="main">Consumes</a> req mtype</p></div><h2>Request Produces</h2><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:Produces" target="main">Produces</a> req mtype</p></div></div></body></html>
|
||||
</script></head><body id="mini"><div id="module-header"><p class="caption">SwaggerPetstore.MimeTypes</p></div><div id="interface"><h1>Consumes Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:Consumes" target="main">Consumes</a> req mtype</p></div><h1>Produces Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:Produces" target="main">Produces</a> req mtype</p></div><h1>Default Mime Types</h1><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeJSON" target="main">MimeJSON</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeXML" target="main">MimeXML</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimePlainText" target="main">MimePlainText</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeFormUrlEncoded" target="main">MimeFormUrlEncoded</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeMultipartFormData" target="main">MimeMultipartFormData</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeOctetStream" target="main">MimeOctetStream</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeNoContent" target="main">MimeNoContent</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeAny" target="main">MimeAny</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:NoContent" target="main">NoContent</a></p></div><h1>MimeType Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeType" target="main">MimeType</a> mtype</p></div><h1>MimeRender Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeRender" target="main">MimeRender</a> mtype x</p></div><div class="top"><p class="src"><a href="SwaggerPetstore-MimeTypes.html#v:mimeRenderDefaultMultipartFormData" target="main">mimeRenderDefaultMultipartFormData</a></p></div><h1>MimeUnrender Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeUnrender" target="main">MimeUnrender</a> mtype o</p></div></div></body></html>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -15,7 +15,7 @@
|
||||
</span><a name="line-15"></a><span class="hs-cpp">#if defined(VERSION_base)</span><span>
|
||||
</span><a name="line-16"></a><span>
|
||||
</span><a name="line-17"></a><span class="hs-cpp">#if MIN_VERSION_base(4,0,0)</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-identifier">catchIO</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679170526"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Exception</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">IOException</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679170526"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679170526"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-18"></a><span class="hs-identifier">catchIO</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679160574"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Exception</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">IOException</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679160574"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679160574"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-19"></a><span class="hs-cpp">#else</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-identifier">catchIO</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">a</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier">Exception</span><span class="hs-operator">.</span><span class="hs-identifier">Exception</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">a</span><span>
|
||||
</span><a name="line-21"></a><span class="hs-cpp">#endif</span><span>
|
||||
@ -45,7 +45,7 @@
|
||||
</span><a name="line-45"></a><a name="getSysconfDir"><a href="Paths_swagger_petstore.html#getSysconfDir"><span class="hs-identifier">getSysconfDir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="Paths_swagger_petstore.html#catchIO"><span class="hs-identifier hs-var">catchIO</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">getEnv</span><span> </span><span class="hs-string">"swagger_petstore_sysconfdir"</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="Paths_swagger_petstore.html#sysconfdir"><span class="hs-identifier hs-var">sysconfdir</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-46"></a><span>
|
||||
</span><a name="line-47"></a><span class="hs-identifier">getDataFileName</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span>
|
||||
</span><a name="line-48"></a><a name="getDataFileName"><a href="Paths_swagger_petstore.html#getDataFileName"><span class="hs-identifier">getDataFileName</span></a></a><span> </span><a name="local-6989586621679170852"><a href="#local-6989586621679170852"><span class="hs-identifier">name</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-49"></a><span> </span><a name="local-6989586621679170853"><a href="#local-6989586621679170853"><span class="hs-identifier">dir</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="Paths_swagger_petstore.html#getDataDir"><span class="hs-identifier hs-var">getDataDir</span></a><span>
|
||||
</span><a name="line-50"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679170853"><span class="hs-identifier hs-var">dir</span></a><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-string">"/"</span><span> </span><span class="hs-operator hs-var">++</span><span> </span><a href="#local-6989586621679170852"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-48"></a><a name="getDataFileName"><a href="Paths_swagger_petstore.html#getDataFileName"><span class="hs-identifier">getDataFileName</span></a></a><span> </span><a name="local-6989586621679160900"><a href="#local-6989586621679160900"><span class="hs-identifier">name</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-49"></a><span> </span><a name="local-6989586621679160901"><a href="#local-6989586621679160901"><span class="hs-identifier">dir</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="Paths_swagger_petstore.html#getDataDir"><span class="hs-identifier hs-var">getDataDir</span></a><span>
|
||||
</span><a name="line-50"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679160901"><span class="hs-identifier hs-var">dir</span></a><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-string">"/"</span><span> </span><span class="hs-operator hs-var">++</span><span> </span><a href="#local-6989586621679160900"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-51"></a></pre></body></html>
|
||||
File diff suppressed because it is too large
Load Diff
@ -25,273 +25,194 @@ Module : SwaggerPetstore.Client
|
||||
</span><a name="line-25"></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-27"></a><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Model.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span></a><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.API.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">API</span></a><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Core.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Core</span></a><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Logging.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Logging</span></a><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.MimeTypes.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">MimeTypes</span></a><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Logging.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Logging</span></a><span>
|
||||
</span><a name="line-32"></a><span>
|
||||
</span><a name="line-31"></a><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Exception</span><span class="hs-operator">.</span><span class="hs-identifier">Safe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">E</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">IO</span><span class="hs-operator">.</span><span class="hs-identifier">Class</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-35"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span class="hs-operator">.</span><span class="hs-identifier">Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Proxy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Proxy</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Function</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">&</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Monoid</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-39"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC</span><span class="hs-operator">.</span><span class="hs-identifier">Exts</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">IsString</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">Catch</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">MonadThrow</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-44"></a><span>
|
||||
</span><a name="line-45"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-46"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Map</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</span><span>
|
||||
</span><a name="line-47"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-48"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Printf</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-50"></a><span>
|
||||
</span><a name="line-51"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-52"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-53"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BC</span><span>
|
||||
</span><a name="line-54"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BCL</span><span>
|
||||
</span><a name="line-55"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Builder</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BB</span><span>
|
||||
</span><a name="line-56"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-57"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span class="hs-operator">.</span><span class="hs-identifier">TLS</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-58"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span class="hs-operator">.</span><span class="hs-identifier">MultipartFormData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-59"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Types</span><span class="hs-operator">.</span><span class="hs-identifier">Method</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-60"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-61"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Types</span><span class="hs-operator">.</span><span class="hs-identifier">URI</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-62"></a><span>
|
||||
</span><a name="line-63"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Exception</span><span class="hs-operator">.</span><span class="hs-identifier">Safe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">E</span><span>
|
||||
</span><a name="line-64"></a><span class="hs-comment">-- * Config</span><span>
|
||||
</span><a name="line-65"></a><span>
|
||||
</span><a name="line-66"></a><span class="hs-comment">-- | </span><span>
|
||||
</span><a name="line-67"></a><span class="hs-keyword">data</span><span> </span><a name="SwaggerPetstoreConfig"><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier">SwaggerPetstoreConfig</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="SwaggerPetstoreConfig"><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier">SwaggerPetstoreConfig</span></a></a><span>
|
||||
</span><a name="line-68"></a><span> </span><span class="hs-special">{</span><span> </span><a name="configHost"><a href="SwaggerPetstore.Client.html#configHost"><span class="hs-identifier">configHost</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-comment">-- ^ host supplied in the Request</span><span>
|
||||
</span><a name="line-69"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configUserAgent"><a href="SwaggerPetstore.Client.html#configUserAgent"><span class="hs-identifier">configUserAgent</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ user-agent supplied in the Request</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configLogExecWithContext"><a href="SwaggerPetstore.Client.html#configLogExecWithContext"><span class="hs-identifier">configLogExecWithContext</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span> </span><span class="hs-comment">-- ^ Run a block using a Logger instance</span><span>
|
||||
</span><a name="line-71"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configLogContext"><a href="SwaggerPetstore.Client.html#configLogContext"><span class="hs-identifier">configLogContext</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-comment">-- ^ Configures the logger</span><span>
|
||||
</span><a name="line-72"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configAuthMethods"><a href="SwaggerPetstore.Client.html#configAuthMethods"><span class="hs-identifier">configAuthMethods</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.API.html#AnyAuthMethod"><span class="hs-identifier hs-type">AnyAuthMethod</span></a><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ List of configured auth methods</span><span>
|
||||
</span><a name="line-73"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-74"></a><span>
|
||||
</span><a name="line-75"></a><span class="hs-comment">-- | display the config</span><span>
|
||||
</span><a name="line-76"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-77"></a><span> </span><a name="local-8214565720323792830"><span class="hs-identifier">show</span></a><span> </span><a name="local-6989586621679161223"><a href="#local-6989586621679161223"><span class="hs-identifier">c</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-78"></a><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">printf</span><span>
|
||||
</span><a name="line-79"></a><span> </span><span class="hs-string">"{ configHost = %v, configUserAgent = %v, ..}"</span><span>
|
||||
</span><a name="line-80"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configHost</span><span> </span><a href="#local-6989586621679161223"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-81"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679161223"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-82"></a><span>
|
||||
</span><a name="line-83"></a><span class="hs-comment">-- | constructs a default SwaggerPetstoreConfig</span><span>
|
||||
</span><a name="line-84"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-85"></a><span class="hs-comment">-- configHost:</span><span>
|
||||
</span><a name="line-86"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-87"></a><span class="hs-comment">-- @http://petstore.swagger.io:80/v2@</span><span>
|
||||
</span><a name="line-88"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-89"></a><span class="hs-comment">-- configUserAgent:</span><span>
|
||||
</span><a name="line-90"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-91"></a><span class="hs-comment">-- @"swagger-haskell-http-client/1.0.0"@</span><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-93"></a><span class="hs-identifier">newConfig</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-94"></a><a name="newConfig"><a href="SwaggerPetstore.Client.html#newConfig"><span class="hs-identifier">newConfig</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-95"></a><span> </span><a name="local-6989586621679160727"><a href="#local-6989586621679160727"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Logging.html#initLogContext"><span class="hs-identifier hs-var">initLogContext</span></a><span>
|
||||
</span><a name="line-96"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-97"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configHost</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"http://petstore.swagger.io:80/v2"</span><span>
|
||||
</span><a name="line-98"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configUserAgent</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"swagger-haskell-http-client/1.0.0"</span><span>
|
||||
</span><a name="line-99"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var">runDefaultLogExecWithContext</span></a><span>
|
||||
</span><a name="line-100"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679160727"><span class="hs-identifier hs-var">logCxt</span></a><span>
|
||||
</span><a name="line-101"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-102"></a><span> </span><span class="hs-special">}</span><span> </span><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BC</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BCL</span><span>
|
||||
</span><a name="line-39"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Proxy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Proxy</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span class="hs-operator">.</span><span class="hs-identifier">MultipartFormData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-44"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-45"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-46"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-47"></a><span>
|
||||
</span><a name="line-48"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Function</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">&</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Monoid</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-50"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-51"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC</span><span class="hs-operator">.</span><span class="hs-identifier">Exts</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">IsString</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-52"></a><span>
|
||||
</span><a name="line-53"></a><span class="hs-comment">-- * Dispatch</span><span>
|
||||
</span><a name="line-54"></a><span>
|
||||
</span><a name="line-55"></a><span class="hs-comment">-- ** Lbs</span><span>
|
||||
</span><a name="line-56"></a><span>
|
||||
</span><a name="line-57"></a><span class="hs-comment">-- | send a request returning the raw http response</span><span>
|
||||
</span><a name="line-58"></a><span class="hs-identifier">dispatchLbs</span><span>
|
||||
</span><a name="line-59"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679143016"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679143017"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679143018"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-60"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-61"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-62"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679143016"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679143018"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679143019"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-63"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679143017"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-64"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-65"></a><a name="dispatchLbs"><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier">dispatchLbs</span></a></a><span> </span><a name="local-6989586621679143020"><a href="#local-6989586621679143020"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679143021"><a href="#local-6989586621679143021"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679143022"><a href="#local-6989586621679143022"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679143023"><a href="#local-6989586621679143023"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-66"></a><span> </span><a name="local-6989586621679143024"><a href="#local-6989586621679143024"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679143021"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679143022"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679143023"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-67"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679143020"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679143021"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679143024"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-68"></a><span>
|
||||
</span><a name="line-69"></a><span class="hs-comment">-- ** Mime</span><span>
|
||||
</span><a name="line-70"></a><span>
|
||||
</span><a name="line-71"></a><span class="hs-comment">-- | pair of decoded http body and http response</span><span>
|
||||
</span><a name="line-72"></a><span class="hs-keyword">data</span><span> </span><a name="MimeResult"><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier">MimeResult</span></a></a><span> </span><a name="local-6989586621679142984"><a href="#local-6989586621679142984"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-73"></a><span> </span><a name="MimeResult"><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier">MimeResult</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="mimeResult"><a href="SwaggerPetstore.Client.html#mimeResult"><span class="hs-identifier">mimeResult</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679142984"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ decoded http body</span><span>
|
||||
</span><a name="line-74"></a><span> </span><span class="hs-special">,</span><span> </span><a name="mimeResultResponse"><a href="SwaggerPetstore.Client.html#mimeResultResponse"><span class="hs-identifier">mimeResultResponse</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-comment">-- ^ http response </span><span>
|
||||
</span><a name="line-75"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-76"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Foldable</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Traversable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-77"></a><span>
|
||||
</span><a name="line-78"></a><span class="hs-comment">-- | pair of unrender/parser error and http response</span><span>
|
||||
</span><a name="line-79"></a><span class="hs-keyword">data</span><span> </span><a name="MimeError"><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier">MimeError</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-80"></a><span> </span><a name="MimeError"><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier">MimeError</span></a></a><span> </span><span class="hs-special">{</span><span>
|
||||
</span><a name="line-81"></a><span> </span><a name="mimeError"><a href="SwaggerPetstore.Client.html#mimeError"><span class="hs-identifier">mimeError</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-comment">-- ^ unrender/parser error</span><span>
|
||||
</span><a name="line-82"></a><span> </span><span class="hs-special">,</span><span> </span><a name="mimeErrorResponse"><a href="SwaggerPetstore.Client.html#mimeErrorResponse"><span class="hs-identifier">mimeErrorResponse</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-comment">-- ^ http response </span><span>
|
||||
</span><a name="line-83"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-84"></a><span>
|
||||
</span><a name="line-85"></a><span class="hs-comment">-- | send a request returning the 'MimeResult'</span><span>
|
||||
</span><a name="line-86"></a><span class="hs-identifier">dispatchMime</span><span>
|
||||
</span><a name="line-87"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679143012"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679143013"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="#local-6989586621679143013"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679143014"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679143015"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-88"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-89"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-90"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679143012"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679143015"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679143014"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-91"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679143013"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-92"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-type">MimeResult</span></a><span> </span><a href="#local-6989586621679143014"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-93"></a><a name="dispatchMime"><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier">dispatchMime</span></a></a><span> </span><a name="local-6989586621679143025"><a href="#local-6989586621679143025"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679143026"><a href="#local-6989586621679143026"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679143027"><a href="#local-6989586621679143027"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679143028"><a href="#local-6989586621679143028"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-94"></a><span> </span><a name="local-6989586621679143029"><a href="#local-6989586621679143029"><span class="hs-identifier">httpResponse</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier hs-var">dispatchLbs</span></a><span> </span><a href="#local-6989586621679143025"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679143026"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679143027"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679143028"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-95"></a><span> </span><a name="local-6989586621679143032"><a href="#local-6989586621679143032"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-glyph"><-</span><span>
|
||||
</span><a name="line-96"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="#local-6989586621679143026"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-97"></a><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier hs-var">mimeUnrender'</span></a><span> </span><a href="#local-6989586621679143028"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">responseBody</span><span> </span><a href="#local-6989586621679143029"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-98"></a><span> </span><span class="hs-identifier hs-var">Left</span><span> </span><a name="local-6989586621679143030"><a href="#local-6989586621679143030"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-99"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="SwaggerPetstore.Logging.html#levelError"><span class="hs-identifier hs-var">levelError</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><a href="#local-6989586621679143030"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-100"></a><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Left</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-var">MimeError</span></a><span> </span><a href="#local-6989586621679143030"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679143029"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-101"></a><span> </span><span class="hs-identifier hs-var">Right</span><span> </span><a name="local-6989586621679143031"><a href="#local-6989586621679143031"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Right</span><span> </span><a href="#local-6989586621679143031"><span class="hs-identifier hs-var">r</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-102"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a href="#local-6989586621679143032"><span class="hs-identifier hs-var">parsedResult</span></a><span> </span><a href="#local-6989586621679143029"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-103"></a><span>
|
||||
</span><a name="line-104"></a><span class="hs-comment">-- | updates config use AuthMethod on matching requests</span><span>
|
||||
</span><a name="line-105"></a><span class="hs-identifier">addAuthMethod</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679160726"><span class="hs-identifier hs-type">auth</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679160726"><span class="hs-identifier hs-type">auth</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-106"></a><a name="addAuthMethod"><a href="SwaggerPetstore.Client.html#addAuthMethod"><span class="hs-identifier">addAuthMethod</span></a></a><span> </span><a name="local-6989586621679160728"><a href="#local-6989586621679160728"><span class="hs-identifier">config</span></a></a><span class="hs-glyph">@</span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-special">{</span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span> </span><a name="local-6989586621679160730"><a href="#local-6989586621679160730"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-107"></a><span> </span><a href="#local-6989586621679160728"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a href="#local-6989586621679160730"><span class="hs-identifier hs-var">a</span></a><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-108"></a><span>
|
||||
</span><a name="line-109"></a><span class="hs-comment">-- | updates the config to use stdout logging</span><span>
|
||||
</span><a name="line-110"></a><span class="hs-identifier">withStdoutLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-111"></a><a name="withStdoutLogging"><a href="SwaggerPetstore.Client.html#withStdoutLogging"><span class="hs-identifier">withStdoutLogging</span></a></a><span> </span><a name="local-6989586621679160731"><a href="#local-6989586621679160731"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-112"></a><span> </span><a name="local-6989586621679160732"><a href="#local-6989586621679160732"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Logging.html#stdoutLoggingContext"><span class="hs-identifier hs-var">stdoutLoggingContext</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679160731"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-113"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679160731"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#stdoutLoggingExec"><span class="hs-identifier hs-var">stdoutLoggingExec</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679160732"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-114"></a><span>
|
||||
</span><a name="line-115"></a><span class="hs-comment">-- | updates the config to use stderr logging</span><span>
|
||||
</span><a name="line-116"></a><span class="hs-identifier">withStderrLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-117"></a><a name="withStderrLogging"><a href="SwaggerPetstore.Client.html#withStderrLogging"><span class="hs-identifier">withStderrLogging</span></a></a><span> </span><a name="local-6989586621679160733"><a href="#local-6989586621679160733"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-118"></a><span> </span><a name="local-6989586621679160734"><a href="#local-6989586621679160734"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Logging.html#stderrLoggingContext"><span class="hs-identifier hs-var">stderrLoggingContext</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679160733"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-119"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679160733"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#stderrLoggingExec"><span class="hs-identifier hs-var">stderrLoggingExec</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679160734"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-120"></a><span>
|
||||
</span><a name="line-121"></a><span class="hs-comment">-- | updates the config to disable logging</span><span>
|
||||
</span><a name="line-122"></a><span class="hs-identifier">withNoLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-123"></a><a name="withNoLogging"><a href="SwaggerPetstore.Client.html#withNoLogging"><span class="hs-identifier">withNoLogging</span></a></a><span> </span><a name="local-6989586621679160735"><a href="#local-6989586621679160735"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679160735"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#runNullLogExec"><span class="hs-identifier hs-var">runNullLogExec</span></a><span class="hs-special">}</span><span>
|
||||
</span><a name="line-124"></a><span>
|
||||
</span><a name="line-125"></a><span class="hs-comment">-- * Dispatch</span><span>
|
||||
</span><a name="line-126"></a><span>
|
||||
</span><a name="line-127"></a><span class="hs-comment">-- ** Lbs</span><span>
|
||||
</span><a name="line-128"></a><span>
|
||||
</span><a name="line-129"></a><span class="hs-comment">-- | send a request returning the raw http response</span><span>
|
||||
</span><a name="line-130"></a><span class="hs-identifier">dispatchLbs</span><span>
|
||||
</span><a name="line-131"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679160722"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160723"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679160724"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-132"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-133"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-134"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679160722"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160724"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160725"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-135"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679160723"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-136"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-137"></a><a name="dispatchLbs"><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier">dispatchLbs</span></a></a><span> </span><a name="local-6989586621679160736"><a href="#local-6989586621679160736"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679160737"><a href="#local-6989586621679160737"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679160738"><a href="#local-6989586621679160738"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679160739"><a href="#local-6989586621679160739"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-138"></a><span> </span><a name="local-6989586621679160740"><a href="#local-6989586621679160740"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679160737"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679160738"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679160739"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-139"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679160736"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679160737"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679160740"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-140"></a><span>
|
||||
</span><a name="line-141"></a><span class="hs-comment">-- ** Mime</span><span>
|
||||
</span><a name="line-142"></a><span>
|
||||
</span><a name="line-143"></a><span class="hs-comment">-- | pair of decoded http body and http response</span><span>
|
||||
</span><a name="line-144"></a><span class="hs-keyword">data</span><span> </span><a name="MimeResult"><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier">MimeResult</span></a></a><span> </span><a name="local-6989586621679160687"><a href="#local-6989586621679160687"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-145"></a><span> </span><a name="MimeResult"><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier">MimeResult</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="mimeResult"><a href="SwaggerPetstore.Client.html#mimeResult"><span class="hs-identifier">mimeResult</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679160687"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ decoded http body</span><span>
|
||||
</span><a name="line-146"></a><span> </span><span class="hs-special">,</span><span> </span><a name="mimeResultResponse"><a href="SwaggerPetstore.Client.html#mimeResultResponse"><span class="hs-identifier">mimeResultResponse</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-comment">-- ^ http response </span><span>
|
||||
</span><a name="line-147"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-148"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Foldable</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Traversable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-149"></a><span>
|
||||
</span><a name="line-150"></a><span class="hs-comment">-- | pair of unrender/parser error and http response</span><span>
|
||||
</span><a name="line-151"></a><span class="hs-keyword">data</span><span> </span><a name="MimeError"><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier">MimeError</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-152"></a><span> </span><a name="MimeError"><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier">MimeError</span></a></a><span> </span><span class="hs-special">{</span><span>
|
||||
</span><a name="line-153"></a><span> </span><a name="mimeError"><a href="SwaggerPetstore.Client.html#mimeError"><span class="hs-identifier">mimeError</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-comment">-- ^ unrender/parser error</span><span>
|
||||
</span><a name="line-154"></a><span> </span><span class="hs-special">,</span><span> </span><a name="mimeErrorResponse"><a href="SwaggerPetstore.Client.html#mimeErrorResponse"><span class="hs-identifier">mimeErrorResponse</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-comment">-- ^ http response </span><span>
|
||||
</span><a name="line-155"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-156"></a><span>
|
||||
</span><a name="line-157"></a><span class="hs-comment">-- | send a request returning the 'MimeResult'</span><span>
|
||||
</span><a name="line-158"></a><span class="hs-identifier">dispatchMime</span><span>
|
||||
</span><a name="line-159"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679160718"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160719"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="#local-6989586621679160719"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679160720"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679160721"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-160"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-161"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-162"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679160718"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160721"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160720"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-163"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679160719"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-164"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-type">MimeResult</span></a><span> </span><a href="#local-6989586621679160720"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-165"></a><a name="dispatchMime"><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier">dispatchMime</span></a></a><span> </span><a name="local-6989586621679160741"><a href="#local-6989586621679160741"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679160742"><a href="#local-6989586621679160742"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679160743"><a href="#local-6989586621679160743"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679160744"><a href="#local-6989586621679160744"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-166"></a><span> </span><a name="local-6989586621679160745"><a href="#local-6989586621679160745"><span class="hs-identifier">httpResponse</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier hs-var">dispatchLbs</span></a><span> </span><a href="#local-6989586621679160741"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679160742"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679160743"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679160744"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-167"></a><span> </span><a name="local-6989586621679160748"><a href="#local-6989586621679160748"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-glyph"><-</span><span>
|
||||
</span><a name="line-168"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="#local-6989586621679160742"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-169"></a><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier hs-var">mimeUnrender'</span></a><span> </span><a href="#local-6989586621679160744"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">responseBody</span><span> </span><a href="#local-6989586621679160745"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-170"></a><span> </span><span class="hs-identifier hs-var">Left</span><span> </span><a name="local-6989586621679160746"><a href="#local-6989586621679160746"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-171"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="SwaggerPetstore.Logging.html#levelError"><span class="hs-identifier hs-var">levelError</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><a href="#local-6989586621679160746"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-172"></a><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Left</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-var">MimeError</span></a><span> </span><a href="#local-6989586621679160746"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679160745"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-173"></a><span> </span><span class="hs-identifier hs-var">Right</span><span> </span><a name="local-6989586621679160747"><a href="#local-6989586621679160747"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Right</span><span> </span><a href="#local-6989586621679160747"><span class="hs-identifier hs-var">r</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-174"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a href="#local-6989586621679160748"><span class="hs-identifier hs-var">parsedResult</span></a><span> </span><a href="#local-6989586621679160745"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-175"></a><span>
|
||||
</span><a name="line-176"></a><span class="hs-comment">-- | like 'dispatchMime', but only returns the decoded http body</span><span>
|
||||
</span><a name="line-177"></a><span class="hs-identifier">dispatchMime'</span><span>
|
||||
</span><a name="line-178"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679160714"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160715"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="#local-6989586621679160715"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679160716"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679160717"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-179"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-180"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-181"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679160714"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160717"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160716"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-182"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679160715"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-183"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679160716"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-184"></a><a name="dispatchMime%27"><a href="SwaggerPetstore.Client.html#dispatchMime%27"><span class="hs-identifier">dispatchMime'</span></a></a><span> </span><a name="local-6989586621679160749"><a href="#local-6989586621679160749"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679160750"><a href="#local-6989586621679160750"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679160751"><a href="#local-6989586621679160751"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679160752"><a href="#local-6989586621679160752"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-185"></a><span> </span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a name="local-6989586621679160753"><a href="#local-6989586621679160753"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier hs-var">dispatchMime</span></a><span> </span><a href="#local-6989586621679160749"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679160750"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679160751"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679160752"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-186"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679160753"><span class="hs-identifier hs-var">parsedResult</span></a><span>
|
||||
</span><a name="line-187"></a><span>
|
||||
</span><a name="line-188"></a><span class="hs-comment">-- ** Unsafe</span><span>
|
||||
</span><a name="line-189"></a><span>
|
||||
</span><a name="line-190"></a><span class="hs-comment">-- | like 'dispatchReqLbs', but does not validate the operation is a 'Producer' of the "accept" 'MimeType'. (Useful if the server's response is undocumented)</span><span>
|
||||
</span><a name="line-191"></a><span class="hs-identifier">dispatchLbsUnsafe</span><span>
|
||||
</span><a name="line-192"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679160710"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679160711"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-193"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-194"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-195"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679160712"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160711"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160713"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-196"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679160710"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-197"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-198"></a><a name="dispatchLbsUnsafe"><a href="SwaggerPetstore.Client.html#dispatchLbsUnsafe"><span class="hs-identifier">dispatchLbsUnsafe</span></a></a><span> </span><a name="local-6989586621679160754"><a href="#local-6989586621679160754"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679160755"><a href="#local-6989586621679160755"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679160756"><a href="#local-6989586621679160756"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679160757"><a href="#local-6989586621679160757"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-199"></a><span> </span><a name="local-6989586621679160758"><a href="#local-6989586621679160758"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679160755"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679160756"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679160757"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-200"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679160754"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679160755"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679160758"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-201"></a><span>
|
||||
</span><a name="line-202"></a><span class="hs-comment">-- | dispatch an InitRequest</span><span>
|
||||
</span><a name="line-203"></a><span class="hs-identifier">dispatchInitUnsafe</span><span>
|
||||
</span><a name="line-204"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-205"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-206"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679160706"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160707"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160708"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679160709"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ init request</span><span>
|
||||
</span><a name="line-207"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-208"></a><a name="dispatchInitUnsafe"><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier">dispatchInitUnsafe</span></a></a><span> </span><a name="local-6989586621679160759"><a href="#local-6989586621679160759"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679160760"><a href="#local-6989586621679160760"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679160761"><a href="#local-6989586621679160761"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-209"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><a href="#local-6989586621679160762"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="#local-6989586621679160760"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-210"></a><span> </span><span class="hs-keyword">do</span><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679160762"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelInfo"><span class="hs-identifier hs-var">levelInfo</span></a><span> </span><a href="#local-6989586621679160764"><span class="hs-identifier hs-var">requestLogMsg</span></a><span>
|
||||
</span><a name="line-211"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679160762"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelDebug"><span class="hs-identifier hs-var">levelDebug</span></a><span> </span><a href="#local-6989586621679160765"><span class="hs-identifier hs-var">requestDbgLogMsg</span></a><span>
|
||||
</span><a name="line-212"></a><span> </span><a name="local-6989586621679161197"><a href="#local-6989586621679161197"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">httpLbs</span><span> </span><a href="#local-6989586621679160761"><span class="hs-identifier hs-var">req</span></a><span> </span><a href="#local-6989586621679160759"><span class="hs-identifier hs-var">manager</span></a><span>
|
||||
</span><a name="line-213"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679160762"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelInfo"><span class="hs-identifier hs-var">levelInfo</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679160767"><span class="hs-identifier hs-var">responseLogMsg</span></a><span> </span><a href="#local-6989586621679161197"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-214"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679160762"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelDebug"><span class="hs-identifier hs-var">levelDebug</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679161197"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-215"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679161197"><span class="hs-identifier hs-var">res</span></a><span>
|
||||
</span><a name="line-216"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-217"></a><span> </span><a name="local-6989586621679160762"><a href="#local-6989586621679160762"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"Client"</span><span>
|
||||
</span><a name="line-218"></a><span> </span><a name="local-6989586621679160763"><a href="#local-6989586621679160763"><span class="hs-identifier">endpoint</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-219"></a><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-220"></a><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-221"></a><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">method</span><span> </span><a href="#local-6989586621679160761"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" "</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">host</span><span> </span><a href="#local-6989586621679160761"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">path</span><span> </span><a href="#local-6989586621679160761"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><a href="#local-6989586621679160761"><span class="hs-identifier hs-var">req</span></a><span>
|
||||
</span><a name="line-222"></a><span> </span><a name="local-6989586621679160764"><a href="#local-6989586621679160764"><span class="hs-identifier">requestLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"REQ:"</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679160763"><span class="hs-identifier hs-var">endpoint</span></a><span>
|
||||
</span><a name="line-223"></a><span> </span><a name="local-6989586621679160765"><a href="#local-6989586621679160765"><span class="hs-identifier">requestDbgLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-224"></a><span> </span><span class="hs-string">"Headers="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><a href="#local-6989586621679160761"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" Body="</span><span> </span><span class="hs-operator hs-var"><></span><span>
|
||||
</span><a name="line-225"></a><span> </span><span class="hs-special">(</span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><a href="#local-6989586621679160761"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-226"></a><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><a name="local-6989586621679160768"><a href="#local-6989586621679160768"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span> </span><a href="#local-6989586621679160768"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-227"></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-string">"<RequestBody>"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-228"></a><span> </span><a name="local-6989586621679160766"><a href="#local-6989586621679160766"><span class="hs-identifier">responseStatusCode</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">statusCode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">responseStatus</span><span>
|
||||
</span><a name="line-229"></a><span> </span><a name="local-6989586621679160767"><a href="#local-6989586621679160767"><span class="hs-identifier">responseLogMsg</span></a></a><span> </span><a name="local-6989586621679161143"><a href="#local-6989586621679161143"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-230"></a><span> </span><span class="hs-string">"RES:statusCode="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679160766"><span class="hs-identifier hs-var">responseStatusCode</span></a><span> </span><a href="#local-6989586621679161143"><span class="hs-identifier hs-var">res</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" ("</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679160763"><span class="hs-identifier hs-var">endpoint</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">")"</span><span>
|
||||
</span><a name="line-231"></a><span>
|
||||
</span><a name="line-232"></a><span class="hs-comment">-- * InitRequest</span><span>
|
||||
</span><a name="line-233"></a><span>
|
||||
</span><a name="line-234"></a><span class="hs-comment">-- | wraps an http-client 'Request' with request/response type parameters</span><span>
|
||||
</span><a name="line-235"></a><span class="hs-keyword">newtype</span><span> </span><a name="InitRequest"><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier">InitRequest</span></a></a><span> </span><a name="local-6989586621679160683"><a href="#local-6989586621679160683"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679160684"><a href="#local-6989586621679160684"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679160685"><a href="#local-6989586621679160685"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679160686"><a href="#local-6989586621679160686"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="InitRequest"><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier">InitRequest</span></a></a><span>
|
||||
</span><a name="line-236"></a><span> </span><span class="hs-special">{</span><span> </span><a name="unInitRequest"><a href="SwaggerPetstore.Client.html#unInitRequest"><span class="hs-identifier">unInitRequest</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span>
|
||||
</span><a name="line-237"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-238"></a><span>
|
||||
</span><a name="line-239"></a><span class="hs-comment">-- | Build an http-client 'Request' record from the supplied config and request</span><span>
|
||||
</span><a name="line-240"></a><span class="hs-identifier">_toInitRequest</span><span>
|
||||
</span><a name="line-241"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679160702"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679160703"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-242"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-243"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679160704"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160703"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160705"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-244"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679160702"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-245"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679160704"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160703"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160705"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679160702"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ initialized request</span><span>
|
||||
</span><a name="line-246"></a><a name="_toInitRequest"><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier">_toInitRequest</span></a></a><span> </span><a name="local-6989586621679161198"><a href="#local-6989586621679161198"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679161199"><a href="#local-6989586621679161199"><span class="hs-identifier">req0</span></a></a><span> </span><a name="local-6989586621679161200"><a href="#local-6989586621679161200"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-247"></a><span> </span><a name="local-6989586621679161201"><a href="#local-6989586621679161201"><span class="hs-identifier">parsedReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseRequest</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">append</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configHost</span><span> </span><a href="#local-6989586621679161198"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">concat</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rUrlPath</span><span> </span><a href="#local-6989586621679161199"><span class="hs-identifier hs-var">req0</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-248"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679161202"><a href="#local-6989586621679161202"><span class="hs-identifier">req1</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#_applyAuthMethods"><span class="hs-identifier hs-var">_applyAuthMethods</span></a><span> </span><a href="#local-6989586621679161199"><span class="hs-identifier hs-var">req0</span></a><span> </span><a href="#local-6989586621679161198"><span class="hs-identifier hs-var">config</span></a><span>
|
||||
</span><a name="line-249"></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><a href="SwaggerPetstore.API.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span>
|
||||
</span><a name="line-250"></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">flip</span><span> </span><a href="SwaggerPetstore.API.html#_setAcceptHeader"><span class="hs-identifier hs-var">_setAcceptHeader</span></a><span> </span><a href="#local-6989586621679161200"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-251"></a><span> </span><a name="local-6989586621679161203"><a href="#local-6989586621679161203"><span class="hs-identifier">reqHeaders</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-string">"User-Agent"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toHeader</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679161198"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679161202"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-252"></a><span> </span><a name="local-6989586621679161204"><a href="#local-6989586621679161204"><span class="hs-identifier">reqQuery</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">renderQuery</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">paramsQuery</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679161202"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-253"></a><span> </span><a name="local-6989586621679161205"><a href="#local-6989586621679161205"><span class="hs-identifier">pReq</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679161201"><span class="hs-identifier hs-var">parsedReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">method</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rMethod</span><span> </span><a href="#local-6989586621679161202"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-254"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679161203"><span class="hs-identifier hs-var">reqHeaders</span></a><span>
|
||||
</span><a name="line-255"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679161204"><span class="hs-identifier hs-var">reqQuery</span></a><span>
|
||||
</span><a name="line-256"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-257"></a><span> </span><a name="local-6989586621679161210"><a href="#local-6989586621679161210"><span class="hs-identifier">outReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679161202"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-258"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyNone"><span class="hs-identifier hs-var">ParamBodyNone</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679161205"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-259"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a name="local-6989586621679161206"><a href="#local-6989586621679161206"><span class="hs-identifier">bs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679161205"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyBS</span><span> </span><a href="#local-6989586621679161206"><span class="hs-identifier hs-var">bs</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-260"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a name="local-6989586621679161207"><a href="#local-6989586621679161207"><span class="hs-identifier">bl</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679161205"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><a href="#local-6989586621679161207"><span class="hs-identifier hs-var">bl</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-261"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679161208"><a href="#local-6989586621679161208"><span class="hs-identifier">form</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679161205"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeForm</span><span> </span><a href="#local-6989586621679161208"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-262"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679161209"><a href="#local-6989586621679161209"><span class="hs-identifier">parts</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formDataBody</span><span> </span><a href="#local-6989586621679161209"><span class="hs-identifier hs-var">parts</span></a><span> </span><a href="#local-6989586621679161205"><span class="hs-identifier hs-var">pReq</span></a><span>
|
||||
</span><a name="line-263"></a><span>
|
||||
</span><a name="line-264"></a><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a href="#local-6989586621679161210"><span class="hs-identifier hs-var">outReq</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-265"></a><span>
|
||||
</span><a name="line-266"></a><span class="hs-comment">-- | apply all matching AuthMethods in config to request</span><span>
|
||||
</span><a name="line-267"></a><span class="hs-identifier">_applyAuthMethods</span><span>
|
||||
</span><a name="line-268"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679160699"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160700"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160701"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-269"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-270"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679160699"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160700"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160701"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-271"></a><a name="_applyAuthMethods"><a href="SwaggerPetstore.Client.html#_applyAuthMethods"><span class="hs-identifier">_applyAuthMethods</span></a></a><span> </span><a name="local-6989586621679161211"><a href="#local-6989586621679161211"><span class="hs-identifier">req</span></a></a><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-special">{</span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-272"></a><span> </span><span class="hs-identifier hs-var">foldl</span><span> </span><a href="#local-6989586621679161213"><span class="hs-identifier hs-var">go</span></a><span> </span><a href="#local-6989586621679161211"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">as</span><span>
|
||||
</span><a name="line-273"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-274"></a><span> </span><a name="local-6989586621679161213"><a href="#local-6989586621679161213"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679161214"><a href="#local-6989586621679161214"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a name="local-6989586621679161215"><a href="#local-6989586621679161215"><span class="hs-identifier">a</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679161214"><span class="hs-identifier hs-var">r</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#applyAuthMethod"><span class="hs-identifier hs-var">applyAuthMethod</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679161215"><span class="hs-identifier hs-var">a</span></a><span>
|
||||
</span><a name="line-275"></a><span>
|
||||
</span><a name="line-276"></a><span class="hs-comment">-- | modify the underlying Request</span><span>
|
||||
</span><a name="line-277"></a><span class="hs-identifier">modifyInitRequest</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679160695"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160696"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160697"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679160698"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679160695"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160696"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160697"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679160698"><span class="hs-identifier hs-type">accept</span></a><span> </span><span>
|
||||
</span><a name="line-278"></a><a name="modifyInitRequest"><a href="SwaggerPetstore.Client.html#modifyInitRequest"><span class="hs-identifier">modifyInitRequest</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679161216"><a href="#local-6989586621679161216"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679161217"><a href="#local-6989586621679161217"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679161217"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679161216"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-279"></a><span>
|
||||
</span><a name="line-280"></a><span class="hs-comment">-- | modify the underlying Request (monadic)</span><span>
|
||||
</span><a name="line-281"></a><span class="hs-identifier">modifyInitRequestM</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679160690"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679160691"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160692"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160693"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679160694"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679160690"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679160690"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679160691"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679160692"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679160693"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679160694"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-282"></a><a name="modifyInitRequestM"><a href="SwaggerPetstore.Client.html#modifyInitRequestM"><span class="hs-identifier">modifyInitRequestM</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679161218"><a href="#local-6989586621679161218"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679161219"><a href="#local-6989586621679161219"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679161219"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679161218"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-283"></a><span>
|
||||
</span><a name="line-284"></a><span class="hs-comment">-- ** Logging </span><span>
|
||||
</span><a name="line-285"></a><span>
|
||||
</span><a name="line-286"></a><span class="hs-comment">-- | Run a block using the configured logger instance</span><span>
|
||||
</span><a name="line-287"></a><span class="hs-identifier">runConfigLog</span><span>
|
||||
</span><a name="line-288"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679160689"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-289"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679160689"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-290"></a><a name="runConfigLog"><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier">runConfigLog</span></a></a><span> </span><a name="local-6989586621679161220"><a href="#local-6989586621679161220"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><a href="#local-6989586621679161220"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679161220"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-291"></a><span>
|
||||
</span><a name="line-292"></a><span class="hs-comment">-- | Run a block using the configured logger instance (logs exceptions)</span><span>
|
||||
</span><a name="line-293"></a><span class="hs-identifier">runConfigLogWithExceptions</span><span>
|
||||
</span><a name="line-294"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679160688"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679160688"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-295"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679160688"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-296"></a><a name="runConfigLogWithExceptions"><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier">runConfigLogWithExceptions</span></a></a><span> </span><a name="local-6989586621679161221"><a href="#local-6989586621679161221"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679161222"><a href="#local-6989586621679161222"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier hs-var">runConfigLog</span></a><span> </span><a href="#local-6989586621679161222"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Logging.html#logExceptions"><span class="hs-identifier hs-var">logExceptions</span></a><span> </span><a href="#local-6989586621679161221"><span class="hs-identifier hs-var">src</span></a><span>
|
||||
</span><a name="line-297"></a></pre></body></html>
|
||||
</span><a name="line-104"></a><span class="hs-comment">-- | like 'dispatchMime', but only returns the decoded http body</span><span>
|
||||
</span><a name="line-105"></a><span class="hs-identifier">dispatchMime'</span><span>
|
||||
</span><a name="line-106"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679143008"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679143009"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="#local-6989586621679143009"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679143010"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679143011"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-107"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-108"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-109"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679143008"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679143011"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679143010"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-110"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679143009"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-111"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679143010"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-112"></a><a name="dispatchMime%27"><a href="SwaggerPetstore.Client.html#dispatchMime%27"><span class="hs-identifier">dispatchMime'</span></a></a><span> </span><a name="local-6989586621679143033"><a href="#local-6989586621679143033"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679143034"><a href="#local-6989586621679143034"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679143035"><a href="#local-6989586621679143035"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679143036"><a href="#local-6989586621679143036"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-113"></a><span> </span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a name="local-6989586621679143037"><a href="#local-6989586621679143037"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier hs-var">dispatchMime</span></a><span> </span><a href="#local-6989586621679143033"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679143034"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679143035"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679143036"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-114"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679143037"><span class="hs-identifier hs-var">parsedResult</span></a><span>
|
||||
</span><a name="line-115"></a><span>
|
||||
</span><a name="line-116"></a><span class="hs-comment">-- ** Unsafe</span><span>
|
||||
</span><a name="line-117"></a><span>
|
||||
</span><a name="line-118"></a><span class="hs-comment">-- | like 'dispatchReqLbs', but does not validate the operation is a 'Producer' of the "accept" 'MimeType'. (Useful if the server's response is undocumented)</span><span>
|
||||
</span><a name="line-119"></a><span class="hs-identifier">dispatchLbsUnsafe</span><span>
|
||||
</span><a name="line-120"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679143004"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679143005"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-121"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-122"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-123"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679143006"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679143005"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679143007"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-124"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679143004"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-125"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-126"></a><a name="dispatchLbsUnsafe"><a href="SwaggerPetstore.Client.html#dispatchLbsUnsafe"><span class="hs-identifier">dispatchLbsUnsafe</span></a></a><span> </span><a name="local-6989586621679143038"><a href="#local-6989586621679143038"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679143039"><a href="#local-6989586621679143039"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679143040"><a href="#local-6989586621679143040"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679143041"><a href="#local-6989586621679143041"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-127"></a><span> </span><a name="local-6989586621679143042"><a href="#local-6989586621679143042"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679143039"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679143040"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679143041"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-128"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679143038"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679143039"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679143042"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-129"></a><span>
|
||||
</span><a name="line-130"></a><span class="hs-comment">-- | dispatch an InitRequest</span><span>
|
||||
</span><a name="line-131"></a><span class="hs-identifier">dispatchInitUnsafe</span><span>
|
||||
</span><a name="line-132"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-133"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-134"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679143000"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679143001"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679143002"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679143003"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ init request</span><span>
|
||||
</span><a name="line-135"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-136"></a><a name="dispatchInitUnsafe"><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier">dispatchInitUnsafe</span></a></a><span> </span><a name="local-6989586621679143043"><a href="#local-6989586621679143043"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679143044"><a href="#local-6989586621679143044"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679143045"><a href="#local-6989586621679143045"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-137"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><a href="#local-6989586621679143046"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="#local-6989586621679143044"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-138"></a><span> </span><span class="hs-keyword">do</span><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679143046"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelInfo"><span class="hs-identifier hs-var">levelInfo</span></a><span> </span><a href="#local-6989586621679143048"><span class="hs-identifier hs-var">requestLogMsg</span></a><span>
|
||||
</span><a name="line-139"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679143046"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelDebug"><span class="hs-identifier hs-var">levelDebug</span></a><span> </span><a href="#local-6989586621679143049"><span class="hs-identifier hs-var">requestDbgLogMsg</span></a><span>
|
||||
</span><a name="line-140"></a><span> </span><a name="local-6989586621679143481"><a href="#local-6989586621679143481"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">httpLbs</span><span> </span><a href="#local-6989586621679143045"><span class="hs-identifier hs-var">req</span></a><span> </span><a href="#local-6989586621679143043"><span class="hs-identifier hs-var">manager</span></a><span>
|
||||
</span><a name="line-141"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679143046"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelInfo"><span class="hs-identifier hs-var">levelInfo</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679143051"><span class="hs-identifier hs-var">responseLogMsg</span></a><span> </span><a href="#local-6989586621679143481"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-142"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679143046"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelDebug"><span class="hs-identifier hs-var">levelDebug</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679143481"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-143"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679143481"><span class="hs-identifier hs-var">res</span></a><span>
|
||||
</span><a name="line-144"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-145"></a><span> </span><a name="local-6989586621679143046"><a href="#local-6989586621679143046"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"Client"</span><span>
|
||||
</span><a name="line-146"></a><span> </span><a name="local-6989586621679143047"><a href="#local-6989586621679143047"><span class="hs-identifier">endpoint</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-147"></a><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-148"></a><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-149"></a><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">method</span><span> </span><a href="#local-6989586621679143045"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" "</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">host</span><span> </span><a href="#local-6989586621679143045"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">path</span><span> </span><a href="#local-6989586621679143045"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><a href="#local-6989586621679143045"><span class="hs-identifier hs-var">req</span></a><span>
|
||||
</span><a name="line-150"></a><span> </span><a name="local-6989586621679143048"><a href="#local-6989586621679143048"><span class="hs-identifier">requestLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"REQ:"</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679143047"><span class="hs-identifier hs-var">endpoint</span></a><span>
|
||||
</span><a name="line-151"></a><span> </span><a name="local-6989586621679143049"><a href="#local-6989586621679143049"><span class="hs-identifier">requestDbgLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-152"></a><span> </span><span class="hs-string">"Headers="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><a href="#local-6989586621679143045"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" Body="</span><span> </span><span class="hs-operator hs-var"><></span><span>
|
||||
</span><a name="line-153"></a><span> </span><span class="hs-special">(</span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><a href="#local-6989586621679143045"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-154"></a><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><a name="local-6989586621679143052"><a href="#local-6989586621679143052"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span> </span><a href="#local-6989586621679143052"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-155"></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-string">"<RequestBody>"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-156"></a><span> </span><a name="local-6989586621679143050"><a href="#local-6989586621679143050"><span class="hs-identifier">responseStatusCode</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">statusCode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">responseStatus</span><span>
|
||||
</span><a name="line-157"></a><span> </span><a name="local-6989586621679143051"><a href="#local-6989586621679143051"><span class="hs-identifier">responseLogMsg</span></a></a><span> </span><a name="local-6989586621679143427"><a href="#local-6989586621679143427"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-158"></a><span> </span><span class="hs-string">"RES:statusCode="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679143050"><span class="hs-identifier hs-var">responseStatusCode</span></a><span> </span><a href="#local-6989586621679143427"><span class="hs-identifier hs-var">res</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" ("</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679143047"><span class="hs-identifier hs-var">endpoint</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">")"</span><span>
|
||||
</span><a name="line-159"></a><span>
|
||||
</span><a name="line-160"></a><span class="hs-comment">-- * InitRequest</span><span>
|
||||
</span><a name="line-161"></a><span>
|
||||
</span><a name="line-162"></a><span class="hs-comment">-- | wraps an http-client 'Request' with request/response type parameters</span><span>
|
||||
</span><a name="line-163"></a><span class="hs-keyword">newtype</span><span> </span><a name="InitRequest"><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier">InitRequest</span></a></a><span> </span><a name="local-6989586621679142980"><a href="#local-6989586621679142980"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679142981"><a href="#local-6989586621679142981"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679142982"><a href="#local-6989586621679142982"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679142983"><a href="#local-6989586621679142983"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="InitRequest"><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier">InitRequest</span></a></a><span>
|
||||
</span><a name="line-164"></a><span> </span><span class="hs-special">{</span><span> </span><a name="unInitRequest"><a href="SwaggerPetstore.Client.html#unInitRequest"><span class="hs-identifier">unInitRequest</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span>
|
||||
</span><a name="line-165"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-166"></a><span>
|
||||
</span><a name="line-167"></a><span class="hs-comment">-- | Build an http-client 'Request' record from the supplied config and request</span><span>
|
||||
</span><a name="line-168"></a><span class="hs-identifier">_toInitRequest</span><span>
|
||||
</span><a name="line-169"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679142996"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679142997"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-170"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-171"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679142998"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679142997"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679142999"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-172"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679142996"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-173"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679142998"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679142997"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679142999"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679142996"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ initialized request</span><span>
|
||||
</span><a name="line-174"></a><a name="_toInitRequest"><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier">_toInitRequest</span></a></a><span> </span><a name="local-6989586621679143482"><a href="#local-6989586621679143482"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679143483"><a href="#local-6989586621679143483"><span class="hs-identifier">req0</span></a></a><span> </span><a name="local-6989586621679143484"><a href="#local-6989586621679143484"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-175"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="#local-6989586621679143482"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-176"></a><span> </span><a name="local-6989586621679143485"><a href="#local-6989586621679143485"><span class="hs-identifier">parsedReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseRequest</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">append</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configHost</span><span> </span><a href="#local-6989586621679143482"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">concat</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rUrlPath</span><span> </span><a href="#local-6989586621679143483"><span class="hs-identifier hs-var">req0</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-177"></a><span> </span><a name="local-6989586621679143486"><a href="#local-6989586621679143486"><span class="hs-identifier">req1</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#_applyAuthMethods"><span class="hs-identifier hs-var">_applyAuthMethods</span></a><span> </span><a href="#local-6989586621679143483"><span class="hs-identifier hs-var">req0</span></a><span> </span><a href="#local-6989586621679143482"><span class="hs-identifier hs-var">config</span></a><span>
|
||||
</span><a name="line-178"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">when</span><span>
|
||||
</span><a name="line-179"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configValidateAuthMethods</span><span> </span><a href="#local-6989586621679143482"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">&&</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">not</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">null</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">rAuthTypes</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679143486"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-180"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">throwString</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"AuthMethod not configured: "</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">head</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">rAuthTypes</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679143486"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-181"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679143487"><a href="#local-6989586621679143487"><span class="hs-identifier">req2</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679143486"><span class="hs-identifier hs-var">req1</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">flip</span><span> </span><a href="SwaggerPetstore.Core.html#_setAcceptHeader"><span class="hs-identifier hs-var">_setAcceptHeader</span></a><span> </span><a href="#local-6989586621679143484"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-182"></a><span> </span><a name="local-6989586621679143488"><a href="#local-6989586621679143488"><span class="hs-identifier">reqHeaders</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-string">"User-Agent"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toHeader</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679143482"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679143487"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-183"></a><span> </span><a name="local-6989586621679143489"><a href="#local-6989586621679143489"><span class="hs-identifier">reqQuery</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">renderQuery</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">paramsQuery</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679143487"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-184"></a><span> </span><a name="local-6989586621679143490"><a href="#local-6989586621679143490"><span class="hs-identifier">pReq</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679143485"><span class="hs-identifier hs-var">parsedReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">method</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rMethod</span><span> </span><a href="#local-6989586621679143487"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-185"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679143488"><span class="hs-identifier hs-var">reqHeaders</span></a><span>
|
||||
</span><a name="line-186"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679143489"><span class="hs-identifier hs-var">reqQuery</span></a><span>
|
||||
</span><a name="line-187"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-188"></a><span> </span><a name="local-6989586621679143495"><a href="#local-6989586621679143495"><span class="hs-identifier">outReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679143487"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-189"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyNone"><span class="hs-identifier hs-var">ParamBodyNone</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679143490"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-190"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a name="local-6989586621679143491"><a href="#local-6989586621679143491"><span class="hs-identifier">bs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679143490"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyBS</span><span> </span><a href="#local-6989586621679143491"><span class="hs-identifier hs-var">bs</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-191"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a name="local-6989586621679143492"><a href="#local-6989586621679143492"><span class="hs-identifier">bl</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679143490"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><a href="#local-6989586621679143492"><span class="hs-identifier hs-var">bl</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-192"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679143493"><a href="#local-6989586621679143493"><span class="hs-identifier">form</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679143490"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeForm</span><span> </span><a href="#local-6989586621679143493"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-193"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679143494"><a href="#local-6989586621679143494"><span class="hs-identifier">parts</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formDataBody</span><span> </span><a href="#local-6989586621679143494"><span class="hs-identifier hs-var">parts</span></a><span> </span><a href="#local-6989586621679143490"><span class="hs-identifier hs-var">pReq</span></a><span>
|
||||
</span><a name="line-194"></a><span>
|
||||
</span><a name="line-195"></a><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a href="#local-6989586621679143495"><span class="hs-identifier hs-var">outReq</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-196"></a><span>
|
||||
</span><a name="line-197"></a><span class="hs-comment">-- | modify the underlying Request</span><span>
|
||||
</span><a name="line-198"></a><span class="hs-identifier">modifyInitRequest</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679142992"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679142993"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679142994"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679142995"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679142992"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679142993"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679142994"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679142995"><span class="hs-identifier hs-type">accept</span></a><span> </span><span>
|
||||
</span><a name="line-199"></a><a name="modifyInitRequest"><a href="SwaggerPetstore.Client.html#modifyInitRequest"><span class="hs-identifier">modifyInitRequest</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679143496"><a href="#local-6989586621679143496"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679143497"><a href="#local-6989586621679143497"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679143497"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679143496"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-200"></a><span>
|
||||
</span><a name="line-201"></a><span class="hs-comment">-- | modify the underlying Request (monadic)</span><span>
|
||||
</span><a name="line-202"></a><span class="hs-identifier">modifyInitRequestM</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679142987"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679142988"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679142989"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679142990"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679142991"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679142987"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679142987"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679142988"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679142989"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679142990"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679142991"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-203"></a><a name="modifyInitRequestM"><a href="SwaggerPetstore.Client.html#modifyInitRequestM"><span class="hs-identifier">modifyInitRequestM</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679143498"><a href="#local-6989586621679143498"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679143499"><a href="#local-6989586621679143499"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679143499"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679143498"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-204"></a><span>
|
||||
</span><a name="line-205"></a><span class="hs-comment">-- ** Logging </span><span>
|
||||
</span><a name="line-206"></a><span>
|
||||
</span><a name="line-207"></a><span class="hs-comment">-- | Run a block using the configured logger instance</span><span>
|
||||
</span><a name="line-208"></a><span class="hs-identifier">runConfigLog</span><span>
|
||||
</span><a name="line-209"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679142986"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-210"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679142986"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-211"></a><a name="runConfigLog"><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier">runConfigLog</span></a></a><span> </span><a name="local-6989586621679143500"><a href="#local-6989586621679143500"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><a href="#local-6989586621679143500"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679143500"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-212"></a><span>
|
||||
</span><a name="line-213"></a><span class="hs-comment">-- | Run a block using the configured logger instance (logs exceptions)</span><span>
|
||||
</span><a name="line-214"></a><span class="hs-identifier">runConfigLogWithExceptions</span><span>
|
||||
</span><a name="line-215"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679142985"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679142985"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-216"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679142985"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-217"></a><a name="runConfigLogWithExceptions"><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier">runConfigLogWithExceptions</span></a></a><span> </span><a name="local-6989586621679143501"><a href="#local-6989586621679143501"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679143502"><a href="#local-6989586621679143502"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier hs-var">runConfigLog</span></a><span> </span><a href="#local-6989586621679143502"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Logging.html#logExceptions"><span class="hs-identifier hs-var">logExceptions</span></a><span> </span><a href="#local-6989586621679143501"><span class="hs-identifier hs-var">src</span></a><span>
|
||||
</span><a name="line-218"></a></pre></body></html>
|
||||
@ -0,0 +1,533 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-comment">{-
|
||||
Swagger Petstore
|
||||
|
||||
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
|
||||
|
||||
OpenAPI spec version: 2.0
|
||||
Swagger Petstore API version: 1.0.0
|
||||
Contact: apiteam@swagger.io
|
||||
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
|
||||
-}</span><span>
|
||||
</span><a name="line-11"></a><span>
|
||||
</span><a name="line-12"></a><span class="hs-comment">{-|
|
||||
Module : SwaggerPetstore.Core
|
||||
-}</span><span>
|
||||
</span><a name="line-15"></a><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE DeriveDataTypeable #-}</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE ExistentialQuantification #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE GeneralizedNewtypeDeriving #-}</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-pragma">{-# LANGUAGE NamedFieldPuns #-}</span><span>
|
||||
</span><a name="line-21"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-22"></a><span class="hs-pragma">{-# LANGUAGE RankNTypes #-}</span><span>
|
||||
</span><a name="line-23"></a><span class="hs-pragma">{-# LANGUAGE RecordWildCards #-}</span><span>
|
||||
</span><a name="line-24"></a><span class="hs-pragma">{-# LANGUAGE ScopedTypeVariables #-}</span><span>
|
||||
</span><a name="line-25"></a><span class="hs-pragma">{-# LANGUAGE TupleSections #-}</span><span>
|
||||
</span><a name="line-26"></a><span class="hs-pragma">{-# LANGUAGE TypeFamilies #-}</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds #-}</span><span>
|
||||
</span><a name="line-28"></a><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Core</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-30"></a><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.MimeTypes.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">MimeTypes</span></a><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Logging.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Logging</span></a><span>
|
||||
</span><a name="line-33"></a><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Arrow</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">left</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-35"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">DeepSeq</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NF</span><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Base64</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL64</span><span>
|
||||
</span><a name="line-39"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Builder</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BB</span><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BC</span><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BCL</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">CaseInsensitive</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">CI</span><span>
|
||||
</span><a name="line-44"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">TypeRep</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">typeRep</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-45"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Foldable</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-46"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Ix</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-47"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Maybe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-48"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Proxy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Proxy</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-50"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-51"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-52"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span class="hs-operator">.</span><span class="hs-identifier">ISO8601</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-53"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">GHC</span><span class="hs-operator">.</span><span class="hs-identifier">Base</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Alternative</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-54"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Lens</span><span class="hs-operator">.</span><span class="hs-identifier">Micro</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">L</span><span>
|
||||
</span><a name="line-55"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span class="hs-operator">.</span><span class="hs-identifier">MultipartFormData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-56"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-57"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-58"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-59"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-60"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Printf</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-61"></a><span>
|
||||
</span><a name="line-62"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><|></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-63"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Alternative</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-64"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Function</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">&</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Foldable</span><span class="hs-special">(</span><span class="hs-identifier hs-var">foldlM</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-66"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Monoid</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-68"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">return</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">IO</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-69"></a><span>
|
||||
</span><a name="line-70"></a><span class="hs-comment">-- * SwaggerPetstoreConfig</span><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span class="hs-comment">-- | </span><span>
|
||||
</span><a name="line-73"></a><span class="hs-keyword">data</span><span> </span><a name="SwaggerPetstoreConfig"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier">SwaggerPetstoreConfig</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="SwaggerPetstoreConfig"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier">SwaggerPetstoreConfig</span></a></a><span>
|
||||
</span><a name="line-74"></a><span> </span><span class="hs-special">{</span><span> </span><a name="configHost"><a href="SwaggerPetstore.Core.html#configHost"><span class="hs-identifier">configHost</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-comment">-- ^ host supplied in the Request</span><span>
|
||||
</span><a name="line-75"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configUserAgent"><a href="SwaggerPetstore.Core.html#configUserAgent"><span class="hs-identifier">configUserAgent</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ user-agent supplied in the Request</span><span>
|
||||
</span><a name="line-76"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configLogExecWithContext"><a href="SwaggerPetstore.Core.html#configLogExecWithContext"><span class="hs-identifier">configLogExecWithContext</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span> </span><span class="hs-comment">-- ^ Run a block using a Logger instance</span><span>
|
||||
</span><a name="line-77"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configLogContext"><a href="SwaggerPetstore.Core.html#configLogContext"><span class="hs-identifier">configLogContext</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-comment">-- ^ Configures the logger</span><span>
|
||||
</span><a name="line-78"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configAuthMethods"><a href="SwaggerPetstore.Core.html#configAuthMethods"><span class="hs-identifier">configAuthMethods</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-type">AnyAuthMethod</span></a><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ List of configured auth methods</span><span>
|
||||
</span><a name="line-79"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configValidateAuthMethods"><a href="SwaggerPetstore.Core.html#configValidateAuthMethods"><span class="hs-identifier">configValidateAuthMethods</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Bool</span><span> </span><span class="hs-comment">-- ^ throw exceptions if auth methods are not configured</span><span>
|
||||
</span><a name="line-80"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-81"></a><span>
|
||||
</span><a name="line-82"></a><span class="hs-comment">-- | display the config</span><span>
|
||||
</span><a name="line-83"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-84"></a><span> </span><a name="local-8214565720323792830"><span class="hs-identifier">show</span></a><span> </span><a name="local-6989586621679118668"><a href="#local-6989586621679118668"><span class="hs-identifier">c</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-85"></a><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">printf</span><span>
|
||||
</span><a name="line-86"></a><span> </span><span class="hs-string">"{ configHost = %v, configUserAgent = %v, ..}"</span><span>
|
||||
</span><a name="line-87"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configHost</span><span> </span><a href="#local-6989586621679118668"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-88"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679118668"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-89"></a><span>
|
||||
</span><a name="line-90"></a><span class="hs-comment">-- | constructs a default SwaggerPetstoreConfig</span><span>
|
||||
</span><a name="line-91"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">-- configHost:</span><span>
|
||||
</span><a name="line-93"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-94"></a><span class="hs-comment">-- @http://petstore.swagger.io:80/v2@</span><span>
|
||||
</span><a name="line-95"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-96"></a><span class="hs-comment">-- configUserAgent:</span><span>
|
||||
</span><a name="line-97"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-98"></a><span class="hs-comment">-- @"swagger-haskell-http-client/1.0.0"@</span><span>
|
||||
</span><a name="line-99"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-100"></a><span class="hs-identifier">newConfig</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-101"></a><a name="newConfig"><a href="SwaggerPetstore.Core.html#newConfig"><span class="hs-identifier">newConfig</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-102"></a><span> </span><a name="local-6989586621679117792"><a href="#local-6989586621679117792"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Logging.html#initLogContext"><span class="hs-identifier hs-var">initLogContext</span></a><span>
|
||||
</span><a name="line-103"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-104"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configHost</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"http://petstore.swagger.io:80/v2"</span><span>
|
||||
</span><a name="line-105"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configUserAgent</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"swagger-haskell-http-client/1.0.0"</span><span>
|
||||
</span><a name="line-106"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var">runDefaultLogExecWithContext</span></a><span>
|
||||
</span><a name="line-107"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679117792"><span class="hs-identifier hs-var">logCxt</span></a><span>
|
||||
</span><a name="line-108"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-109"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configValidateAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">True</span><span>
|
||||
</span><a name="line-110"></a><span> </span><span class="hs-special">}</span><span> </span><span>
|
||||
</span><a name="line-111"></a><span>
|
||||
</span><a name="line-112"></a><span class="hs-comment">-- | updates config use AuthMethod on matching requests</span><span>
|
||||
</span><a name="line-113"></a><span class="hs-identifier">addAuthMethod</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679117791"><span class="hs-identifier hs-type">auth</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117791"><span class="hs-identifier hs-type">auth</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-114"></a><a name="addAuthMethod"><a href="SwaggerPetstore.Core.html#addAuthMethod"><span class="hs-identifier">addAuthMethod</span></a></a><span> </span><a name="local-6989586621679117793"><a href="#local-6989586621679117793"><span class="hs-identifier">config</span></a></a><span class="hs-glyph">@</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-special">{</span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span> </span><a name="local-6989586621679117795"><a href="#local-6989586621679117795"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-115"></a><span> </span><a href="#local-6989586621679117793"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a href="#local-6989586621679117795"><span class="hs-identifier hs-var">a</span></a><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-116"></a><span>
|
||||
</span><a name="line-117"></a><span class="hs-comment">-- | updates the config to use stdout logging</span><span>
|
||||
</span><a name="line-118"></a><span class="hs-identifier">withStdoutLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-119"></a><a name="withStdoutLogging"><a href="SwaggerPetstore.Core.html#withStdoutLogging"><span class="hs-identifier">withStdoutLogging</span></a></a><span> </span><a name="local-6989586621679117796"><a href="#local-6989586621679117796"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-120"></a><span> </span><a name="local-6989586621679117797"><a href="#local-6989586621679117797"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Logging.html#stdoutLoggingContext"><span class="hs-identifier hs-var">stdoutLoggingContext</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679117796"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-121"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679117796"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#stdoutLoggingExec"><span class="hs-identifier hs-var">stdoutLoggingExec</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679117797"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-122"></a><span>
|
||||
</span><a name="line-123"></a><span class="hs-comment">-- | updates the config to use stderr logging</span><span>
|
||||
</span><a name="line-124"></a><span class="hs-identifier">withStderrLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-125"></a><a name="withStderrLogging"><a href="SwaggerPetstore.Core.html#withStderrLogging"><span class="hs-identifier">withStderrLogging</span></a></a><span> </span><a name="local-6989586621679117798"><a href="#local-6989586621679117798"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-126"></a><span> </span><a name="local-6989586621679117799"><a href="#local-6989586621679117799"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Logging.html#stderrLoggingContext"><span class="hs-identifier hs-var">stderrLoggingContext</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679117798"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-127"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679117798"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#stderrLoggingExec"><span class="hs-identifier hs-var">stderrLoggingExec</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679117799"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-128"></a><span>
|
||||
</span><a name="line-129"></a><span class="hs-comment">-- | updates the config to disable logging</span><span>
|
||||
</span><a name="line-130"></a><span class="hs-identifier">withNoLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-131"></a><a name="withNoLogging"><a href="SwaggerPetstore.Core.html#withNoLogging"><span class="hs-identifier">withNoLogging</span></a></a><span> </span><a name="local-6989586621679117800"><a href="#local-6989586621679117800"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679117800"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#runNullLogExec"><span class="hs-identifier hs-var">runNullLogExec</span></a><span class="hs-special">}</span><span>
|
||||
</span><a name="line-132"></a><span> </span><span>
|
||||
</span><a name="line-133"></a><span class="hs-comment">-- * SwaggerPetstoreRequest</span><span>
|
||||
</span><a name="line-134"></a><span>
|
||||
</span><a name="line-135"></a><span class="hs-comment">-- | Represents a request. The "req" type variable is the request type. The "res" type variable is the response type.</span><span>
|
||||
</span><a name="line-136"></a><span class="hs-keyword">data</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span> </span><a name="local-6989586621679115860"><a href="#local-6989586621679115860"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115861"><a href="#local-6989586621679115861"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679115862"><a href="#local-6989586621679115862"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span>
|
||||
</span><a name="line-137"></a><span> </span><span class="hs-special">{</span><span> </span><a name="rMethod"><a href="SwaggerPetstore.Core.html#rMethod"><span class="hs-identifier">rMethod</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Method</span><span> </span><span class="hs-comment">-- ^ Method of SwaggerPetstoreRequest</span><span>
|
||||
</span><a name="line-138"></a><span> </span><span class="hs-special">,</span><span> </span><a name="rUrlPath"><a href="SwaggerPetstore.Core.html#rUrlPath"><span class="hs-identifier">rUrlPath</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ Endpoint of SwaggerPetstoreRequest</span><span>
|
||||
</span><a name="line-139"></a><span> </span><span class="hs-special">,</span><span> </span><a name="rParams"><a href="SwaggerPetstore.Core.html#rParams"><span class="hs-identifier">rParams</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span> </span><span class="hs-comment">-- ^ params of SwaggerPetstoreRequest</span><span>
|
||||
</span><a name="line-140"></a><span> </span><span class="hs-special">,</span><span> </span><a name="rAuthTypes"><a href="SwaggerPetstore.Core.html#rAuthTypes"><span class="hs-identifier">rAuthTypes</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">TypeRep</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ types of auth methods</span><span>
|
||||
</span><a name="line-141"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-142"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-143"></a><span>
|
||||
</span><a name="line-144"></a><span class="hs-comment">-- | 'rMethod' Lens</span><span>
|
||||
</span><a name="line-145"></a><span class="hs-identifier">rMethodL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117788"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117789"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117790"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Method</span><span>
|
||||
</span><a name="line-146"></a><a name="rMethodL"><a href="SwaggerPetstore.Core.html#rMethodL"><span class="hs-identifier">rMethodL</span></a></a><span> </span><a name="local-6989586621679117801"><a href="#local-6989586621679117801"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679117806"><a href="#local-6989586621679117806"><span class="hs-identifier">rMethod</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679117806"><span class="hs-identifier hs-var">rMethod</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679117801"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679117802"><span class="hs-identifier hs-var">rMethod</span></a><span>
|
||||
</span><a name="line-147"></a><span class="hs-pragma">{-# INLINE rMethodL #-}</span><span>
|
||||
</span><a name="line-148"></a><span>
|
||||
</span><a name="line-149"></a><span class="hs-comment">-- | 'rUrlPath' Lens</span><span>
|
||||
</span><a name="line-150"></a><span class="hs-identifier">rUrlPathL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117785"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117786"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117787"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-151"></a><a name="rUrlPathL"><a href="SwaggerPetstore.Core.html#rUrlPathL"><span class="hs-identifier">rUrlPathL</span></a></a><span> </span><a name="local-6989586621679117816"><a href="#local-6989586621679117816"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679117821"><a href="#local-6989586621679117821"><span class="hs-identifier">rUrlPath</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679117821"><span class="hs-identifier hs-var">rUrlPath</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679117816"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679117818"><span class="hs-identifier hs-var">rUrlPath</span></a><span>
|
||||
</span><a name="line-152"></a><span class="hs-pragma">{-# INLINE rUrlPathL #-}</span><span>
|
||||
</span><a name="line-153"></a><span>
|
||||
</span><a name="line-154"></a><span class="hs-comment">-- | 'rParams' Lens</span><span>
|
||||
</span><a name="line-155"></a><span class="hs-identifier">rParamsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117782"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117783"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117784"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span>
|
||||
</span><a name="line-156"></a><a name="rParamsL"><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier">rParamsL</span></a></a><span> </span><a name="local-6989586621679117822"><a href="#local-6989586621679117822"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679117827"><a href="#local-6989586621679117827"><span class="hs-identifier">rParams</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679117827"><span class="hs-identifier hs-var">rParams</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679117822"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679117825"><span class="hs-identifier hs-var">rParams</span></a><span>
|
||||
</span><a name="line-157"></a><span class="hs-pragma">{-# INLINE rParamsL #-}</span><span>
|
||||
</span><a name="line-158"></a><span>
|
||||
</span><a name="line-159"></a><span class="hs-comment">-- | 'rParams' Lens</span><span>
|
||||
</span><a name="line-160"></a><span class="hs-identifier">rAuthTypesL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117779"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117780"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117781"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">TypeRep</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-161"></a><a name="rAuthTypesL"><a href="SwaggerPetstore.Core.html#rAuthTypesL"><span class="hs-identifier">rAuthTypesL</span></a></a><span> </span><a name="local-6989586621679117828"><a href="#local-6989586621679117828"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679117833"><a href="#local-6989586621679117833"><span class="hs-identifier">rAuthTypes</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679117833"><span class="hs-identifier hs-var">rAuthTypes</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679117828"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679117832"><span class="hs-identifier hs-var">rAuthTypes</span></a><span>
|
||||
</span><a name="line-162"></a><span class="hs-pragma">{-# INLINE rAuthTypesL #-}</span><span>
|
||||
</span><a name="line-163"></a><span>
|
||||
</span><a name="line-164"></a><span class="hs-comment">-- * HasBodyParam</span><span>
|
||||
</span><a name="line-165"></a><span>
|
||||
</span><a name="line-166"></a><span class="hs-comment">-- | Designates the body parameter of a request</span><span>
|
||||
</span><a name="line-167"></a><span class="hs-keyword">class</span><span> </span><a name="HasBodyParam"><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier">HasBodyParam</span></a></a><span> </span><a name="local-6989586621679115854"><a href="#local-6989586621679115854"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115855"><a href="#local-6989586621679115855"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-168"></a><span> </span><span class="hs-identifier">setBodyParam</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679115856"><a href="#local-6989586621679115856"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679115857"><a href="#local-6989586621679115857"><span class="hs-identifier">res</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="#local-6989586621679115854"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115856"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679115856"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115855"><span class="hs-identifier hs-type">param</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115854"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115856"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115857"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679115855"><span class="hs-identifier hs-type">param</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115854"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115856"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115857"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-169"></a><span> </span><a name="local-8214565720323888902"><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier">setBodyParam</span></a></a><span> </span><a name="local-6989586621679115858"><a href="#local-6989586621679115858"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115859"><a href="#local-6989586621679115859"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-170"></a><span> </span><a href="#local-6989586621679115858"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_setBodyLBS"><span class="hs-identifier hs-var">_setBodyLBS</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier hs-var">mimeRender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679115856"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679115859"><span class="hs-identifier hs-var">xs</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span>
|
||||
</span><a name="line-171"></a><span>
|
||||
</span><a name="line-172"></a><span class="hs-comment">-- * HasOptionalParam</span><span>
|
||||
</span><a name="line-173"></a><span>
|
||||
</span><a name="line-174"></a><span class="hs-comment">-- | Designates the optional parameters of a request</span><span>
|
||||
</span><a name="line-175"></a><span class="hs-keyword">class</span><span> </span><a name="HasOptionalParam"><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier">HasOptionalParam</span></a></a><span> </span><a name="local-6989586621679115848"><a href="#local-6989586621679115848"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115849"><a href="#local-6989586621679115849"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-176"></a><span> </span><span class="hs-pragma">{-# MINIMAL applyOptionalParam | (-&-) #-}</span><span>
|
||||
</span><a name="line-177"></a><span>
|
||||
</span><a name="line-178"></a><span> </span><span class="hs-comment">-- | Apply an optional parameter to a request</span><span>
|
||||
</span><a name="line-179"></a><span> </span><span class="hs-identifier">applyOptionalParam</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115848"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115850"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115851"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679115849"><span class="hs-identifier hs-type">param</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115848"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115850"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115851"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-180"></a><span> </span><a name="local-8214565720323888899"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#-%26-"><span class="hs-operator hs-var">-&-</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-181"></a><span> </span><span class="hs-pragma">{-# INLINE applyOptionalParam #-}</span><span>
|
||||
</span><a name="line-182"></a><span>
|
||||
</span><a name="line-183"></a><span> </span><span class="hs-comment">-- | infix operator \/ alias for 'addOptionalParam'</span><span>
|
||||
</span><a name="line-184"></a><span> </span><span class="hs-special">(</span><span class="hs-operator">-&-</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115848"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115852"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115853"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679115849"><span class="hs-identifier hs-type">param</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115848"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115852"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115853"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-185"></a><span> </span><span class="hs-special">(</span><a name="local-8214565720323888900"><a href="SwaggerPetstore.Core.html#-%26-"><span class="hs-operator">-&-</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier hs-var">applyOptionalParam</span></a><span>
|
||||
</span><a name="line-186"></a><span> </span><span class="hs-pragma">{-# INLINE (-&-) #-}</span><span>
|
||||
</span><a name="line-187"></a><span>
|
||||
</span><a name="line-188"></a><span class="hs-keyword">infixl</span><span> </span><span class="hs-number">2</span><span> </span><span class="hs-operator">-&-</span><span>
|
||||
</span><a name="line-189"></a><span>
|
||||
</span><a name="line-190"></a><span class="hs-comment">-- | Request Params</span><span>
|
||||
</span><a name="line-191"></a><span class="hs-keyword">data</span><span> </span><a name="Params"><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier">Params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Params"><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier">Params</span></a></a><span>
|
||||
</span><a name="line-192"></a><span> </span><span class="hs-special">{</span><span> </span><a name="paramsQuery"><a href="SwaggerPetstore.Core.html#paramsQuery"><span class="hs-identifier">paramsQuery</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Query</span><span>
|
||||
</span><a name="line-193"></a><span> </span><span class="hs-special">,</span><span> </span><a name="paramsHeaders"><a href="SwaggerPetstore.Core.html#paramsHeaders"><span class="hs-identifier">paramsHeaders</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">RequestHeaders</span><span>
|
||||
</span><a name="line-194"></a><span> </span><span class="hs-special">,</span><span> </span><a name="paramsBody"><a href="SwaggerPetstore.Core.html#paramsBody"><span class="hs-identifier">paramsBody</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#ParamBody"><span class="hs-identifier hs-type">ParamBody</span></a><span>
|
||||
</span><a name="line-195"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-196"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-197"></a><span>
|
||||
</span><a name="line-198"></a><span class="hs-comment">-- | 'paramsQuery' Lens</span><span>
|
||||
</span><a name="line-199"></a><span class="hs-identifier">paramsQueryL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Query</span><span>
|
||||
</span><a name="line-200"></a><a name="paramsQueryL"><a href="SwaggerPetstore.Core.html#paramsQueryL"><span class="hs-identifier">paramsQueryL</span></a></a><span> </span><a name="local-6989586621679117834"><a href="#local-6989586621679117834"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679117838"><a href="#local-6989586621679117838"><span class="hs-identifier">paramsQuery</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679117838"><span class="hs-identifier hs-var">paramsQuery</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679117834"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679117835"><span class="hs-identifier hs-var">paramsQuery</span></a><span>
|
||||
</span><a name="line-201"></a><span class="hs-pragma">{-# INLINE paramsQueryL #-}</span><span>
|
||||
</span><a name="line-202"></a><span>
|
||||
</span><a name="line-203"></a><span class="hs-comment">-- | 'paramsHeaders' Lens</span><span>
|
||||
</span><a name="line-204"></a><span class="hs-identifier">paramsHeadersL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">RequestHeaders</span><span>
|
||||
</span><a name="line-205"></a><a name="paramsHeadersL"><a href="SwaggerPetstore.Core.html#paramsHeadersL"><span class="hs-identifier">paramsHeadersL</span></a></a><span> </span><a name="local-6989586621679117839"><a href="#local-6989586621679117839"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679117843"><a href="#local-6989586621679117843"><span class="hs-identifier">paramsHeaders</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679117843"><span class="hs-identifier hs-var">paramsHeaders</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679117839"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679117841"><span class="hs-identifier hs-var">paramsHeaders</span></a><span>
|
||||
</span><a name="line-206"></a><span class="hs-pragma">{-# INLINE paramsHeadersL #-}</span><span>
|
||||
</span><a name="line-207"></a><span>
|
||||
</span><a name="line-208"></a><span class="hs-comment">-- | 'paramsBody' Lens</span><span>
|
||||
</span><a name="line-209"></a><span class="hs-identifier">paramsBodyL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBody"><span class="hs-identifier hs-type">ParamBody</span></a><span>
|
||||
</span><a name="line-210"></a><a name="paramsBodyL"><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier">paramsBodyL</span></a></a><span> </span><a name="local-6989586621679117844"><a href="#local-6989586621679117844"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679117848"><a href="#local-6989586621679117848"><span class="hs-identifier">paramsBody</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679117848"><span class="hs-identifier hs-var">paramsBody</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679117844"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679117847"><span class="hs-identifier hs-var">paramsBody</span></a><span>
|
||||
</span><a name="line-211"></a><span class="hs-pragma">{-# INLINE paramsBodyL #-}</span><span>
|
||||
</span><a name="line-212"></a><span>
|
||||
</span><a name="line-213"></a><span class="hs-comment">-- | Request Body</span><span>
|
||||
</span><a name="line-214"></a><span class="hs-keyword">data</span><span> </span><a name="ParamBody"><a href="SwaggerPetstore.Core.html#ParamBody"><span class="hs-identifier">ParamBody</span></a></a><span>
|
||||
</span><a name="line-215"></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="ParamBodyNone"><a href="SwaggerPetstore.Core.html#ParamBodyNone"><span class="hs-identifier">ParamBodyNone</span></a></a><span>
|
||||
</span><a name="line-216"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyB"><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier">ParamBodyB</span></a></a><span> </span><span class="hs-identifier hs-type">B</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-217"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyBL"><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier">ParamBodyBL</span></a></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-218"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyFormUrlEncoded"><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier">ParamBodyFormUrlEncoded</span></a></a><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><span>
|
||||
</span><a name="line-219"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyMultipartFormData"><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier">ParamBodyMultipartFormData</span></a></a><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Part</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-220"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-221"></a><span>
|
||||
</span><a name="line-222"></a><span class="hs-comment">-- ** SwaggerPetstoreRequest Utils</span><span>
|
||||
</span><a name="line-223"></a><span>
|
||||
</span><a name="line-224"></a><span class="hs-identifier">_mkRequest</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Method</span><span> </span><span class="hs-comment">-- ^ Method </span><span>
|
||||
</span><a name="line-225"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ Endpoint</span><span>
|
||||
</span><a name="line-226"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117776"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117777"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117778"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ req: Request Type, res: Response Type</span><span>
|
||||
</span><a name="line-227"></a><a name="_mkRequest"><a href="SwaggerPetstore.Core.html#_mkRequest"><span class="hs-identifier">_mkRequest</span></a></a><span> </span><a name="local-6989586621679117849"><a href="#local-6989586621679117849"><span class="hs-identifier">m</span></a></a><span> </span><a name="local-6989586621679117850"><a href="#local-6989586621679117850"><span class="hs-identifier">u</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117849"><span class="hs-identifier hs-var">m</span></a><span> </span><a href="#local-6989586621679117850"><span class="hs-identifier hs-var">u</span></a><span> </span><a href="SwaggerPetstore.Core.html#_mkParams"><span class="hs-identifier hs-var">_mkParams</span></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-228"></a><span>
|
||||
</span><a name="line-229"></a><span class="hs-identifier">_mkParams</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span>
|
||||
</span><a name="line-230"></a><a name="_mkParams"><a href="SwaggerPetstore.Core.html#_mkParams"><span class="hs-identifier">_mkParams</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyNone"><span class="hs-identifier hs-var">ParamBodyNone</span></a><span>
|
||||
</span><a name="line-231"></a><span>
|
||||
</span><a name="line-232"></a><span class="hs-identifier">setHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117773"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117774"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117775"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Header</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117773"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117774"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117775"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-233"></a><a name="setHeader"><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier">setHeader</span></a></a><span> </span><a name="local-6989586621679117851"><a href="#local-6989586621679117851"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679117852"><a href="#local-6989586621679117852"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-234"></a><span> </span><a href="#local-6989586621679117851"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#removeHeader"><span class="hs-identifier hs-var">removeHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fst</span><span> </span><a href="#local-6989586621679117852"><span class="hs-identifier hs-var">header</span></a><span> </span><span class="hs-operator hs-var">&</span><span>
|
||||
</span><a name="line-235"></a><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsHeadersL"><span class="hs-identifier hs-var">paramsHeadersL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117852"><span class="hs-identifier hs-var">header</span></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.++</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-236"></a><span>
|
||||
</span><a name="line-237"></a><span class="hs-identifier">removeHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117770"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117771"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117772"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">HeaderName</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117770"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117771"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117772"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-238"></a><a name="removeHeader"><a href="SwaggerPetstore.Core.html#removeHeader"><span class="hs-identifier">removeHeader</span></a></a><span> </span><a name="local-6989586621679117864"><a href="#local-6989586621679117864"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679117865"><a href="#local-6989586621679117865"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-239"></a><span> </span><a href="#local-6989586621679117864"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</span><span>
|
||||
</span><a name="line-240"></a><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span>
|
||||
</span><a name="line-241"></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsHeadersL"><span class="hs-identifier hs-var">paramsHeadersL</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-242"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filter</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679118260"><a href="#local-6989586621679118260"><span class="hs-identifier">h</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117866"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679118260"><span class="hs-identifier hs-var">h</span></a><span> </span><span class="hs-special">`</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">notElem</span><span class="hs-special">`</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</span><span> </span><a href="#local-6989586621679117865"><span class="hs-identifier hs-var">header</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-243"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-244"></a><span> </span><a name="local-6989586621679117866"><a href="#local-6989586621679117866"><span class="hs-identifier">cifst</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fst</span><span>
|
||||
</span><a name="line-245"></a><span>
|
||||
</span><a name="line-246"></a><span>
|
||||
</span><a name="line-247"></a><span class="hs-identifier">_setContentTypeHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679117767"><a href="#local-6989586621679117767"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679117768"><a href="#local-6989586621679117768"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679117769"><a href="#local-6989586621679117769"><span class="hs-identifier">res</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679117768"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117767"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117768"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117769"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117767"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117768"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117769"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-248"></a><a name="_setContentTypeHeader"><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier">_setContentTypeHeader</span></a></a><span> </span><a name="local-6989586621679118261"><a href="#local-6989586621679118261"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-249"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679117768"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span> </span><span>
|
||||
</span><a name="line-250"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679118262"><a href="#local-6989586621679118262"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118261"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-string">"content-type"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679118262"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-251"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118261"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#removeHeader"><span class="hs-identifier hs-var">removeHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-string">"content-type"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-252"></a><span>
|
||||
</span><a name="line-253"></a><span class="hs-identifier">_setAcceptHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679117763"><a href="#local-6989586621679117763"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679117764"><a href="#local-6989586621679117764"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679117765"><a href="#local-6989586621679117765"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679117766"><a href="#local-6989586621679117766"><span class="hs-identifier">accept</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679117766"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117763"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117764"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117765"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117766"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117763"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117764"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117765"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-254"></a><a name="_setAcceptHeader"><a href="SwaggerPetstore.Core.html#_setAcceptHeader"><span class="hs-identifier">_setAcceptHeader</span></a></a><span> </span><a name="local-6989586621679118263"><a href="#local-6989586621679118263"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118264"><a href="#local-6989586621679118264"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-255"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier hs-var">mimeType'</span></a><span> </span><a href="#local-6989586621679118264"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-keyword">of</span><span> </span><span>
|
||||
</span><a name="line-256"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679118265"><a href="#local-6989586621679118265"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118263"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-string">"accept"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679118265"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-257"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118263"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#removeHeader"><span class="hs-identifier hs-var">removeHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-string">"accept"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-258"></a><span>
|
||||
</span><a name="line-259"></a><span class="hs-identifier">setQuery</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117760"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117761"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117762"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">QueryItem</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117760"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117761"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117762"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-260"></a><a name="setQuery"><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier">setQuery</span></a></a><span> </span><a name="local-6989586621679118266"><a href="#local-6989586621679118266"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118267"><a href="#local-6989586621679118267"><span class="hs-identifier">query</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-261"></a><span> </span><a href="#local-6989586621679118266"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</span><span>
|
||||
</span><a name="line-262"></a><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span>
|
||||
</span><a name="line-263"></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsQueryL"><span class="hs-identifier hs-var">paramsQueryL</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-264"></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><a href="#local-6989586621679118267"><span class="hs-identifier hs-var">query</span></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.++</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filter</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679118269"><a href="#local-6989586621679118269"><span class="hs-identifier">q</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118268"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679118269"><span class="hs-identifier hs-var">q</span></a><span> </span><span class="hs-special">`</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">notElem</span><span class="hs-special">`</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="#local-6989586621679118268"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679118267"><span class="hs-identifier hs-var">query</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-265"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-266"></a><span> </span><a name="local-6989586621679118268"><a href="#local-6989586621679118268"><span class="hs-identifier">cifst</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fst</span><span>
|
||||
</span><a name="line-267"></a><span>
|
||||
</span><a name="line-268"></a><span class="hs-identifier">addForm</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117757"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117758"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117759"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117757"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117758"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117759"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-269"></a><a name="addForm"><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier">addForm</span></a></a><span> </span><a name="local-6989586621679118270"><a href="#local-6989586621679118270"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118271"><a href="#local-6989586621679118271"><span class="hs-identifier">newform</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-270"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679118272"><a href="#local-6989586621679118272"><span class="hs-identifier">form</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679118270"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-271"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679118273"><a href="#local-6989586621679118273"><span class="hs-identifier">_form</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118273"><span class="hs-identifier hs-var">_form</span></a><span>
|
||||
</span><a name="line-272"></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">mempty</span><span>
|
||||
</span><a name="line-273"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679118270"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118271"><span class="hs-identifier hs-var">newform</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679118272"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-274"></a><span>
|
||||
</span><a name="line-275"></a><span class="hs-identifier">_addMultiFormPart</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117754"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117755"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117756"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Part</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117754"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117755"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117756"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-276"></a><a name="_addMultiFormPart"><a href="SwaggerPetstore.Core.html#_addMultiFormPart"><span class="hs-identifier">_addMultiFormPart</span></a></a><span> </span><a name="local-6989586621679118274"><a href="#local-6989586621679118274"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118275"><a href="#local-6989586621679118275"><span class="hs-identifier">newpart</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-277"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679118276"><a href="#local-6989586621679118276"><span class="hs-identifier">parts</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679118274"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-278"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679118277"><a href="#local-6989586621679118277"><span class="hs-identifier">_parts</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118277"><span class="hs-identifier hs-var">_parts</span></a><span>
|
||||
</span><a name="line-279"></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-280"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679118274"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118275"><span class="hs-identifier hs-var">newpart</span></a><span> </span><span class="hs-glyph">:</span><span> </span><a href="#local-6989586621679118276"><span class="hs-identifier hs-var">parts</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-281"></a><span>
|
||||
</span><a name="line-282"></a><span class="hs-identifier">_setBodyBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117751"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117752"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117753"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">B</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117751"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117752"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117753"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-283"></a><a name="_setBodyBS"><a href="SwaggerPetstore.Core.html#_setBodyBS"><span class="hs-identifier">_setBodyBS</span></a></a><span> </span><a name="local-6989586621679118278"><a href="#local-6989586621679118278"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118279"><a href="#local-6989586621679118279"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-284"></a><span> </span><a href="#local-6989586621679118278"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a href="#local-6989586621679118279"><span class="hs-identifier hs-var">body</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-285"></a><span>
|
||||
</span><a name="line-286"></a><span class="hs-identifier">_setBodyLBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117748"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117749"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117750"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117748"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117749"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117750"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-287"></a><a name="_setBodyLBS"><a href="SwaggerPetstore.Core.html#_setBodyLBS"><span class="hs-identifier">_setBodyLBS</span></a></a><span> </span><a name="local-6989586621679118280"><a href="#local-6989586621679118280"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118281"><a href="#local-6989586621679118281"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-288"></a><span> </span><a href="#local-6989586621679118280"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a href="#local-6989586621679118281"><span class="hs-identifier hs-var">body</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-289"></a><span>
|
||||
</span><a name="line-290"></a><span class="hs-identifier">_hasAuthType</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679117744"><span class="hs-identifier hs-type">authMethod</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117745"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117746"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117747"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679117744"><span class="hs-identifier hs-type">authMethod</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117745"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117746"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117747"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-291"></a><a name="_hasAuthType"><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier">_hasAuthType</span></a></a><span> </span><a name="local-6989586621679118282"><a href="#local-6989586621679118282"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118283"><a href="#local-6989586621679118283"><span class="hs-identifier">proxy</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-292"></a><span> </span><a href="#local-6989586621679118282"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span> </span><a href="SwaggerPetstore.Core.html#rAuthTypesL"><span class="hs-identifier hs-var">rAuthTypesL</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">typeRep</span><span> </span><a href="#local-6989586621679118283"><span class="hs-identifier hs-var">proxy</span></a><span> </span><span class="hs-glyph">:</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-293"></a><span>
|
||||
</span><a name="line-294"></a><span class="hs-comment">-- ** Params Utils</span><span>
|
||||
</span><a name="line-295"></a><span>
|
||||
</span><a name="line-296"></a><span class="hs-identifier">toPath</span><span>
|
||||
</span><a name="line-297"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679117743"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-298"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679117743"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-299"></a><a name="toPath"><a href="SwaggerPetstore.Core.html#toPath"><span class="hs-identifier">toPath</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BB</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toLazyByteString</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toEncodedUrlPiece</span><span>
|
||||
</span><a name="line-300"></a><span>
|
||||
</span><a name="line-301"></a><span class="hs-identifier">toHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679117742"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">HeaderName</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117742"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Header</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-302"></a><a name="toHeader"><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier">toHeader</span></a></a><span> </span><a name="local-6989586621679118284"><a href="#local-6989586621679118284"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toHeader</span><span> </span><a href="#local-6989586621679118284"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-303"></a><span>
|
||||
</span><a name="line-304"></a><span class="hs-identifier">toForm</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679117741"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117741"><span class="hs-identifier hs-type">v</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><span>
|
||||
</span><a name="line-305"></a><a name="toForm"><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier">toForm</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679118285"><a href="#local-6989586621679118285"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679118286"><a href="#local-6989586621679118286"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toForm</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><a href="#local-6989586621679118285"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><a href="#local-6989586621679118286"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-306"></a><span>
|
||||
</span><a name="line-307"></a><span class="hs-identifier">toQuery</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679117740"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679117740"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">QueryItem</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-308"></a><a name="toQuery"><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier">toQuery</span></a></a><span> </span><a name="local-6989586621679118287"><a href="#local-6989586621679118287"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679118288"><span class="hs-identifier hs-var">toQueryParam</span></a><span> </span><a href="#local-6989586621679118287"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-309"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679118288"><a href="#local-6989586621679118288"><span class="hs-identifier">toQueryParam</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span>
|
||||
</span><a name="line-310"></a><span>
|
||||
</span><a name="line-311"></a><span class="hs-comment">-- *** Swagger `CollectionFormat` Utils</span><span>
|
||||
</span><a name="line-312"></a><span>
|
||||
</span><a name="line-313"></a><span class="hs-comment">-- | Determines the format of the array if type array is used.</span><span>
|
||||
</span><a name="line-314"></a><span class="hs-keyword">data</span><span> </span><a name="CollectionFormat"><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier">CollectionFormat</span></a></a><span>
|
||||
</span><a name="line-315"></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="CommaSeparated"><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier">CommaSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ CSV format for multiple parameters.</span><span>
|
||||
</span><a name="line-316"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="SpaceSeparated"><a href="SwaggerPetstore.Core.html#SpaceSeparated"><span class="hs-identifier">SpaceSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ Also called "SSV"</span><span>
|
||||
</span><a name="line-317"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="TabSeparated"><a href="SwaggerPetstore.Core.html#TabSeparated"><span class="hs-identifier">TabSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ Also called "TSV"</span><span>
|
||||
</span><a name="line-318"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="PipeSeparated"><a href="SwaggerPetstore.Core.html#PipeSeparated"><span class="hs-identifier">PipeSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ `value1|value2|value2`</span><span>
|
||||
</span><a name="line-319"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="MultiParamArray"><a href="SwaggerPetstore.Core.html#MultiParamArray"><span class="hs-identifier">MultiParamArray</span></a></a><span> </span><span class="hs-comment">-- ^ Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form')</span><span>
|
||||
</span><a name="line-320"></a><span>
|
||||
</span><a name="line-321"></a><span class="hs-identifier">toHeaderColl</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679117739"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">HeaderName</span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679117739"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Header</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-322"></a><a name="toHeaderColl"><a href="SwaggerPetstore.Core.html#toHeaderColl"><span class="hs-identifier">toHeaderColl</span></a></a><span> </span><a name="local-6989586621679118289"><a href="#local-6989586621679118289"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118290"><a href="#local-6989586621679118290"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679118289"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><a href="#local-6989586621679118290"><span class="hs-identifier hs-var">xs</span></a><span>
|
||||
</span><a name="line-323"></a><span>
|
||||
</span><a name="line-324"></a><span class="hs-identifier">toFormColl</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679117738"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679117738"><span class="hs-identifier hs-type">v</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><span>
|
||||
</span><a name="line-325"></a><a name="toFormColl"><a href="SwaggerPetstore.Core.html#toFormColl"><span class="hs-identifier">toFormColl</span></a></a><span> </span><a name="local-6989586621679118291"><a href="#local-6989586621679118291"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118292"><a href="#local-6989586621679118292"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toForm</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="#local-6989586621679118294"><span class="hs-identifier hs-var">unpack</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679118291"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679118293"><span class="hs-identifier hs-var">pack</span></a><span> </span><a href="#local-6989586621679118292"><span class="hs-identifier hs-var">xs</span></a><span>
|
||||
</span><a name="line-326"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-327"></a><span> </span><a name="local-6989586621679118293"><a href="#local-6989586621679118293"><span class="hs-identifier">pack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679118295"><a href="#local-6989586621679118295"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679118296"><a href="#local-6989586621679118296"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</span><span> </span><a href="#local-6989586621679118295"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679118296"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-328"></a><span> </span><a name="local-6989586621679118294"><a href="#local-6989586621679118294"><span class="hs-identifier">unpack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679118297"><a href="#local-6989586621679118297"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679118298"><a href="#local-6989586621679118298"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">CI</span><span class="hs-operator">.</span><span class="hs-identifier">original</span><span> </span><a href="#local-6989586621679118297"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><a href="#local-6989586621679118298"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-329"></a><span>
|
||||
</span><a name="line-330"></a><span class="hs-identifier">toQueryColl</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679117737"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679117737"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Query</span><span>
|
||||
</span><a name="line-331"></a><a name="toQueryColl"><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier">toQueryColl</span></a></a><span> </span><a name="local-6989586621679118299"><a href="#local-6989586621679118299"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118300"><a href="#local-6989586621679118300"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_toCollA"><span class="hs-identifier hs-var">_toCollA</span></a><span> </span><a href="#local-6989586621679118299"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><a href="#local-6989586621679118300"><span class="hs-identifier hs-var">xs</span></a><span>
|
||||
</span><a name="line-332"></a><span>
|
||||
</span><a name="line-333"></a><span class="hs-identifier">_toColl</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Traversable</span><span> </span><a href="#local-6989586621679117734"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117734"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679117735"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117736"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117734"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679117735"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117736"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-334"></a><a name="_toColl"><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier">_toColl</span></a></a><span> </span><a name="local-6989586621679118301"><a href="#local-6989586621679118301"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118302"><a href="#local-6989586621679118302"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679118303"><a href="#local-6989586621679118303"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromJust</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679118301"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679118304"><span class="hs-identifier hs-var">fencode</span></a><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">singleton</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679118303"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-335"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679118304"><a href="#local-6989586621679118304"><span class="hs-identifier">fencode</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">Just</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="#local-6989586621679118302"><span class="hs-identifier hs-var">encode</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromJust</span><span>
|
||||
</span><a name="line-336"></a><span> </span><span class="hs-pragma">{-# INLINE fencode #-}</span><span>
|
||||
</span><a name="line-337"></a><span>
|
||||
</span><a name="line-338"></a><span class="hs-identifier">_toCollA</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Traversable</span><span> </span><a href="#local-6989586621679117730"><span class="hs-identifier hs-type">f</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Traversable</span><span> </span><a href="#local-6989586621679117731"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679117731"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117730"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117731"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117732"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117733"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117731"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117730"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117731"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679117732"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117733"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117731"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-339"></a><a name="_toCollA"><a href="SwaggerPetstore.Core.html#_toCollA"><span class="hs-identifier">_toCollA</span></a></a><span> </span><a name="local-6989586621679118305"><a href="#local-6989586621679118305"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118306"><a href="#local-6989586621679118306"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679118307"><a href="#local-6989586621679118307"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679118305"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679118306"><span class="hs-identifier hs-var">encode</span></a><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">singleton</span><span> </span><a href="#local-6989586621679118307"><span class="hs-identifier hs-var">xs</span></a><span>
|
||||
</span><a name="line-340"></a><span>
|
||||
</span><a name="line-341"></a><span class="hs-identifier">_toCollA'</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Monoid</span><span> </span><a href="#local-6989586621679117256"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Traversable</span><span> </span><a href="#local-6989586621679117257"><span class="hs-identifier hs-type">f</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Traversable</span><span> </span><a href="#local-6989586621679117258"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679117258"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117257"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117258"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117259"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117260"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117258"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117256"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Char</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117256"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117257"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117258"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679117259"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117260"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117258"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117256"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-342"></a><a name="_toCollA%27"><a href="SwaggerPetstore.Core.html#_toCollA%27"><span class="hs-identifier">_toCollA'</span></a></a><span> </span><a name="local-6989586621679118308"><a href="#local-6989586621679118308"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118309"><a href="#local-6989586621679118309"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679118310"><a href="#local-6989586621679118310"><span class="hs-identifier">one</span></a></a><span> </span><a name="local-6989586621679118311"><a href="#local-6989586621679118311"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="#local-6989586621679118308"><span class="hs-identifier hs-var">c</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-343"></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118312"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118310"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">','</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-344"></a><span> </span><a href="SwaggerPetstore.Core.html#SpaceSeparated"><span class="hs-identifier hs-var">SpaceSeparated</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118312"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118310"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">' '</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-345"></a><span> </span><a href="SwaggerPetstore.Core.html#TabSeparated"><span class="hs-identifier hs-var">TabSeparated</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118312"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118310"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">'\t'</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-346"></a><span> </span><a href="SwaggerPetstore.Core.html#PipeSeparated"><span class="hs-identifier hs-var">PipeSeparated</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118312"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118310"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">'|'</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-347"></a><span> </span><a href="SwaggerPetstore.Core.html#MultiParamArray"><span class="hs-identifier hs-var">MultiParamArray</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118314"><span class="hs-identifier hs-var">expandList</span></a><span>
|
||||
</span><a name="line-348"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-349"></a><span> </span><a name="local-6989586621679118312"><a href="#local-6989586621679118312"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679118315"><a href="#local-6989586621679118315"><span class="hs-identifier">sep</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-350"></a><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">foldl1</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679118316"><a href="#local-6989586621679118316"><span class="hs-identifier">sk</span></a></a><span class="hs-special">,</span><span> </span><a name="local-6989586621679118317"><a href="#local-6989586621679118317"><span class="hs-identifier">sv</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">_</span><span class="hs-special">,</span><span> </span><a name="local-6989586621679118318"><a href="#local-6989586621679118318"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118316"><span class="hs-identifier hs-var">sk</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118313"><span class="hs-identifier hs-var">combine</span></a><span> </span><a href="#local-6989586621679118315"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679118317"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><a href="#local-6989586621679118318"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><|></span><span> </span><a href="#local-6989586621679118317"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var"><|></span><span> </span><a href="#local-6989586621679118318"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679118314"><span class="hs-identifier hs-var">expandList</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-351"></a><span> </span><a name="local-6989586621679118313"><a href="#local-6989586621679118313"><span class="hs-identifier">combine</span></a></a><span> </span><a name="local-6989586621679118319"><a href="#local-6989586621679118319"><span class="hs-identifier">sep</span></a></a><span> </span><a name="local-6989586621679118320"><a href="#local-6989586621679118320"><span class="hs-identifier">x</span></a></a><span> </span><a name="local-6989586621679118321"><a href="#local-6989586621679118321"><span class="hs-identifier">y</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118320"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679118319"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679118321"><span class="hs-identifier hs-var">y</span></a><span>
|
||||
</span><a name="line-352"></a><span> </span><a name="local-6989586621679118314"><a href="#local-6989586621679118314"><span class="hs-identifier">expandList</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">concatMap</span><span> </span><a href="#local-6989586621679118309"><span class="hs-identifier hs-var">encode</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">traverse</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">traverse</span><span class="hs-special">)</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toList</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679118311"><span class="hs-identifier hs-var">xs</span></a><span>
|
||||
</span><a name="line-353"></a><span> </span><span class="hs-pragma">{-# INLINE go #-}</span><span>
|
||||
</span><a name="line-354"></a><span> </span><span class="hs-pragma">{-# INLINE expandList #-}</span><span>
|
||||
</span><a name="line-355"></a><span> </span><span class="hs-pragma">{-# INLINE combine #-}</span><span>
|
||||
</span><a name="line-356"></a><span> </span><span>
|
||||
</span><a name="line-357"></a><span class="hs-comment">-- * AuthMethods</span><span>
|
||||
</span><a name="line-358"></a><span>
|
||||
</span><a name="line-359"></a><span class="hs-comment">-- | Provides a method to apply auth methods to requests</span><span>
|
||||
</span><a name="line-360"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span> </span><a href="#local-6989586621679115549"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><a name="line-361"></a><span> </span><a name="AuthMethod"><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier">AuthMethod</span></a></a><span> </span><a name="local-6989586621679115549"><a href="#local-6989586621679115549"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-362"></a><span> </span><span class="hs-identifier">applyAuthMethod</span><span>
|
||||
</span><a name="line-363"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-364"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679115549"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-365"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115550"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115551"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115552"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-366"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115550"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115551"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115552"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-367"></a><span>
|
||||
</span><a name="line-368"></a><span class="hs-comment">-- | An existential wrapper for any AuthMethod</span><span>
|
||||
</span><a name="line-369"></a><span class="hs-keyword">data</span><span> </span><a name="AnyAuthMethod"><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier">AnyAuthMethod</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679115548"><a href="#local-6989586621679115548"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679115548"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="AnyAuthMethod"><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier">AnyAuthMethod</span></a></a><span> </span><a href="#local-6989586621679115548"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-370"></a><span>
|
||||
</span><a name="line-371"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-type">AnyAuthMethod</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323888880"><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier">applyAuthMethod</span></a></a><span> </span><a name="local-6989586621679118665"><a href="#local-6989586621679118665"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a name="local-6989586621679118666"><a href="#local-6989586621679118666"><span class="hs-identifier">a</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679118667"><a href="#local-6989586621679118667"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier hs-var">applyAuthMethod</span></a><span> </span><a href="#local-6989586621679118665"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679118666"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679118667"><span class="hs-identifier hs-var">req</span></a><span>
|
||||
</span><a name="line-372"></a><span>
|
||||
</span><a name="line-373"></a><span class="hs-comment">-- | apply all matching AuthMethods in config to request</span><span>
|
||||
</span><a name="line-374"></a><span class="hs-identifier">_applyAuthMethods</span><span>
|
||||
</span><a name="line-375"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117253"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117254"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117255"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-376"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-377"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117253"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117254"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117255"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-378"></a><a name="_applyAuthMethods"><a href="SwaggerPetstore.Core.html#_applyAuthMethods"><span class="hs-identifier">_applyAuthMethods</span></a></a><span> </span><a name="local-6989586621679118322"><a href="#local-6989586621679118322"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118323"><a href="#local-6989586621679118323"><span class="hs-identifier">config</span></a></a><span class="hs-glyph">@</span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-special">{</span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-379"></a><span> </span><span class="hs-identifier hs-var">foldlM</span><span> </span><a href="#local-6989586621679118325"><span class="hs-identifier hs-var">go</span></a><span> </span><a href="#local-6989586621679118322"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">as</span><span>
|
||||
</span><a name="line-380"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-381"></a><span> </span><a name="local-6989586621679118325"><a href="#local-6989586621679118325"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679118326"><a href="#local-6989586621679118326"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a name="local-6989586621679118327"><a href="#local-6989586621679118327"><span class="hs-identifier">a</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier hs-var">applyAuthMethod</span></a><span> </span><a href="#local-6989586621679118323"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679118327"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679118326"><span class="hs-identifier hs-var">r</span></a><span>
|
||||
</span><a name="line-382"></a><span> </span><span>
|
||||
</span><a name="line-383"></a><span class="hs-comment">-- * Utils</span><span>
|
||||
</span><a name="line-384"></a><span>
|
||||
</span><a name="line-385"></a><span class="hs-comment">-- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)</span><span>
|
||||
</span><a name="line-386"></a><span class="hs-identifier">_omitNulls</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span>
|
||||
</span><a name="line-387"></a><a name="_omitNulls"><a href="SwaggerPetstore.Core.html#_omitNulls"><span class="hs-identifier">_omitNulls</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">object</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filter</span><span> </span><a href="#local-6989586621679118328"><span class="hs-identifier hs-var">notNull</span></a><span>
|
||||
</span><a name="line-388"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-389"></a><span> </span><a name="local-6989586621679118328"><a href="#local-6989586621679118328"><span class="hs-identifier">notNull</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">_</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Null</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">False</span><span>
|
||||
</span><a name="line-390"></a><span> </span><span class="hs-identifier">notNull</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">True</span><span>
|
||||
</span><a name="line-391"></a><span>
|
||||
</span><a name="line-392"></a><span class="hs-comment">-- | Encodes fields using WH.toQueryParam</span><span>
|
||||
</span><a name="line-393"></a><span class="hs-identifier">_toFormItem</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679116383"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679116384"><span class="hs-identifier hs-type">f</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679116385"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116384"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679116383"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116384"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679116385"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-394"></a><a name="_toFormItem"><a href="SwaggerPetstore.Core.html#_toFormItem"><span class="hs-identifier">_toFormItem</span></a></a><span> </span><a name="local-6989586621679118329"><a href="#local-6989586621679118329"><span class="hs-identifier">name</span></a></a><span> </span><a name="local-6989586621679118330"><a href="#local-6989586621679118330"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118329"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">:</span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679118330"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-395"></a><span>
|
||||
</span><a name="line-396"></a><span class="hs-comment">-- | Collapse (Just "") to Nothing</span><span>
|
||||
</span><a name="line-397"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-398"></a><a name="_emptyToNothing"><a href="SwaggerPetstore.Core.html#_emptyToNothing"><span class="hs-identifier">_emptyToNothing</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-string">""</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-399"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><a name="local-6989586621679118331"><a href="#local-6989586621679118331"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118331"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-400"></a><span class="hs-pragma">{-# INLINE _emptyToNothing #-}</span><span>
|
||||
</span><a name="line-401"></a><span>
|
||||
</span><a name="line-402"></a><span class="hs-comment">-- | Collapse (Just mempty) to Nothing</span><span>
|
||||
</span><a name="line-403"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Monoid</span><span> </span><a href="#local-6989586621679116382"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span> </span><a href="#local-6989586621679116382"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679116382"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679116382"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-404"></a><a name="_memptyToNothing"><a href="SwaggerPetstore.Core.html#_memptyToNothing"><span class="hs-identifier">_memptyToNothing</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679118332"><a href="#local-6989586621679118332"><span class="hs-identifier">x</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><a href="#local-6989586621679118332"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.==</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mempty</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-405"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><a name="local-6989586621679118333"><a href="#local-6989586621679118333"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118333"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-406"></a><span class="hs-pragma">{-# INLINE _memptyToNothing #-}</span><span>
|
||||
</span><a name="line-407"></a><span>
|
||||
</span><a name="line-408"></a><span class="hs-comment">-- * DateTime Formatting</span><span>
|
||||
</span><a name="line-409"></a><span>
|
||||
</span><a name="line-410"></a><span class="hs-keyword">newtype</span><span> </span><a name="DateTime"><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier">DateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="DateTime"><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier">DateTime</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unDateTime"><a href="SwaggerPetstore.Core.html#unDateTime"><span class="hs-identifier">unDateTime</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">UTCTime</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-411"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Ord</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">,</span><span class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</span><span class="hs-special">,</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span class="hs-special">,</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-412"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-413"></a><span> </span><a name="local-8214565720323785969"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withText</span><span> </span><span class="hs-string">"DateTime"</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_readDateTime"><span class="hs-identifier hs-var">_readDateTime</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-414"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-415"></a><span> </span><a name="local-8214565720323785840"><span class="hs-identifier">toJSON</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-var">DateTime</span></a><span> </span><a name="local-6989586621679118664"><a href="#local-6989586621679118664"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toJSON</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679118664"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-416"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-417"></a><span> </span><a name="local-8214565720323803459"><span class="hs-identifier">parseUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_readDateTime"><span class="hs-identifier hs-var">_readDateTime</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-418"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-419"></a><span> </span><a name="local-8214565720323803455"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-var">DateTime</span></a><span> </span><a name="local-6989586621679118663"><a href="#local-6989586621679118663"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679118663"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-420"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-421"></a><span> </span><a name="local-8214565720323792830"><span class="hs-identifier">show</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-var">DateTime</span></a><span> </span><a name="local-6989586621679118662"><a href="#local-6989586621679118662"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679118662"><span class="hs-identifier hs-var">t</span></a><span>
|
||||
</span><a name="line-422"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-423"></a><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-424"></a><span>
|
||||
</span><a name="line-425"></a><span class="hs-comment">-- | @_parseISO8601@</span><span>
|
||||
</span><a name="line-426"></a><span class="hs-identifier">_readDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679116380"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679116381"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679116381"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116381"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679116380"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-427"></a><a name="_readDateTime"><a href="SwaggerPetstore.Core.html#_readDateTime"><span class="hs-identifier">_readDateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-428"></a><span> </span><a href="SwaggerPetstore.Core.html#_parseISO8601"><span class="hs-identifier hs-var">_parseISO8601</span></a><span>
|
||||
</span><a name="line-429"></a><span class="hs-pragma">{-# INLINE _readDateTime #-}</span><span>
|
||||
</span><a name="line-430"></a><span>
|
||||
</span><a name="line-431"></a><span class="hs-comment">-- | @TI.formatISO8601Millis@</span><span>
|
||||
</span><a name="line-432"></a><span class="hs-identifier">_showDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679116115"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">~</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">UTCTime</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span> </span><a href="#local-6989586621679116115"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679116115"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-433"></a><a name="_showDateTime"><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier">_showDateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-434"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formatISO8601Millis</span><span>
|
||||
</span><a name="line-435"></a><span class="hs-pragma">{-# INLINE _showDateTime #-}</span><span>
|
||||
</span><a name="line-436"></a><span>
|
||||
</span><a name="line-437"></a><span class="hs-comment">-- | parse an ISO8601 date-time string</span><span>
|
||||
</span><a name="line-438"></a><span class="hs-identifier">_parseISO8601</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679116113"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679116114"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679116114"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116114"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679116113"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-439"></a><a name="_parseISO8601"><a href="SwaggerPetstore.Core.html#_parseISO8601"><span class="hs-identifier">_parseISO8601</span></a></a><span> </span><a name="local-6989586621679118334"><a href="#local-6989586621679118334"><span class="hs-identifier">t</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-440"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">asum</span><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-441"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">flip</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseTimeM</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679118334"><span class="hs-identifier hs-var">t</span></a><span> </span><span class="hs-operator hs-var"><$></span><span>
|
||||
</span><a name="line-442"></a><span> </span><span class="hs-special">[</span><span class="hs-string">"%FT%T%QZ"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%z"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%Z"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-443"></a><span class="hs-pragma">{-# INLINE _parseISO8601 #-}</span><span>
|
||||
</span><a name="line-444"></a><span>
|
||||
</span><a name="line-445"></a><span class="hs-comment">-- * Date Formatting</span><span>
|
||||
</span><a name="line-446"></a><span>
|
||||
</span><a name="line-447"></a><span class="hs-keyword">newtype</span><span> </span><a name="Date"><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier">Date</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Date"><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier">Date</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unDate"><a href="SwaggerPetstore.Core.html#unDate"><span class="hs-identifier">unDate</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Day</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-448"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Enum</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Ord</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Ix</span><span class="hs-special">,</span><span class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</span><span class="hs-special">,</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span class="hs-special">,</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-449"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-450"></a><span> </span><a name="local-8214565720323785969"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withText</span><span> </span><span class="hs-string">"Date"</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_readDate"><span class="hs-identifier hs-var">_readDate</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-451"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-452"></a><span> </span><a name="local-8214565720323785840"><span class="hs-identifier">toJSON</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-var">Date</span></a><span> </span><a name="local-6989586621679118661"><a href="#local-6989586621679118661"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toJSON</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier hs-var">_showDate</span></a><span> </span><a href="#local-6989586621679118661"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-453"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-454"></a><span> </span><a name="local-8214565720323803459"><span class="hs-identifier">parseUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_readDate"><span class="hs-identifier hs-var">_readDate</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-455"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-456"></a><span> </span><a name="local-8214565720323803455"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-var">Date</span></a><span> </span><a name="local-6989586621679118660"><a href="#local-6989586621679118660"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier hs-var">_showDate</span></a><span> </span><a href="#local-6989586621679118660"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-457"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-458"></a><span> </span><a name="local-8214565720323792830"><span class="hs-identifier">show</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-var">Date</span></a><span> </span><a name="local-6989586621679118659"><a href="#local-6989586621679118659"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier hs-var">_showDate</span></a><span> </span><a href="#local-6989586621679118659"><span class="hs-identifier hs-var">t</span></a><span>
|
||||
</span><a name="line-459"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-460"></a><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-461"></a><span>
|
||||
</span><a name="line-462"></a><span class="hs-comment">-- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@</span><span>
|
||||
</span><a name="line-463"></a><span class="hs-identifier">_readDate</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679116111"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679116112"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116112"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679116111"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-464"></a><a name="_readDate"><a href="SwaggerPetstore.Core.html#_readDate"><span class="hs-identifier">_readDate</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-465"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseTimeM</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span> </span><span class="hs-string">"%Y-%m-%d"</span><span>
|
||||
</span><a name="line-466"></a><span class="hs-pragma">{-# INLINE _readDate #-}</span><span>
|
||||
</span><a name="line-467"></a><span>
|
||||
</span><a name="line-468"></a><span class="hs-comment">-- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@</span><span>
|
||||
</span><a name="line-469"></a><span class="hs-identifier">_showDate</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span> </span><a href="#local-6989586621679116110"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679116110"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-470"></a><a name="_showDate"><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier">_showDate</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-471"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formatTime</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span> </span><span class="hs-string">"%Y-%m-%d"</span><span>
|
||||
</span><a name="line-472"></a><span class="hs-pragma">{-# INLINE _showDate #-}</span><span>
|
||||
</span><a name="line-473"></a><span>
|
||||
</span><a name="line-474"></a><span class="hs-comment">-- * Byte/Binary Formatting</span><span>
|
||||
</span><a name="line-475"></a><span>
|
||||
</span><a name="line-476"></a><span> </span><span>
|
||||
</span><a name="line-477"></a><span class="hs-comment">-- | base64 encoded characters</span><span>
|
||||
</span><a name="line-478"></a><span class="hs-keyword">newtype</span><span> </span><a name="ByteArray"><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier">ByteArray</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="ByteArray"><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier">ByteArray</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unByteArray"><a href="SwaggerPetstore.Core.html#unByteArray"><span class="hs-identifier">unByteArray</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-479"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Ord</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">,</span><span class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-480"></a><span>
|
||||
</span><a name="line-481"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-482"></a><span> </span><a name="local-8214565720323785969"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withText</span><span> </span><span class="hs-string">"ByteArray"</span><span> </span><a href="SwaggerPetstore.Core.html#_readByteArray"><span class="hs-identifier hs-var">_readByteArray</span></a><span>
|
||||
</span><a name="line-483"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-484"></a><span> </span><a name="local-8214565720323785840"><span class="hs-identifier">toJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toJSON</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_showByteArray"><span class="hs-identifier hs-var">_showByteArray</span></a><span>
|
||||
</span><a name="line-485"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-486"></a><span> </span><a name="local-8214565720323803459"><span class="hs-identifier">parseUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_readByteArray"><span class="hs-identifier hs-var">_readByteArray</span></a><span>
|
||||
</span><a name="line-487"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-488"></a><span> </span><a name="local-8214565720323803455"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showByteArray"><span class="hs-identifier hs-var">_showByteArray</span></a><span>
|
||||
</span><a name="line-489"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-490"></a><span> </span><a name="local-8214565720323792830"><span class="hs-identifier">show</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_showByteArray"><span class="hs-identifier hs-var">_showByteArray</span></a><span>
|
||||
</span><a name="line-491"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-492"></a><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-493"></a><span>
|
||||
</span><a name="line-494"></a><span class="hs-comment">-- | read base64 encoded characters</span><span>
|
||||
</span><a name="line-495"></a><span class="hs-identifier">_readByteArray</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679116109"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116109"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span>
|
||||
</span><a name="line-496"></a><a name="_readByteArray"><a href="SwaggerPetstore.Core.html#_readByteArray"><span class="hs-identifier">_readByteArray</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">either</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fail</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-var">ByteArray</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL64</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-497"></a><span class="hs-pragma">{-# INLINE _readByteArray #-}</span><span>
|
||||
</span><a name="line-498"></a><span>
|
||||
</span><a name="line-499"></a><span class="hs-comment">-- | show base64 encoded characters</span><span>
|
||||
</span><a name="line-500"></a><span class="hs-identifier">_showByteArray</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span>
|
||||
</span><a name="line-501"></a><a name="_showByteArray"><a href="SwaggerPetstore.Core.html#_showByteArray"><span class="hs-identifier">_showByteArray</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL64</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">unByteArray</span><span>
|
||||
</span><a name="line-502"></a><span class="hs-pragma">{-# INLINE _showByteArray #-}</span><span>
|
||||
</span><a name="line-503"></a><span>
|
||||
</span><a name="line-504"></a><span class="hs-comment">-- | any sequence of octets</span><span>
|
||||
</span><a name="line-505"></a><span class="hs-keyword">newtype</span><span> </span><a name="Binary"><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier">Binary</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Binary"><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier">Binary</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unBinary"><a href="SwaggerPetstore.Core.html#unBinary"><span class="hs-identifier">unBinary</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-506"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Ord</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">,</span><span class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-507"></a><span>
|
||||
</span><a name="line-508"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-509"></a><span> </span><a name="local-8214565720323785969"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withText</span><span> </span><span class="hs-string">"Binary"</span><span> </span><a href="SwaggerPetstore.Core.html#_readBinaryBase64"><span class="hs-identifier hs-var">_readBinaryBase64</span></a><span>
|
||||
</span><a name="line-510"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-511"></a><span> </span><a name="local-8214565720323785840"><span class="hs-identifier">toJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toJSON</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_showBinaryBase64"><span class="hs-identifier hs-var">_showBinaryBase64</span></a><span>
|
||||
</span><a name="line-512"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-513"></a><span> </span><a name="local-8214565720323803459"><span class="hs-identifier">parseUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_readBinaryBase64"><span class="hs-identifier hs-var">_readBinaryBase64</span></a><span>
|
||||
</span><a name="line-514"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-515"></a><span> </span><a name="local-8214565720323803455"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showBinaryBase64"><span class="hs-identifier hs-var">_showBinaryBase64</span></a><span>
|
||||
</span><a name="line-516"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-517"></a><span> </span><a name="local-8214565720323792830"><span class="hs-identifier">show</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_showBinaryBase64"><span class="hs-identifier hs-var">_showBinaryBase64</span></a><span>
|
||||
</span><a name="line-518"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-519"></a><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">unBinary</span><span>
|
||||
</span><a name="line-520"></a><span>
|
||||
</span><a name="line-521"></a><span class="hs-identifier">_readBinaryBase64</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679116108"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116108"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span>
|
||||
</span><a name="line-522"></a><a name="_readBinaryBase64"><a href="SwaggerPetstore.Core.html#_readBinaryBase64"><span class="hs-identifier">_readBinaryBase64</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">either</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fail</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-var">Binary</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL64</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-523"></a><span class="hs-pragma">{-# INLINE _readBinaryBase64 #-}</span><span>
|
||||
</span><a name="line-524"></a><span>
|
||||
</span><a name="line-525"></a><span class="hs-identifier">_showBinaryBase64</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span>
|
||||
</span><a name="line-526"></a><a name="_showBinaryBase64"><a href="SwaggerPetstore.Core.html#_showBinaryBase64"><span class="hs-identifier">_showBinaryBase64</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL64</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">unBinary</span><span>
|
||||
</span><a name="line-527"></a><span class="hs-pragma">{-# INLINE _showBinaryBase64 #-}</span><span>
|
||||
</span><a name="line-528"></a><span>
|
||||
</span><a name="line-529"></a><span class="hs-comment">-- * Lens Type Aliases</span><span>
|
||||
</span><a name="line-530"></a><span>
|
||||
</span><a name="line-531"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_%27"><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier">Lens_'</span></a></a><span> </span><a name="local-6989586621679114059"><a href="#local-6989586621679114059"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679114060"><a href="#local-6989586621679114060"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_"><span class="hs-identifier hs-type">Lens_</span></a><span> </span><a href="#local-6989586621679114059"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679114059"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679114060"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679114060"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-532"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_"><a href="SwaggerPetstore.Core.html#Lens_"><span class="hs-identifier">Lens_</span></a></a><span> </span><a name="local-6989586621679114054"><a href="#local-6989586621679114054"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679114055"><a href="#local-6989586621679114055"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679114056"><a href="#local-6989586621679114056"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679114057"><a href="#local-6989586621679114057"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><a name="local-6989586621679114058"><a href="#local-6989586621679114058"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-operator hs-type">*</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-operator hs-type">*</span><span class="hs-special">)</span><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679114058"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114056"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114058"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679114057"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114054"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114058"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679114055"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-533"></a></pre></body></html>
|
||||
@ -1,642 +0,0 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-comment">{-
|
||||
Swagger Petstore
|
||||
|
||||
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
|
||||
|
||||
OpenAPI spec version: 2.0
|
||||
Swagger Petstore API version: 1.0.0
|
||||
Contact: apiteam@swagger.io
|
||||
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
|
||||
-}</span><span>
|
||||
</span><a name="line-11"></a><span>
|
||||
</span><a name="line-12"></a><span class="hs-comment">{-|
|
||||
Module : SwaggerPetstore.Lens
|
||||
-}</span><span>
|
||||
</span><a name="line-15"></a><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE KindSignatures #-}</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE NamedFieldPuns #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE RankNTypes #-}</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE RecordWildCards #-}</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-21"></a><span>
|
||||
</span><a name="line-22"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Lens</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-23"></a><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Map</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</span><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Set</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Set</span><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-30"></a><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-32"></a><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">=<<</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span class="hs-identifier hs-var">maybe</span><span class="hs-special">,</span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Applicative</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-35"></a><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Model.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span></a><span>
|
||||
</span><a name="line-37"></a><span>
|
||||
</span><a name="line-38"></a><span class="hs-comment">-- * Type Aliases</span><span>
|
||||
</span><a name="line-39"></a><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_%27"><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier">Lens_'</span></a></a><span> </span><a name="local-6989586621679103824"><a href="#local-6989586621679103824"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679103825"><a href="#local-6989586621679103825"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_"><span class="hs-identifier hs-type">Lens_</span></a><span> </span><a href="#local-6989586621679103824"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679103824"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679103825"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679103825"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_"><a href="SwaggerPetstore.Lens.html#Lens_"><span class="hs-identifier">Lens_</span></a></a><span> </span><a name="local-6989586621679103819"><a href="#local-6989586621679103819"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679103820"><a href="#local-6989586621679103820"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679103821"><a href="#local-6989586621679103821"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679103822"><a href="#local-6989586621679103822"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><a name="local-6989586621679103823"><a href="#local-6989586621679103823"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-operator hs-type">*</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-operator hs-type">*</span><span class="hs-special">)</span><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679103823"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679103821"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679103823"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679103822"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679103819"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679103823"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679103820"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-42"></a><span>
|
||||
</span><a name="line-43"></a><span>
|
||||
</span><a name="line-44"></a><span class="hs-comment">-- * AdditionalPropertiesClass</span><span>
|
||||
</span><a name="line-45"></a><span>
|
||||
</span><a name="line-46"></a><span class="hs-comment">-- | 'additionalPropertiesClassMapProperty' Lens</span><span>
|
||||
</span><a name="line-47"></a><span class="hs-identifier">additionalPropertiesClassMapPropertyL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-type">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-48"></a><a name="additionalPropertiesClassMapPropertyL"><a href="SwaggerPetstore.Lens.html#additionalPropertiesClassMapPropertyL"><span class="hs-identifier">additionalPropertiesClassMapPropertyL</span></a></a><span> </span><a name="local-6989586621679103826"><a href="#local-6989586621679103826"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103829"><a href="#local-6989586621679103829"><span class="hs-identifier">additionalPropertiesClassMapProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103829"><span class="hs-identifier hs-var">additionalPropertiesClassMapProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103826"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103827"><span class="hs-identifier hs-var">additionalPropertiesClassMapProperty</span></a><span>
|
||||
</span><a name="line-49"></a><span class="hs-pragma">{-# INLINE additionalPropertiesClassMapPropertyL #-}</span><span>
|
||||
</span><a name="line-50"></a><span>
|
||||
</span><a name="line-51"></a><span class="hs-comment">-- | 'additionalPropertiesClassMapOfMapProperty' Lens</span><span>
|
||||
</span><a name="line-52"></a><span class="hs-identifier">additionalPropertiesClassMapOfMapPropertyL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-type">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-53"></a><a name="additionalPropertiesClassMapOfMapPropertyL"><a href="SwaggerPetstore.Lens.html#additionalPropertiesClassMapOfMapPropertyL"><span class="hs-identifier">additionalPropertiesClassMapOfMapPropertyL</span></a></a><span> </span><a name="local-6989586621679103830"><a href="#local-6989586621679103830"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103833"><a href="#local-6989586621679103833"><span class="hs-identifier">additionalPropertiesClassMapOfMapProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103833"><span class="hs-identifier hs-var">additionalPropertiesClassMapOfMapProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103830"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103832"><span class="hs-identifier hs-var">additionalPropertiesClassMapOfMapProperty</span></a><span>
|
||||
</span><a name="line-54"></a><span class="hs-pragma">{-# INLINE additionalPropertiesClassMapOfMapPropertyL #-}</span><span>
|
||||
</span><a name="line-55"></a><span>
|
||||
</span><a name="line-56"></a><span>
|
||||
</span><a name="line-57"></a><span>
|
||||
</span><a name="line-58"></a><span class="hs-comment">-- * Animal</span><span>
|
||||
</span><a name="line-59"></a><span>
|
||||
</span><a name="line-60"></a><span class="hs-comment">-- | 'animalClassName' Lens</span><span>
|
||||
</span><a name="line-61"></a><span class="hs-identifier">animalClassNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-type">Animal</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-62"></a><a name="animalClassNameL"><a href="SwaggerPetstore.Lens.html#animalClassNameL"><span class="hs-identifier">animalClassNameL</span></a></a><span> </span><a name="local-6989586621679103834"><a href="#local-6989586621679103834"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103837"><a href="#local-6989586621679103837"><span class="hs-identifier">animalClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103837"><span class="hs-identifier hs-var">animalClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103834"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103835"><span class="hs-identifier hs-var">animalClassName</span></a><span>
|
||||
</span><a name="line-63"></a><span class="hs-pragma">{-# INLINE animalClassNameL #-}</span><span>
|
||||
</span><a name="line-64"></a><span>
|
||||
</span><a name="line-65"></a><span class="hs-comment">-- | 'animalColor' Lens</span><span>
|
||||
</span><a name="line-66"></a><span class="hs-identifier">animalColorL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-type">Animal</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-67"></a><a name="animalColorL"><a href="SwaggerPetstore.Lens.html#animalColorL"><span class="hs-identifier">animalColorL</span></a></a><span> </span><a name="local-6989586621679103838"><a href="#local-6989586621679103838"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103841"><a href="#local-6989586621679103841"><span class="hs-identifier">animalColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103841"><span class="hs-identifier hs-var">animalColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103838"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103840"><span class="hs-identifier hs-var">animalColor</span></a><span>
|
||||
</span><a name="line-68"></a><span class="hs-pragma">{-# INLINE animalColorL #-}</span><span>
|
||||
</span><a name="line-69"></a><span>
|
||||
</span><a name="line-70"></a><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span class="hs-comment">-- * AnimalFarm</span><span>
|
||||
</span><a name="line-73"></a><span>
|
||||
</span><a name="line-74"></a><span>
|
||||
</span><a name="line-75"></a><span>
|
||||
</span><a name="line-76"></a><span class="hs-comment">-- * ApiResponse</span><span>
|
||||
</span><a name="line-77"></a><span>
|
||||
</span><a name="line-78"></a><span class="hs-comment">-- | 'apiResponseCode' Lens</span><span>
|
||||
</span><a name="line-79"></a><span class="hs-identifier">apiResponseCodeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-80"></a><a name="apiResponseCodeL"><a href="SwaggerPetstore.Lens.html#apiResponseCodeL"><span class="hs-identifier">apiResponseCodeL</span></a></a><span> </span><a name="local-6989586621679103842"><a href="#local-6989586621679103842"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103846"><a href="#local-6989586621679103846"><span class="hs-identifier">apiResponseCode</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103846"><span class="hs-identifier hs-var">apiResponseCode</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103842"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103843"><span class="hs-identifier hs-var">apiResponseCode</span></a><span>
|
||||
</span><a name="line-81"></a><span class="hs-pragma">{-# INLINE apiResponseCodeL #-}</span><span>
|
||||
</span><a name="line-82"></a><span>
|
||||
</span><a name="line-83"></a><span class="hs-comment">-- | 'apiResponseType' Lens</span><span>
|
||||
</span><a name="line-84"></a><span class="hs-identifier">apiResponseTypeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-85"></a><a name="apiResponseTypeL"><a href="SwaggerPetstore.Lens.html#apiResponseTypeL"><span class="hs-identifier">apiResponseTypeL</span></a></a><span> </span><a name="local-6989586621679103847"><a href="#local-6989586621679103847"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103851"><a href="#local-6989586621679103851"><span class="hs-identifier">apiResponseType</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103851"><span class="hs-identifier hs-var">apiResponseType</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103847"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103849"><span class="hs-identifier hs-var">apiResponseType</span></a><span>
|
||||
</span><a name="line-86"></a><span class="hs-pragma">{-# INLINE apiResponseTypeL #-}</span><span>
|
||||
</span><a name="line-87"></a><span>
|
||||
</span><a name="line-88"></a><span class="hs-comment">-- | 'apiResponseMessage' Lens</span><span>
|
||||
</span><a name="line-89"></a><span class="hs-identifier">apiResponseMessageL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-90"></a><a name="apiResponseMessageL"><a href="SwaggerPetstore.Lens.html#apiResponseMessageL"><span class="hs-identifier">apiResponseMessageL</span></a></a><span> </span><a name="local-6989586621679103852"><a href="#local-6989586621679103852"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103856"><a href="#local-6989586621679103856"><span class="hs-identifier">apiResponseMessage</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103856"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103852"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103855"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span>
|
||||
</span><a name="line-91"></a><span class="hs-pragma">{-# INLINE apiResponseMessageL #-}</span><span>
|
||||
</span><a name="line-92"></a><span>
|
||||
</span><a name="line-93"></a><span>
|
||||
</span><a name="line-94"></a><span>
|
||||
</span><a name="line-95"></a><span class="hs-comment">-- * ArrayOfArrayOfNumberOnly</span><span>
|
||||
</span><a name="line-96"></a><span>
|
||||
</span><a name="line-97"></a><span class="hs-comment">-- | 'arrayOfArrayOfNumberOnlyArrayArrayNumber' Lens</span><span>
|
||||
</span><a name="line-98"></a><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-type">ArrayOfArrayOfNumberOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">]</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-99"></a><a name="arrayOfArrayOfNumberOnlyArrayArrayNumberL"><a href="SwaggerPetstore.Lens.html#arrayOfArrayOfNumberOnlyArrayArrayNumberL"><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumberL</span></a></a><span> </span><a name="local-6989586621679103857"><a href="#local-6989586621679103857"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfArrayOfNumberOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103859"><a href="#local-6989586621679103859"><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfArrayOfNumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103859"><span class="hs-identifier hs-var">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103857"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103858"><span class="hs-identifier hs-var">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a><span>
|
||||
</span><a name="line-100"></a><span class="hs-pragma">{-# INLINE arrayOfArrayOfNumberOnlyArrayArrayNumberL #-}</span><span>
|
||||
</span><a name="line-101"></a><span>
|
||||
</span><a name="line-102"></a><span>
|
||||
</span><a name="line-103"></a><span>
|
||||
</span><a name="line-104"></a><span class="hs-comment">-- * ArrayOfNumberOnly</span><span>
|
||||
</span><a name="line-105"></a><span>
|
||||
</span><a name="line-106"></a><span class="hs-comment">-- | 'arrayOfNumberOnlyArrayNumber' Lens</span><span>
|
||||
</span><a name="line-107"></a><span class="hs-identifier">arrayOfNumberOnlyArrayNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-type">ArrayOfNumberOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-108"></a><a name="arrayOfNumberOnlyArrayNumberL"><a href="SwaggerPetstore.Lens.html#arrayOfNumberOnlyArrayNumberL"><span class="hs-identifier">arrayOfNumberOnlyArrayNumberL</span></a></a><span> </span><a name="local-6989586621679103860"><a href="#local-6989586621679103860"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfNumberOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103862"><a href="#local-6989586621679103862"><span class="hs-identifier">arrayOfNumberOnlyArrayNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfNumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103862"><span class="hs-identifier hs-var">arrayOfNumberOnlyArrayNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103860"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103861"><span class="hs-identifier hs-var">arrayOfNumberOnlyArrayNumber</span></a><span>
|
||||
</span><a name="line-109"></a><span class="hs-pragma">{-# INLINE arrayOfNumberOnlyArrayNumberL #-}</span><span>
|
||||
</span><a name="line-110"></a><span>
|
||||
</span><a name="line-111"></a><span>
|
||||
</span><a name="line-112"></a><span>
|
||||
</span><a name="line-113"></a><span class="hs-comment">-- * ArrayTest</span><span>
|
||||
</span><a name="line-114"></a><span>
|
||||
</span><a name="line-115"></a><span class="hs-comment">-- | 'arrayTestArrayOfString' Lens</span><span>
|
||||
</span><a name="line-116"></a><span class="hs-identifier">arrayTestArrayOfStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-type">ArrayTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-117"></a><a name="arrayTestArrayOfStringL"><a href="SwaggerPetstore.Lens.html#arrayTestArrayOfStringL"><span class="hs-identifier">arrayTestArrayOfStringL</span></a></a><span> </span><a name="local-6989586621679103863"><a href="#local-6989586621679103863"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103867"><a href="#local-6989586621679103867"><span class="hs-identifier">arrayTestArrayOfString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103867"><span class="hs-identifier hs-var">arrayTestArrayOfString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103863"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103864"><span class="hs-identifier hs-var">arrayTestArrayOfString</span></a><span>
|
||||
</span><a name="line-118"></a><span class="hs-pragma">{-# INLINE arrayTestArrayOfStringL #-}</span><span>
|
||||
</span><a name="line-119"></a><span>
|
||||
</span><a name="line-120"></a><span class="hs-comment">-- | 'arrayTestArrayArrayOfInteger' Lens</span><span>
|
||||
</span><a name="line-121"></a><span class="hs-identifier">arrayTestArrayArrayOfIntegerL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-type">ArrayTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">]</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-122"></a><a name="arrayTestArrayArrayOfIntegerL"><a href="SwaggerPetstore.Lens.html#arrayTestArrayArrayOfIntegerL"><span class="hs-identifier">arrayTestArrayArrayOfIntegerL</span></a></a><span> </span><a name="local-6989586621679103868"><a href="#local-6989586621679103868"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103872"><a href="#local-6989586621679103872"><span class="hs-identifier">arrayTestArrayArrayOfInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103872"><span class="hs-identifier hs-var">arrayTestArrayArrayOfInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103868"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103870"><span class="hs-identifier hs-var">arrayTestArrayArrayOfInteger</span></a><span>
|
||||
</span><a name="line-123"></a><span class="hs-pragma">{-# INLINE arrayTestArrayArrayOfIntegerL #-}</span><span>
|
||||
</span><a name="line-124"></a><span>
|
||||
</span><a name="line-125"></a><span class="hs-comment">-- | 'arrayTestArrayArrayOfModel' Lens</span><span>
|
||||
</span><a name="line-126"></a><span class="hs-identifier">arrayTestArrayArrayOfModelL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-type">ArrayTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-type">ReadOnlyFirst</span></a><span class="hs-special">]</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-127"></a><a name="arrayTestArrayArrayOfModelL"><a href="SwaggerPetstore.Lens.html#arrayTestArrayArrayOfModelL"><span class="hs-identifier">arrayTestArrayArrayOfModelL</span></a></a><span> </span><a name="local-6989586621679103873"><a href="#local-6989586621679103873"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103877"><a href="#local-6989586621679103877"><span class="hs-identifier">arrayTestArrayArrayOfModel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103877"><span class="hs-identifier hs-var">arrayTestArrayArrayOfModel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103873"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103876"><span class="hs-identifier hs-var">arrayTestArrayArrayOfModel</span></a><span>
|
||||
</span><a name="line-128"></a><span class="hs-pragma">{-# INLINE arrayTestArrayArrayOfModelL #-}</span><span>
|
||||
</span><a name="line-129"></a><span>
|
||||
</span><a name="line-130"></a><span>
|
||||
</span><a name="line-131"></a><span>
|
||||
</span><a name="line-132"></a><span class="hs-comment">-- * Capitalization</span><span>
|
||||
</span><a name="line-133"></a><span>
|
||||
</span><a name="line-134"></a><span class="hs-comment">-- | 'capitalizationSmallCamel' Lens</span><span>
|
||||
</span><a name="line-135"></a><span class="hs-identifier">capitalizationSmallCamelL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-136"></a><a name="capitalizationSmallCamelL"><a href="SwaggerPetstore.Lens.html#capitalizationSmallCamelL"><span class="hs-identifier">capitalizationSmallCamelL</span></a></a><span> </span><a name="local-6989586621679103878"><a href="#local-6989586621679103878"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103885"><a href="#local-6989586621679103885"><span class="hs-identifier">capitalizationSmallCamel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103885"><span class="hs-identifier hs-var">capitalizationSmallCamel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103878"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103879"><span class="hs-identifier hs-var">capitalizationSmallCamel</span></a><span>
|
||||
</span><a name="line-137"></a><span class="hs-pragma">{-# INLINE capitalizationSmallCamelL #-}</span><span>
|
||||
</span><a name="line-138"></a><span>
|
||||
</span><a name="line-139"></a><span class="hs-comment">-- | 'capitalizationCapitalCamel' Lens</span><span>
|
||||
</span><a name="line-140"></a><span class="hs-identifier">capitalizationCapitalCamelL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-141"></a><a name="capitalizationCapitalCamelL"><a href="SwaggerPetstore.Lens.html#capitalizationCapitalCamelL"><span class="hs-identifier">capitalizationCapitalCamelL</span></a></a><span> </span><a name="local-6989586621679103886"><a href="#local-6989586621679103886"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103893"><a href="#local-6989586621679103893"><span class="hs-identifier">capitalizationCapitalCamel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103893"><span class="hs-identifier hs-var">capitalizationCapitalCamel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103886"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103888"><span class="hs-identifier hs-var">capitalizationCapitalCamel</span></a><span>
|
||||
</span><a name="line-142"></a><span class="hs-pragma">{-# INLINE capitalizationCapitalCamelL #-}</span><span>
|
||||
</span><a name="line-143"></a><span>
|
||||
</span><a name="line-144"></a><span class="hs-comment">-- | 'capitalizationSmallSnake' Lens</span><span>
|
||||
</span><a name="line-145"></a><span class="hs-identifier">capitalizationSmallSnakeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-146"></a><a name="capitalizationSmallSnakeL"><a href="SwaggerPetstore.Lens.html#capitalizationSmallSnakeL"><span class="hs-identifier">capitalizationSmallSnakeL</span></a></a><span> </span><a name="local-6989586621679103894"><a href="#local-6989586621679103894"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103901"><a href="#local-6989586621679103901"><span class="hs-identifier">capitalizationSmallSnake</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103901"><span class="hs-identifier hs-var">capitalizationSmallSnake</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103894"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103897"><span class="hs-identifier hs-var">capitalizationSmallSnake</span></a><span>
|
||||
</span><a name="line-147"></a><span class="hs-pragma">{-# INLINE capitalizationSmallSnakeL #-}</span><span>
|
||||
</span><a name="line-148"></a><span>
|
||||
</span><a name="line-149"></a><span class="hs-comment">-- | 'capitalizationCapitalSnake' Lens</span><span>
|
||||
</span><a name="line-150"></a><span class="hs-identifier">capitalizationCapitalSnakeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-151"></a><a name="capitalizationCapitalSnakeL"><a href="SwaggerPetstore.Lens.html#capitalizationCapitalSnakeL"><span class="hs-identifier">capitalizationCapitalSnakeL</span></a></a><span> </span><a name="local-6989586621679103902"><a href="#local-6989586621679103902"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103909"><a href="#local-6989586621679103909"><span class="hs-identifier">capitalizationCapitalSnake</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103909"><span class="hs-identifier hs-var">capitalizationCapitalSnake</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103902"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103906"><span class="hs-identifier hs-var">capitalizationCapitalSnake</span></a><span>
|
||||
</span><a name="line-152"></a><span class="hs-pragma">{-# INLINE capitalizationCapitalSnakeL #-}</span><span>
|
||||
</span><a name="line-153"></a><span>
|
||||
</span><a name="line-154"></a><span class="hs-comment">-- | 'capitalizationScaEthFlowPoints' Lens</span><span>
|
||||
</span><a name="line-155"></a><span class="hs-identifier">capitalizationScaEthFlowPointsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-156"></a><a name="capitalizationScaEthFlowPointsL"><a href="SwaggerPetstore.Lens.html#capitalizationScaEthFlowPointsL"><span class="hs-identifier">capitalizationScaEthFlowPointsL</span></a></a><span> </span><a name="local-6989586621679103910"><a href="#local-6989586621679103910"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103917"><a href="#local-6989586621679103917"><span class="hs-identifier">capitalizationScaEthFlowPoints</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103917"><span class="hs-identifier hs-var">capitalizationScaEthFlowPoints</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103910"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103915"><span class="hs-identifier hs-var">capitalizationScaEthFlowPoints</span></a><span>
|
||||
</span><a name="line-157"></a><span class="hs-pragma">{-# INLINE capitalizationScaEthFlowPointsL #-}</span><span>
|
||||
</span><a name="line-158"></a><span>
|
||||
</span><a name="line-159"></a><span class="hs-comment">-- | 'capitalizationAttName' Lens</span><span>
|
||||
</span><a name="line-160"></a><span class="hs-identifier">capitalizationAttNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-161"></a><a name="capitalizationAttNameL"><a href="SwaggerPetstore.Lens.html#capitalizationAttNameL"><span class="hs-identifier">capitalizationAttNameL</span></a></a><span> </span><a name="local-6989586621679103918"><a href="#local-6989586621679103918"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103925"><a href="#local-6989586621679103925"><span class="hs-identifier">capitalizationAttName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103925"><span class="hs-identifier hs-var">capitalizationAttName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103918"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103924"><span class="hs-identifier hs-var">capitalizationAttName</span></a><span>
|
||||
</span><a name="line-162"></a><span class="hs-pragma">{-# INLINE capitalizationAttNameL #-}</span><span>
|
||||
</span><a name="line-163"></a><span>
|
||||
</span><a name="line-164"></a><span>
|
||||
</span><a name="line-165"></a><span>
|
||||
</span><a name="line-166"></a><span class="hs-comment">-- * Category</span><span>
|
||||
</span><a name="line-167"></a><span>
|
||||
</span><a name="line-168"></a><span class="hs-comment">-- | 'categoryId' Lens</span><span>
|
||||
</span><a name="line-169"></a><span class="hs-identifier">categoryIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-170"></a><a name="categoryIdL"><a href="SwaggerPetstore.Lens.html#categoryIdL"><span class="hs-identifier">categoryIdL</span></a></a><span> </span><a name="local-6989586621679103926"><a href="#local-6989586621679103926"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103929"><a href="#local-6989586621679103929"><span class="hs-identifier">categoryId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103929"><span class="hs-identifier hs-var">categoryId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103926"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103927"><span class="hs-identifier hs-var">categoryId</span></a><span>
|
||||
</span><a name="line-171"></a><span class="hs-pragma">{-# INLINE categoryIdL #-}</span><span>
|
||||
</span><a name="line-172"></a><span>
|
||||
</span><a name="line-173"></a><span class="hs-comment">-- | 'categoryName' Lens</span><span>
|
||||
</span><a name="line-174"></a><span class="hs-identifier">categoryNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-175"></a><a name="categoryNameL"><a href="SwaggerPetstore.Lens.html#categoryNameL"><span class="hs-identifier">categoryNameL</span></a></a><span> </span><a name="local-6989586621679103930"><a href="#local-6989586621679103930"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103933"><a href="#local-6989586621679103933"><span class="hs-identifier">categoryName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103933"><span class="hs-identifier hs-var">categoryName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103930"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103932"><span class="hs-identifier hs-var">categoryName</span></a><span>
|
||||
</span><a name="line-176"></a><span class="hs-pragma">{-# INLINE categoryNameL #-}</span><span>
|
||||
</span><a name="line-177"></a><span>
|
||||
</span><a name="line-178"></a><span>
|
||||
</span><a name="line-179"></a><span>
|
||||
</span><a name="line-180"></a><span class="hs-comment">-- * ClassModel</span><span>
|
||||
</span><a name="line-181"></a><span>
|
||||
</span><a name="line-182"></a><span class="hs-comment">-- | 'classModelClass' Lens</span><span>
|
||||
</span><a name="line-183"></a><span class="hs-identifier">classModelClassL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-type">ClassModel</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-184"></a><a name="classModelClassL"><a href="SwaggerPetstore.Lens.html#classModelClassL"><span class="hs-identifier">classModelClassL</span></a></a><span> </span><a name="local-6989586621679103934"><a href="#local-6989586621679103934"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-var">ClassModel</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103936"><a href="#local-6989586621679103936"><span class="hs-identifier">classModelClass</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-var">ClassModel</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103936"><span class="hs-identifier hs-var">classModelClass</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103934"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103935"><span class="hs-identifier hs-var">classModelClass</span></a><span>
|
||||
</span><a name="line-185"></a><span class="hs-pragma">{-# INLINE classModelClassL #-}</span><span>
|
||||
</span><a name="line-186"></a><span>
|
||||
</span><a name="line-187"></a><span>
|
||||
</span><a name="line-188"></a><span>
|
||||
</span><a name="line-189"></a><span class="hs-comment">-- * Client</span><span>
|
||||
</span><a name="line-190"></a><span>
|
||||
</span><a name="line-191"></a><span class="hs-comment">-- | 'clientClient' Lens</span><span>
|
||||
</span><a name="line-192"></a><span class="hs-identifier">clientClientL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-193"></a><a name="clientClientL"><a href="SwaggerPetstore.Lens.html#clientClientL"><span class="hs-identifier">clientClientL</span></a></a><span> </span><a name="local-6989586621679103937"><a href="#local-6989586621679103937"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-var">Client</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103939"><a href="#local-6989586621679103939"><span class="hs-identifier">clientClient</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-var">Client</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103939"><span class="hs-identifier hs-var">clientClient</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103937"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103938"><span class="hs-identifier hs-var">clientClient</span></a><span>
|
||||
</span><a name="line-194"></a><span class="hs-pragma">{-# INLINE clientClientL #-}</span><span>
|
||||
</span><a name="line-195"></a><span>
|
||||
</span><a name="line-196"></a><span>
|
||||
</span><a name="line-197"></a><span>
|
||||
</span><a name="line-198"></a><span class="hs-comment">-- * EnumArrays</span><span>
|
||||
</span><a name="line-199"></a><span>
|
||||
</span><a name="line-200"></a><span class="hs-comment">-- | 'enumArraysJustSymbol' Lens</span><span>
|
||||
</span><a name="line-201"></a><span class="hs-identifier">enumArraysJustSymbolL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-type">EnumArrays</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-202"></a><a name="enumArraysJustSymbolL"><a href="SwaggerPetstore.Lens.html#enumArraysJustSymbolL"><span class="hs-identifier">enumArraysJustSymbolL</span></a></a><span> </span><a name="local-6989586621679103940"><a href="#local-6989586621679103940"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103943"><a href="#local-6989586621679103943"><span class="hs-identifier">enumArraysJustSymbol</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103943"><span class="hs-identifier hs-var">enumArraysJustSymbol</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103940"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103941"><span class="hs-identifier hs-var">enumArraysJustSymbol</span></a><span>
|
||||
</span><a name="line-203"></a><span class="hs-pragma">{-# INLINE enumArraysJustSymbolL #-}</span><span>
|
||||
</span><a name="line-204"></a><span>
|
||||
</span><a name="line-205"></a><span class="hs-comment">-- | 'enumArraysArrayEnum' Lens</span><span>
|
||||
</span><a name="line-206"></a><span class="hs-identifier">enumArraysArrayEnumL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-type">EnumArrays</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-207"></a><a name="enumArraysArrayEnumL"><a href="SwaggerPetstore.Lens.html#enumArraysArrayEnumL"><span class="hs-identifier">enumArraysArrayEnumL</span></a></a><span> </span><a name="local-6989586621679103944"><a href="#local-6989586621679103944"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103947"><a href="#local-6989586621679103947"><span class="hs-identifier">enumArraysArrayEnum</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103947"><span class="hs-identifier hs-var">enumArraysArrayEnum</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103944"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103946"><span class="hs-identifier hs-var">enumArraysArrayEnum</span></a><span>
|
||||
</span><a name="line-208"></a><span class="hs-pragma">{-# INLINE enumArraysArrayEnumL #-}</span><span>
|
||||
</span><a name="line-209"></a><span>
|
||||
</span><a name="line-210"></a><span>
|
||||
</span><a name="line-211"></a><span>
|
||||
</span><a name="line-212"></a><span class="hs-comment">-- * EnumClass</span><span>
|
||||
</span><a name="line-213"></a><span>
|
||||
</span><a name="line-214"></a><span>
|
||||
</span><a name="line-215"></a><span>
|
||||
</span><a name="line-216"></a><span class="hs-comment">-- * EnumTest</span><span>
|
||||
</span><a name="line-217"></a><span>
|
||||
</span><a name="line-218"></a><span class="hs-comment">-- | 'enumTestEnumString' Lens</span><span>
|
||||
</span><a name="line-219"></a><span class="hs-identifier">enumTestEnumStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-220"></a><a name="enumTestEnumStringL"><a href="SwaggerPetstore.Lens.html#enumTestEnumStringL"><span class="hs-identifier">enumTestEnumStringL</span></a></a><span> </span><a name="local-6989586621679103948"><a href="#local-6989586621679103948"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103953"><a href="#local-6989586621679103953"><span class="hs-identifier">enumTestEnumString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103953"><span class="hs-identifier hs-var">enumTestEnumString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103948"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103949"><span class="hs-identifier hs-var">enumTestEnumString</span></a><span>
|
||||
</span><a name="line-221"></a><span class="hs-pragma">{-# INLINE enumTestEnumStringL #-}</span><span>
|
||||
</span><a name="line-222"></a><span>
|
||||
</span><a name="line-223"></a><span class="hs-comment">-- | 'enumTestEnumInteger' Lens</span><span>
|
||||
</span><a name="line-224"></a><span class="hs-identifier">enumTestEnumIntegerL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-225"></a><a name="enumTestEnumIntegerL"><a href="SwaggerPetstore.Lens.html#enumTestEnumIntegerL"><span class="hs-identifier">enumTestEnumIntegerL</span></a></a><span> </span><a name="local-6989586621679103954"><a href="#local-6989586621679103954"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103959"><a href="#local-6989586621679103959"><span class="hs-identifier">enumTestEnumInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103959"><span class="hs-identifier hs-var">enumTestEnumInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103954"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103956"><span class="hs-identifier hs-var">enumTestEnumInteger</span></a><span>
|
||||
</span><a name="line-226"></a><span class="hs-pragma">{-# INLINE enumTestEnumIntegerL #-}</span><span>
|
||||
</span><a name="line-227"></a><span>
|
||||
</span><a name="line-228"></a><span class="hs-comment">-- | 'enumTestEnumNumber' Lens</span><span>
|
||||
</span><a name="line-229"></a><span class="hs-identifier">enumTestEnumNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-230"></a><a name="enumTestEnumNumberL"><a href="SwaggerPetstore.Lens.html#enumTestEnumNumberL"><span class="hs-identifier">enumTestEnumNumberL</span></a></a><span> </span><a name="local-6989586621679103960"><a href="#local-6989586621679103960"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103965"><a href="#local-6989586621679103965"><span class="hs-identifier">enumTestEnumNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103965"><span class="hs-identifier hs-var">enumTestEnumNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103960"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103963"><span class="hs-identifier hs-var">enumTestEnumNumber</span></a><span>
|
||||
</span><a name="line-231"></a><span class="hs-pragma">{-# INLINE enumTestEnumNumberL #-}</span><span>
|
||||
</span><a name="line-232"></a><span>
|
||||
</span><a name="line-233"></a><span class="hs-comment">-- | 'enumTestOuterEnum' Lens</span><span>
|
||||
</span><a name="line-234"></a><span class="hs-identifier">enumTestOuterEnumL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterEnum"><span class="hs-identifier hs-type">OuterEnum</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-235"></a><a name="enumTestOuterEnumL"><a href="SwaggerPetstore.Lens.html#enumTestOuterEnumL"><span class="hs-identifier">enumTestOuterEnumL</span></a></a><span> </span><a name="local-6989586621679103966"><a href="#local-6989586621679103966"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103971"><a href="#local-6989586621679103971"><span class="hs-identifier">enumTestOuterEnum</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103971"><span class="hs-identifier hs-var">enumTestOuterEnum</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103966"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103970"><span class="hs-identifier hs-var">enumTestOuterEnum</span></a><span>
|
||||
</span><a name="line-236"></a><span class="hs-pragma">{-# INLINE enumTestOuterEnumL #-}</span><span>
|
||||
</span><a name="line-237"></a><span>
|
||||
</span><a name="line-238"></a><span>
|
||||
</span><a name="line-239"></a><span>
|
||||
</span><a name="line-240"></a><span class="hs-comment">-- * FormatTest</span><span>
|
||||
</span><a name="line-241"></a><span>
|
||||
</span><a name="line-242"></a><span class="hs-comment">-- | 'formatTestInteger' Lens</span><span>
|
||||
</span><a name="line-243"></a><span class="hs-identifier">formatTestIntegerL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-244"></a><a name="formatTestIntegerL"><a href="SwaggerPetstore.Lens.html#formatTestIntegerL"><span class="hs-identifier">formatTestIntegerL</span></a></a><span> </span><a name="local-6989586621679103972"><a href="#local-6989586621679103972"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679103986"><a href="#local-6989586621679103986"><span class="hs-identifier">formatTestInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679103986"><span class="hs-identifier hs-var">formatTestInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103972"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103973"><span class="hs-identifier hs-var">formatTestInteger</span></a><span>
|
||||
</span><a name="line-245"></a><span class="hs-pragma">{-# INLINE formatTestIntegerL #-}</span><span>
|
||||
</span><a name="line-246"></a><span>
|
||||
</span><a name="line-247"></a><span class="hs-comment">-- | 'formatTestInt32' Lens</span><span>
|
||||
</span><a name="line-248"></a><span class="hs-identifier">formatTestInt32L</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-249"></a><a name="formatTestInt32L"><a href="SwaggerPetstore.Lens.html#formatTestInt32L"><span class="hs-identifier">formatTestInt32L</span></a></a><span> </span><a name="local-6989586621679103987"><a href="#local-6989586621679103987"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104001"><a href="#local-6989586621679104001"><span class="hs-identifier">formatTestInt32</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104001"><span class="hs-identifier hs-var">formatTestInt32</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679103987"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679103989"><span class="hs-identifier hs-var">formatTestInt32</span></a><span>
|
||||
</span><a name="line-250"></a><span class="hs-pragma">{-# INLINE formatTestInt32L #-}</span><span>
|
||||
</span><a name="line-251"></a><span>
|
||||
</span><a name="line-252"></a><span class="hs-comment">-- | 'formatTestInt64' Lens</span><span>
|
||||
</span><a name="line-253"></a><span class="hs-identifier">formatTestInt64L</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-254"></a><a name="formatTestInt64L"><a href="SwaggerPetstore.Lens.html#formatTestInt64L"><span class="hs-identifier">formatTestInt64L</span></a></a><span> </span><a name="local-6989586621679104002"><a href="#local-6989586621679104002"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104016"><a href="#local-6989586621679104016"><span class="hs-identifier">formatTestInt64</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104016"><span class="hs-identifier hs-var">formatTestInt64</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104002"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104005"><span class="hs-identifier hs-var">formatTestInt64</span></a><span>
|
||||
</span><a name="line-255"></a><span class="hs-pragma">{-# INLINE formatTestInt64L #-}</span><span>
|
||||
</span><a name="line-256"></a><span>
|
||||
</span><a name="line-257"></a><span class="hs-comment">-- | 'formatTestNumber' Lens</span><span>
|
||||
</span><a name="line-258"></a><span class="hs-identifier">formatTestNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-259"></a><a name="formatTestNumberL"><a href="SwaggerPetstore.Lens.html#formatTestNumberL"><span class="hs-identifier">formatTestNumberL</span></a></a><span> </span><a name="local-6989586621679104017"><a href="#local-6989586621679104017"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104031"><a href="#local-6989586621679104031"><span class="hs-identifier">formatTestNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104031"><span class="hs-identifier hs-var">formatTestNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104017"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104021"><span class="hs-identifier hs-var">formatTestNumber</span></a><span>
|
||||
</span><a name="line-260"></a><span class="hs-pragma">{-# INLINE formatTestNumberL #-}</span><span>
|
||||
</span><a name="line-261"></a><span>
|
||||
</span><a name="line-262"></a><span class="hs-comment">-- | 'formatTestFloat' Lens</span><span>
|
||||
</span><a name="line-263"></a><span class="hs-identifier">formatTestFloatL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Float</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-264"></a><a name="formatTestFloatL"><a href="SwaggerPetstore.Lens.html#formatTestFloatL"><span class="hs-identifier">formatTestFloatL</span></a></a><span> </span><a name="local-6989586621679104032"><a href="#local-6989586621679104032"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104046"><a href="#local-6989586621679104046"><span class="hs-identifier">formatTestFloat</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104046"><span class="hs-identifier hs-var">formatTestFloat</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104032"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104037"><span class="hs-identifier hs-var">formatTestFloat</span></a><span>
|
||||
</span><a name="line-265"></a><span class="hs-pragma">{-# INLINE formatTestFloatL #-}</span><span>
|
||||
</span><a name="line-266"></a><span>
|
||||
</span><a name="line-267"></a><span class="hs-comment">-- | 'formatTestDouble' Lens</span><span>
|
||||
</span><a name="line-268"></a><span class="hs-identifier">formatTestDoubleL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-269"></a><a name="formatTestDoubleL"><a href="SwaggerPetstore.Lens.html#formatTestDoubleL"><span class="hs-identifier">formatTestDoubleL</span></a></a><span> </span><a name="local-6989586621679104047"><a href="#local-6989586621679104047"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104061"><a href="#local-6989586621679104061"><span class="hs-identifier">formatTestDouble</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104061"><span class="hs-identifier hs-var">formatTestDouble</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104047"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104053"><span class="hs-identifier hs-var">formatTestDouble</span></a><span>
|
||||
</span><a name="line-270"></a><span class="hs-pragma">{-# INLINE formatTestDoubleL #-}</span><span>
|
||||
</span><a name="line-271"></a><span>
|
||||
</span><a name="line-272"></a><span class="hs-comment">-- | 'formatTestString' Lens</span><span>
|
||||
</span><a name="line-273"></a><span class="hs-identifier">formatTestStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-274"></a><a name="formatTestStringL"><a href="SwaggerPetstore.Lens.html#formatTestStringL"><span class="hs-identifier">formatTestStringL</span></a></a><span> </span><a name="local-6989586621679104062"><a href="#local-6989586621679104062"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104076"><a href="#local-6989586621679104076"><span class="hs-identifier">formatTestString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104076"><span class="hs-identifier hs-var">formatTestString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104062"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104069"><span class="hs-identifier hs-var">formatTestString</span></a><span>
|
||||
</span><a name="line-275"></a><span class="hs-pragma">{-# INLINE formatTestStringL #-}</span><span>
|
||||
</span><a name="line-276"></a><span>
|
||||
</span><a name="line-277"></a><span class="hs-comment">-- | 'formatTestByte' Lens</span><span>
|
||||
</span><a name="line-278"></a><span class="hs-identifier">formatTestByteL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-279"></a><a name="formatTestByteL"><a href="SwaggerPetstore.Lens.html#formatTestByteL"><span class="hs-identifier">formatTestByteL</span></a></a><span> </span><a name="local-6989586621679104077"><a href="#local-6989586621679104077"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104091"><a href="#local-6989586621679104091"><span class="hs-identifier">formatTestByte</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104091"><span class="hs-identifier hs-var">formatTestByte</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104077"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104085"><span class="hs-identifier hs-var">formatTestByte</span></a><span>
|
||||
</span><a name="line-280"></a><span class="hs-pragma">{-# INLINE formatTestByteL #-}</span><span>
|
||||
</span><a name="line-281"></a><span>
|
||||
</span><a name="line-282"></a><span class="hs-comment">-- | 'formatTestBinary' Lens</span><span>
|
||||
</span><a name="line-283"></a><span class="hs-identifier">formatTestBinaryL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-284"></a><a name="formatTestBinaryL"><a href="SwaggerPetstore.Lens.html#formatTestBinaryL"><span class="hs-identifier">formatTestBinaryL</span></a></a><span> </span><a name="local-6989586621679104092"><a href="#local-6989586621679104092"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104106"><a href="#local-6989586621679104106"><span class="hs-identifier">formatTestBinary</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104106"><span class="hs-identifier hs-var">formatTestBinary</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104092"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104101"><span class="hs-identifier hs-var">formatTestBinary</span></a><span>
|
||||
</span><a name="line-285"></a><span class="hs-pragma">{-# INLINE formatTestBinaryL #-}</span><span>
|
||||
</span><a name="line-286"></a><span>
|
||||
</span><a name="line-287"></a><span class="hs-comment">-- | 'formatTestDate' Lens</span><span>
|
||||
</span><a name="line-288"></a><span class="hs-identifier">formatTestDateL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Date"><span class="hs-identifier hs-type">Date</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-289"></a><a name="formatTestDateL"><a href="SwaggerPetstore.Lens.html#formatTestDateL"><span class="hs-identifier">formatTestDateL</span></a></a><span> </span><a name="local-6989586621679104107"><a href="#local-6989586621679104107"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104121"><a href="#local-6989586621679104121"><span class="hs-identifier">formatTestDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104121"><span class="hs-identifier hs-var">formatTestDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104107"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104117"><span class="hs-identifier hs-var">formatTestDate</span></a><span>
|
||||
</span><a name="line-290"></a><span class="hs-pragma">{-# INLINE formatTestDateL #-}</span><span>
|
||||
</span><a name="line-291"></a><span>
|
||||
</span><a name="line-292"></a><span class="hs-comment">-- | 'formatTestDateTime' Lens</span><span>
|
||||
</span><a name="line-293"></a><span class="hs-identifier">formatTestDateTimeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-294"></a><a name="formatTestDateTimeL"><a href="SwaggerPetstore.Lens.html#formatTestDateTimeL"><span class="hs-identifier">formatTestDateTimeL</span></a></a><span> </span><a name="local-6989586621679104122"><a href="#local-6989586621679104122"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104136"><a href="#local-6989586621679104136"><span class="hs-identifier">formatTestDateTime</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104136"><span class="hs-identifier hs-var">formatTestDateTime</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104122"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104133"><span class="hs-identifier hs-var">formatTestDateTime</span></a><span>
|
||||
</span><a name="line-295"></a><span class="hs-pragma">{-# INLINE formatTestDateTimeL #-}</span><span>
|
||||
</span><a name="line-296"></a><span>
|
||||
</span><a name="line-297"></a><span class="hs-comment">-- | 'formatTestUuid' Lens</span><span>
|
||||
</span><a name="line-298"></a><span class="hs-identifier">formatTestUuidL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-299"></a><a name="formatTestUuidL"><a href="SwaggerPetstore.Lens.html#formatTestUuidL"><span class="hs-identifier">formatTestUuidL</span></a></a><span> </span><a name="local-6989586621679104137"><a href="#local-6989586621679104137"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104151"><a href="#local-6989586621679104151"><span class="hs-identifier">formatTestUuid</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104151"><span class="hs-identifier hs-var">formatTestUuid</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104137"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104149"><span class="hs-identifier hs-var">formatTestUuid</span></a><span>
|
||||
</span><a name="line-300"></a><span class="hs-pragma">{-# INLINE formatTestUuidL #-}</span><span>
|
||||
</span><a name="line-301"></a><span>
|
||||
</span><a name="line-302"></a><span class="hs-comment">-- | 'formatTestPassword' Lens</span><span>
|
||||
</span><a name="line-303"></a><span class="hs-identifier">formatTestPasswordL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-304"></a><a name="formatTestPasswordL"><a href="SwaggerPetstore.Lens.html#formatTestPasswordL"><span class="hs-identifier">formatTestPasswordL</span></a></a><span> </span><a name="local-6989586621679104152"><a href="#local-6989586621679104152"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104166"><a href="#local-6989586621679104166"><span class="hs-identifier">formatTestPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104166"><span class="hs-identifier hs-var">formatTestPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104152"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104165"><span class="hs-identifier hs-var">formatTestPassword</span></a><span>
|
||||
</span><a name="line-305"></a><span class="hs-pragma">{-# INLINE formatTestPasswordL #-}</span><span>
|
||||
</span><a name="line-306"></a><span>
|
||||
</span><a name="line-307"></a><span>
|
||||
</span><a name="line-308"></a><span>
|
||||
</span><a name="line-309"></a><span class="hs-comment">-- * HasOnlyReadOnly</span><span>
|
||||
</span><a name="line-310"></a><span>
|
||||
</span><a name="line-311"></a><span class="hs-comment">-- | 'hasOnlyReadOnlyBar' Lens</span><span>
|
||||
</span><a name="line-312"></a><span class="hs-identifier">hasOnlyReadOnlyBarL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-type">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-313"></a><a name="hasOnlyReadOnlyBarL"><a href="SwaggerPetstore.Lens.html#hasOnlyReadOnlyBarL"><span class="hs-identifier">hasOnlyReadOnlyBarL</span></a></a><span> </span><a name="local-6989586621679104167"><a href="#local-6989586621679104167"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104170"><a href="#local-6989586621679104170"><span class="hs-identifier">hasOnlyReadOnlyBar</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104170"><span class="hs-identifier hs-var">hasOnlyReadOnlyBar</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104167"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104168"><span class="hs-identifier hs-var">hasOnlyReadOnlyBar</span></a><span>
|
||||
</span><a name="line-314"></a><span class="hs-pragma">{-# INLINE hasOnlyReadOnlyBarL #-}</span><span>
|
||||
</span><a name="line-315"></a><span>
|
||||
</span><a name="line-316"></a><span class="hs-comment">-- | 'hasOnlyReadOnlyFoo' Lens</span><span>
|
||||
</span><a name="line-317"></a><span class="hs-identifier">hasOnlyReadOnlyFooL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-type">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-318"></a><a name="hasOnlyReadOnlyFooL"><a href="SwaggerPetstore.Lens.html#hasOnlyReadOnlyFooL"><span class="hs-identifier">hasOnlyReadOnlyFooL</span></a></a><span> </span><a name="local-6989586621679104171"><a href="#local-6989586621679104171"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104174"><a href="#local-6989586621679104174"><span class="hs-identifier">hasOnlyReadOnlyFoo</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104174"><span class="hs-identifier hs-var">hasOnlyReadOnlyFoo</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104171"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104173"><span class="hs-identifier hs-var">hasOnlyReadOnlyFoo</span></a><span>
|
||||
</span><a name="line-319"></a><span class="hs-pragma">{-# INLINE hasOnlyReadOnlyFooL #-}</span><span>
|
||||
</span><a name="line-320"></a><span>
|
||||
</span><a name="line-321"></a><span>
|
||||
</span><a name="line-322"></a><span>
|
||||
</span><a name="line-323"></a><span class="hs-comment">-- * MapTest</span><span>
|
||||
</span><a name="line-324"></a><span>
|
||||
</span><a name="line-325"></a><span class="hs-comment">-- | 'mapTestMapMapOfString' Lens</span><span>
|
||||
</span><a name="line-326"></a><span class="hs-identifier">mapTestMapMapOfStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-type">MapTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-327"></a><a name="mapTestMapMapOfStringL"><a href="SwaggerPetstore.Lens.html#mapTestMapMapOfStringL"><span class="hs-identifier">mapTestMapMapOfStringL</span></a></a><span> </span><a name="local-6989586621679104175"><a href="#local-6989586621679104175"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104178"><a href="#local-6989586621679104178"><span class="hs-identifier">mapTestMapMapOfString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104178"><span class="hs-identifier hs-var">mapTestMapMapOfString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104175"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104176"><span class="hs-identifier hs-var">mapTestMapMapOfString</span></a><span>
|
||||
</span><a name="line-328"></a><span class="hs-pragma">{-# INLINE mapTestMapMapOfStringL #-}</span><span>
|
||||
</span><a name="line-329"></a><span>
|
||||
</span><a name="line-330"></a><span class="hs-comment">-- | 'mapTestMapOfEnumString' Lens</span><span>
|
||||
</span><a name="line-331"></a><span class="hs-identifier">mapTestMapOfEnumStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-type">MapTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-332"></a><a name="mapTestMapOfEnumStringL"><a href="SwaggerPetstore.Lens.html#mapTestMapOfEnumStringL"><span class="hs-identifier">mapTestMapOfEnumStringL</span></a></a><span> </span><a name="local-6989586621679104179"><a href="#local-6989586621679104179"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104182"><a href="#local-6989586621679104182"><span class="hs-identifier">mapTestMapOfEnumString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104182"><span class="hs-identifier hs-var">mapTestMapOfEnumString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104179"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104181"><span class="hs-identifier hs-var">mapTestMapOfEnumString</span></a><span>
|
||||
</span><a name="line-333"></a><span class="hs-pragma">{-# INLINE mapTestMapOfEnumStringL #-}</span><span>
|
||||
</span><a name="line-334"></a><span>
|
||||
</span><a name="line-335"></a><span>
|
||||
</span><a name="line-336"></a><span>
|
||||
</span><a name="line-337"></a><span class="hs-comment">-- * MixedPropertiesAndAdditionalPropertiesClass</span><span>
|
||||
</span><a name="line-338"></a><span>
|
||||
</span><a name="line-339"></a><span class="hs-comment">-- | 'mixedPropertiesAndAdditionalPropertiesClassUuid' Lens</span><span>
|
||||
</span><a name="line-340"></a><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuidL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-type">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-341"></a><a name="mixedPropertiesAndAdditionalPropertiesClassUuidL"><a href="SwaggerPetstore.Lens.html#mixedPropertiesAndAdditionalPropertiesClassUuidL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuidL</span></a></a><span> </span><a name="local-6989586621679104183"><a href="#local-6989586621679104183"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104187"><a href="#local-6989586621679104187"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104187"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104183"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104184"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a><span>
|
||||
</span><a name="line-342"></a><span class="hs-pragma">{-# INLINE mixedPropertiesAndAdditionalPropertiesClassUuidL #-}</span><span>
|
||||
</span><a name="line-343"></a><span>
|
||||
</span><a name="line-344"></a><span class="hs-comment">-- | 'mixedPropertiesAndAdditionalPropertiesClassDateTime' Lens</span><span>
|
||||
</span><a name="line-345"></a><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTimeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-type">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-346"></a><a name="mixedPropertiesAndAdditionalPropertiesClassDateTimeL"><a href="SwaggerPetstore.Lens.html#mixedPropertiesAndAdditionalPropertiesClassDateTimeL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTimeL</span></a></a><span> </span><a name="local-6989586621679104188"><a href="#local-6989586621679104188"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104192"><a href="#local-6989586621679104192"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104192"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104188"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104190"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a><span>
|
||||
</span><a name="line-347"></a><span class="hs-pragma">{-# INLINE mixedPropertiesAndAdditionalPropertiesClassDateTimeL #-}</span><span>
|
||||
</span><a name="line-348"></a><span>
|
||||
</span><a name="line-349"></a><span class="hs-comment">-- | 'mixedPropertiesAndAdditionalPropertiesClassMap' Lens</span><span>
|
||||
</span><a name="line-350"></a><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMapL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-type">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-type">Animal</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-351"></a><a name="mixedPropertiesAndAdditionalPropertiesClassMapL"><a href="SwaggerPetstore.Lens.html#mixedPropertiesAndAdditionalPropertiesClassMapL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMapL</span></a></a><span> </span><a name="local-6989586621679104193"><a href="#local-6989586621679104193"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104197"><a href="#local-6989586621679104197"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMap</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104197"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassMap</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104193"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104196"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassMap</span></a><span>
|
||||
</span><a name="line-352"></a><span class="hs-pragma">{-# INLINE mixedPropertiesAndAdditionalPropertiesClassMapL #-}</span><span>
|
||||
</span><a name="line-353"></a><span>
|
||||
</span><a name="line-354"></a><span>
|
||||
</span><a name="line-355"></a><span>
|
||||
</span><a name="line-356"></a><span class="hs-comment">-- * Model200Response</span><span>
|
||||
</span><a name="line-357"></a><span>
|
||||
</span><a name="line-358"></a><span class="hs-comment">-- | 'model200ResponseName' Lens</span><span>
|
||||
</span><a name="line-359"></a><span class="hs-identifier">model200ResponseNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-type">Model200Response</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-360"></a><a name="model200ResponseNameL"><a href="SwaggerPetstore.Lens.html#model200ResponseNameL"><span class="hs-identifier">model200ResponseNameL</span></a></a><span> </span><a name="local-6989586621679104198"><a href="#local-6989586621679104198"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104201"><a href="#local-6989586621679104201"><span class="hs-identifier">model200ResponseName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104201"><span class="hs-identifier hs-var">model200ResponseName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104198"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104199"><span class="hs-identifier hs-var">model200ResponseName</span></a><span>
|
||||
</span><a name="line-361"></a><span class="hs-pragma">{-# INLINE model200ResponseNameL #-}</span><span>
|
||||
</span><a name="line-362"></a><span>
|
||||
</span><a name="line-363"></a><span class="hs-comment">-- | 'model200ResponseClass' Lens</span><span>
|
||||
</span><a name="line-364"></a><span class="hs-identifier">model200ResponseClassL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-type">Model200Response</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-365"></a><a name="model200ResponseClassL"><a href="SwaggerPetstore.Lens.html#model200ResponseClassL"><span class="hs-identifier">model200ResponseClassL</span></a></a><span> </span><a name="local-6989586621679104202"><a href="#local-6989586621679104202"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104205"><a href="#local-6989586621679104205"><span class="hs-identifier">model200ResponseClass</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104205"><span class="hs-identifier hs-var">model200ResponseClass</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104202"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104204"><span class="hs-identifier hs-var">model200ResponseClass</span></a><span>
|
||||
</span><a name="line-366"></a><span class="hs-pragma">{-# INLINE model200ResponseClassL #-}</span><span>
|
||||
</span><a name="line-367"></a><span>
|
||||
</span><a name="line-368"></a><span>
|
||||
</span><a name="line-369"></a><span>
|
||||
</span><a name="line-370"></a><span class="hs-comment">-- * ModelList</span><span>
|
||||
</span><a name="line-371"></a><span>
|
||||
</span><a name="line-372"></a><span class="hs-comment">-- | 'modelList123List' Lens</span><span>
|
||||
</span><a name="line-373"></a><span class="hs-identifier">modelList123ListL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-type">ModelList</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-374"></a><a name="modelList123ListL"><a href="SwaggerPetstore.Lens.html#modelList123ListL"><span class="hs-identifier">modelList123ListL</span></a></a><span> </span><a name="local-6989586621679104206"><a href="#local-6989586621679104206"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-var">ModelList</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104208"><a href="#local-6989586621679104208"><span class="hs-identifier">modelList123List</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-var">ModelList</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104208"><span class="hs-identifier hs-var">modelList123List</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104206"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104207"><span class="hs-identifier hs-var">modelList123List</span></a><span>
|
||||
</span><a name="line-375"></a><span class="hs-pragma">{-# INLINE modelList123ListL #-}</span><span>
|
||||
</span><a name="line-376"></a><span>
|
||||
</span><a name="line-377"></a><span>
|
||||
</span><a name="line-378"></a><span>
|
||||
</span><a name="line-379"></a><span class="hs-comment">-- * ModelReturn</span><span>
|
||||
</span><a name="line-380"></a><span>
|
||||
</span><a name="line-381"></a><span class="hs-comment">-- | 'modelReturnReturn' Lens</span><span>
|
||||
</span><a name="line-382"></a><span class="hs-identifier">modelReturnReturnL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-type">ModelReturn</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-383"></a><a name="modelReturnReturnL"><a href="SwaggerPetstore.Lens.html#modelReturnReturnL"><span class="hs-identifier">modelReturnReturnL</span></a></a><span> </span><a name="local-6989586621679104209"><a href="#local-6989586621679104209"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-var">ModelReturn</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104211"><a href="#local-6989586621679104211"><span class="hs-identifier">modelReturnReturn</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-var">ModelReturn</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104211"><span class="hs-identifier hs-var">modelReturnReturn</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104209"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104210"><span class="hs-identifier hs-var">modelReturnReturn</span></a><span>
|
||||
</span><a name="line-384"></a><span class="hs-pragma">{-# INLINE modelReturnReturnL #-}</span><span>
|
||||
</span><a name="line-385"></a><span>
|
||||
</span><a name="line-386"></a><span>
|
||||
</span><a name="line-387"></a><span>
|
||||
</span><a name="line-388"></a><span class="hs-comment">-- * Name</span><span>
|
||||
</span><a name="line-389"></a><span>
|
||||
</span><a name="line-390"></a><span class="hs-comment">-- | 'nameName' Lens</span><span>
|
||||
</span><a name="line-391"></a><span class="hs-identifier">nameNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-392"></a><a name="nameNameL"><a href="SwaggerPetstore.Lens.html#nameNameL"><span class="hs-identifier">nameNameL</span></a></a><span> </span><a name="local-6989586621679104212"><a href="#local-6989586621679104212"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104217"><a href="#local-6989586621679104217"><span class="hs-identifier">nameName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104217"><span class="hs-identifier hs-var">nameName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104212"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104213"><span class="hs-identifier hs-var">nameName</span></a><span>
|
||||
</span><a name="line-393"></a><span class="hs-pragma">{-# INLINE nameNameL #-}</span><span>
|
||||
</span><a name="line-394"></a><span>
|
||||
</span><a name="line-395"></a><span class="hs-comment">-- | 'nameSnakeCase' Lens</span><span>
|
||||
</span><a name="line-396"></a><span class="hs-identifier">nameSnakeCaseL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-397"></a><a name="nameSnakeCaseL"><a href="SwaggerPetstore.Lens.html#nameSnakeCaseL"><span class="hs-identifier">nameSnakeCaseL</span></a></a><span> </span><a name="local-6989586621679104218"><a href="#local-6989586621679104218"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104223"><a href="#local-6989586621679104223"><span class="hs-identifier">nameSnakeCase</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104223"><span class="hs-identifier hs-var">nameSnakeCase</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104218"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104220"><span class="hs-identifier hs-var">nameSnakeCase</span></a><span>
|
||||
</span><a name="line-398"></a><span class="hs-pragma">{-# INLINE nameSnakeCaseL #-}</span><span>
|
||||
</span><a name="line-399"></a><span>
|
||||
</span><a name="line-400"></a><span class="hs-comment">-- | 'nameProperty' Lens</span><span>
|
||||
</span><a name="line-401"></a><span class="hs-identifier">namePropertyL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-402"></a><a name="namePropertyL"><a href="SwaggerPetstore.Lens.html#namePropertyL"><span class="hs-identifier">namePropertyL</span></a></a><span> </span><a name="local-6989586621679104224"><a href="#local-6989586621679104224"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104229"><a href="#local-6989586621679104229"><span class="hs-identifier">nameProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104229"><span class="hs-identifier hs-var">nameProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104224"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104227"><span class="hs-identifier hs-var">nameProperty</span></a><span>
|
||||
</span><a name="line-403"></a><span class="hs-pragma">{-# INLINE namePropertyL #-}</span><span>
|
||||
</span><a name="line-404"></a><span>
|
||||
</span><a name="line-405"></a><span class="hs-comment">-- | 'name123Number' Lens</span><span>
|
||||
</span><a name="line-406"></a><span class="hs-identifier">name123NumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-407"></a><a name="name123NumberL"><a href="SwaggerPetstore.Lens.html#name123NumberL"><span class="hs-identifier">name123NumberL</span></a></a><span> </span><a name="local-6989586621679104230"><a href="#local-6989586621679104230"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104235"><a href="#local-6989586621679104235"><span class="hs-identifier">name123Number</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104235"><span class="hs-identifier hs-var">name123Number</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104230"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104234"><span class="hs-identifier hs-var">name123Number</span></a><span>
|
||||
</span><a name="line-408"></a><span class="hs-pragma">{-# INLINE name123NumberL #-}</span><span>
|
||||
</span><a name="line-409"></a><span>
|
||||
</span><a name="line-410"></a><span>
|
||||
</span><a name="line-411"></a><span>
|
||||
</span><a name="line-412"></a><span class="hs-comment">-- * NumberOnly</span><span>
|
||||
</span><a name="line-413"></a><span>
|
||||
</span><a name="line-414"></a><span class="hs-comment">-- | 'numberOnlyJustNumber' Lens</span><span>
|
||||
</span><a name="line-415"></a><span class="hs-identifier">numberOnlyJustNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-type">NumberOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-416"></a><a name="numberOnlyJustNumberL"><a href="SwaggerPetstore.Lens.html#numberOnlyJustNumberL"><span class="hs-identifier">numberOnlyJustNumberL</span></a></a><span> </span><a name="local-6989586621679104236"><a href="#local-6989586621679104236"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-var">NumberOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104238"><a href="#local-6989586621679104238"><span class="hs-identifier">numberOnlyJustNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-var">NumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104238"><span class="hs-identifier hs-var">numberOnlyJustNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104236"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104237"><span class="hs-identifier hs-var">numberOnlyJustNumber</span></a><span>
|
||||
</span><a name="line-417"></a><span class="hs-pragma">{-# INLINE numberOnlyJustNumberL #-}</span><span>
|
||||
</span><a name="line-418"></a><span>
|
||||
</span><a name="line-419"></a><span>
|
||||
</span><a name="line-420"></a><span>
|
||||
</span><a name="line-421"></a><span class="hs-comment">-- * Order</span><span>
|
||||
</span><a name="line-422"></a><span>
|
||||
</span><a name="line-423"></a><span class="hs-comment">-- | 'orderId' Lens</span><span>
|
||||
</span><a name="line-424"></a><span class="hs-identifier">orderIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-425"></a><a name="orderIdL"><a href="SwaggerPetstore.Lens.html#orderIdL"><span class="hs-identifier">orderIdL</span></a></a><span> </span><a name="local-6989586621679104239"><a href="#local-6989586621679104239"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104246"><a href="#local-6989586621679104246"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104246"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104239"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104240"><span class="hs-identifier hs-var">orderId</span></a><span>
|
||||
</span><a name="line-426"></a><span class="hs-pragma">{-# INLINE orderIdL #-}</span><span>
|
||||
</span><a name="line-427"></a><span>
|
||||
</span><a name="line-428"></a><span class="hs-comment">-- | 'orderPetId' Lens</span><span>
|
||||
</span><a name="line-429"></a><span class="hs-identifier">orderPetIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-430"></a><a name="orderPetIdL"><a href="SwaggerPetstore.Lens.html#orderPetIdL"><span class="hs-identifier">orderPetIdL</span></a></a><span> </span><a name="local-6989586621679104247"><a href="#local-6989586621679104247"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104254"><a href="#local-6989586621679104254"><span class="hs-identifier">orderPetId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104254"><span class="hs-identifier hs-var">orderPetId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104247"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104249"><span class="hs-identifier hs-var">orderPetId</span></a><span>
|
||||
</span><a name="line-431"></a><span class="hs-pragma">{-# INLINE orderPetIdL #-}</span><span>
|
||||
</span><a name="line-432"></a><span>
|
||||
</span><a name="line-433"></a><span class="hs-comment">-- | 'orderQuantity' Lens</span><span>
|
||||
</span><a name="line-434"></a><span class="hs-identifier">orderQuantityL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-435"></a><a name="orderQuantityL"><a href="SwaggerPetstore.Lens.html#orderQuantityL"><span class="hs-identifier">orderQuantityL</span></a></a><span> </span><a name="local-6989586621679104255"><a href="#local-6989586621679104255"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104262"><a href="#local-6989586621679104262"><span class="hs-identifier">orderQuantity</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104262"><span class="hs-identifier hs-var">orderQuantity</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104255"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104258"><span class="hs-identifier hs-var">orderQuantity</span></a><span>
|
||||
</span><a name="line-436"></a><span class="hs-pragma">{-# INLINE orderQuantityL #-}</span><span>
|
||||
</span><a name="line-437"></a><span>
|
||||
</span><a name="line-438"></a><span class="hs-comment">-- | 'orderShipDate' Lens</span><span>
|
||||
</span><a name="line-439"></a><span class="hs-identifier">orderShipDateL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-440"></a><a name="orderShipDateL"><a href="SwaggerPetstore.Lens.html#orderShipDateL"><span class="hs-identifier">orderShipDateL</span></a></a><span> </span><a name="local-6989586621679104263"><a href="#local-6989586621679104263"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104270"><a href="#local-6989586621679104270"><span class="hs-identifier">orderShipDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104270"><span class="hs-identifier hs-var">orderShipDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104263"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104267"><span class="hs-identifier hs-var">orderShipDate</span></a><span>
|
||||
</span><a name="line-441"></a><span class="hs-pragma">{-# INLINE orderShipDateL #-}</span><span>
|
||||
</span><a name="line-442"></a><span>
|
||||
</span><a name="line-443"></a><span class="hs-comment">-- | 'orderStatus' Lens</span><span>
|
||||
</span><a name="line-444"></a><span class="hs-identifier">orderStatusL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-445"></a><a name="orderStatusL"><a href="SwaggerPetstore.Lens.html#orderStatusL"><span class="hs-identifier">orderStatusL</span></a></a><span> </span><a name="local-6989586621679104271"><a href="#local-6989586621679104271"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104278"><a href="#local-6989586621679104278"><span class="hs-identifier">orderStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104278"><span class="hs-identifier hs-var">orderStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104271"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104276"><span class="hs-identifier hs-var">orderStatus</span></a><span>
|
||||
</span><a name="line-446"></a><span class="hs-pragma">{-# INLINE orderStatusL #-}</span><span>
|
||||
</span><a name="line-447"></a><span>
|
||||
</span><a name="line-448"></a><span class="hs-comment">-- | 'orderComplete' Lens</span><span>
|
||||
</span><a name="line-449"></a><span class="hs-identifier">orderCompleteL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-450"></a><a name="orderCompleteL"><a href="SwaggerPetstore.Lens.html#orderCompleteL"><span class="hs-identifier">orderCompleteL</span></a></a><span> </span><a name="local-6989586621679104279"><a href="#local-6989586621679104279"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104286"><a href="#local-6989586621679104286"><span class="hs-identifier">orderComplete</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104286"><span class="hs-identifier hs-var">orderComplete</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104279"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104285"><span class="hs-identifier hs-var">orderComplete</span></a><span>
|
||||
</span><a name="line-451"></a><span class="hs-pragma">{-# INLINE orderCompleteL #-}</span><span>
|
||||
</span><a name="line-452"></a><span>
|
||||
</span><a name="line-453"></a><span>
|
||||
</span><a name="line-454"></a><span>
|
||||
</span><a name="line-455"></a><span class="hs-comment">-- * OuterBoolean</span><span>
|
||||
</span><a name="line-456"></a><span>
|
||||
</span><a name="line-457"></a><span>
|
||||
</span><a name="line-458"></a><span>
|
||||
</span><a name="line-459"></a><span class="hs-comment">-- * OuterComposite</span><span>
|
||||
</span><a name="line-460"></a><span>
|
||||
</span><a name="line-461"></a><span class="hs-comment">-- | 'outerCompositeMyNumber' Lens</span><span>
|
||||
</span><a name="line-462"></a><span class="hs-identifier">outerCompositeMyNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterNumber"><span class="hs-identifier hs-type">OuterNumber</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-463"></a><a name="outerCompositeMyNumberL"><a href="SwaggerPetstore.Lens.html#outerCompositeMyNumberL"><span class="hs-identifier">outerCompositeMyNumberL</span></a></a><span> </span><a name="local-6989586621679104287"><a href="#local-6989586621679104287"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104291"><a href="#local-6989586621679104291"><span class="hs-identifier">outerCompositeMyNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104291"><span class="hs-identifier hs-var">outerCompositeMyNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104287"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104288"><span class="hs-identifier hs-var">outerCompositeMyNumber</span></a><span>
|
||||
</span><a name="line-464"></a><span class="hs-pragma">{-# INLINE outerCompositeMyNumberL #-}</span><span>
|
||||
</span><a name="line-465"></a><span>
|
||||
</span><a name="line-466"></a><span class="hs-comment">-- | 'outerCompositeMyString' Lens</span><span>
|
||||
</span><a name="line-467"></a><span class="hs-identifier">outerCompositeMyStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterString"><span class="hs-identifier hs-type">OuterString</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-468"></a><a name="outerCompositeMyStringL"><a href="SwaggerPetstore.Lens.html#outerCompositeMyStringL"><span class="hs-identifier">outerCompositeMyStringL</span></a></a><span> </span><a name="local-6989586621679104292"><a href="#local-6989586621679104292"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104296"><a href="#local-6989586621679104296"><span class="hs-identifier">outerCompositeMyString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104296"><span class="hs-identifier hs-var">outerCompositeMyString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104292"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104294"><span class="hs-identifier hs-var">outerCompositeMyString</span></a><span>
|
||||
</span><a name="line-469"></a><span class="hs-pragma">{-# INLINE outerCompositeMyStringL #-}</span><span>
|
||||
</span><a name="line-470"></a><span>
|
||||
</span><a name="line-471"></a><span class="hs-comment">-- | 'outerCompositeMyBoolean' Lens</span><span>
|
||||
</span><a name="line-472"></a><span class="hs-identifier">outerCompositeMyBooleanL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterBoolean"><span class="hs-identifier hs-type">OuterBoolean</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-473"></a><a name="outerCompositeMyBooleanL"><a href="SwaggerPetstore.Lens.html#outerCompositeMyBooleanL"><span class="hs-identifier">outerCompositeMyBooleanL</span></a></a><span> </span><a name="local-6989586621679104297"><a href="#local-6989586621679104297"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104301"><a href="#local-6989586621679104301"><span class="hs-identifier">outerCompositeMyBoolean</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104301"><span class="hs-identifier hs-var">outerCompositeMyBoolean</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104297"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104300"><span class="hs-identifier hs-var">outerCompositeMyBoolean</span></a><span>
|
||||
</span><a name="line-474"></a><span class="hs-pragma">{-# INLINE outerCompositeMyBooleanL #-}</span><span>
|
||||
</span><a name="line-475"></a><span>
|
||||
</span><a name="line-476"></a><span>
|
||||
</span><a name="line-477"></a><span>
|
||||
</span><a name="line-478"></a><span class="hs-comment">-- * OuterEnum</span><span>
|
||||
</span><a name="line-479"></a><span>
|
||||
</span><a name="line-480"></a><span>
|
||||
</span><a name="line-481"></a><span>
|
||||
</span><a name="line-482"></a><span class="hs-comment">-- * OuterNumber</span><span>
|
||||
</span><a name="line-483"></a><span>
|
||||
</span><a name="line-484"></a><span>
|
||||
</span><a name="line-485"></a><span>
|
||||
</span><a name="line-486"></a><span class="hs-comment">-- * OuterString</span><span>
|
||||
</span><a name="line-487"></a><span>
|
||||
</span><a name="line-488"></a><span>
|
||||
</span><a name="line-489"></a><span>
|
||||
</span><a name="line-490"></a><span class="hs-comment">-- * Pet</span><span>
|
||||
</span><a name="line-491"></a><span>
|
||||
</span><a name="line-492"></a><span class="hs-comment">-- | 'petId' Lens</span><span>
|
||||
</span><a name="line-493"></a><span class="hs-identifier">petIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-494"></a><a name="petIdL"><a href="SwaggerPetstore.Lens.html#petIdL"><span class="hs-identifier">petIdL</span></a></a><span> </span><a name="local-6989586621679104302"><a href="#local-6989586621679104302"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104309"><a href="#local-6989586621679104309"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104309"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104302"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104303"><span class="hs-identifier hs-var">petId</span></a><span>
|
||||
</span><a name="line-495"></a><span class="hs-pragma">{-# INLINE petIdL #-}</span><span>
|
||||
</span><a name="line-496"></a><span>
|
||||
</span><a name="line-497"></a><span class="hs-comment">-- | 'petCategory' Lens</span><span>
|
||||
</span><a name="line-498"></a><span class="hs-identifier">petCategoryL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-499"></a><a name="petCategoryL"><a href="SwaggerPetstore.Lens.html#petCategoryL"><span class="hs-identifier">petCategoryL</span></a></a><span> </span><a name="local-6989586621679104310"><a href="#local-6989586621679104310"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104317"><a href="#local-6989586621679104317"><span class="hs-identifier">petCategory</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104317"><span class="hs-identifier hs-var">petCategory</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104310"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104312"><span class="hs-identifier hs-var">petCategory</span></a><span>
|
||||
</span><a name="line-500"></a><span class="hs-pragma">{-# INLINE petCategoryL #-}</span><span>
|
||||
</span><a name="line-501"></a><span>
|
||||
</span><a name="line-502"></a><span class="hs-comment">-- | 'petName' Lens</span><span>
|
||||
</span><a name="line-503"></a><span class="hs-identifier">petNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-504"></a><a name="petNameL"><a href="SwaggerPetstore.Lens.html#petNameL"><span class="hs-identifier">petNameL</span></a></a><span> </span><a name="local-6989586621679104318"><a href="#local-6989586621679104318"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104325"><a href="#local-6989586621679104325"><span class="hs-identifier">petName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104325"><span class="hs-identifier hs-var">petName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104318"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104321"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-505"></a><span class="hs-pragma">{-# INLINE petNameL #-}</span><span>
|
||||
</span><a name="line-506"></a><span>
|
||||
</span><a name="line-507"></a><span class="hs-comment">-- | 'petPhotoUrls' Lens</span><span>
|
||||
</span><a name="line-508"></a><span class="hs-identifier">petPhotoUrlsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-509"></a><a name="petPhotoUrlsL"><a href="SwaggerPetstore.Lens.html#petPhotoUrlsL"><span class="hs-identifier">petPhotoUrlsL</span></a></a><span> </span><a name="local-6989586621679104326"><a href="#local-6989586621679104326"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104333"><a href="#local-6989586621679104333"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104333"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104326"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104330"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-510"></a><span class="hs-pragma">{-# INLINE petPhotoUrlsL #-}</span><span>
|
||||
</span><a name="line-511"></a><span>
|
||||
</span><a name="line-512"></a><span class="hs-comment">-- | 'petTags' Lens</span><span>
|
||||
</span><a name="line-513"></a><span class="hs-identifier">petTagsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-514"></a><a name="petTagsL"><a href="SwaggerPetstore.Lens.html#petTagsL"><span class="hs-identifier">petTagsL</span></a></a><span> </span><a name="local-6989586621679104334"><a href="#local-6989586621679104334"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104341"><a href="#local-6989586621679104341"><span class="hs-identifier">petTags</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104341"><span class="hs-identifier hs-var">petTags</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104334"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104339"><span class="hs-identifier hs-var">petTags</span></a><span>
|
||||
</span><a name="line-515"></a><span class="hs-pragma">{-# INLINE petTagsL #-}</span><span>
|
||||
</span><a name="line-516"></a><span>
|
||||
</span><a name="line-517"></a><span class="hs-comment">-- | 'petStatus' Lens</span><span>
|
||||
</span><a name="line-518"></a><span class="hs-identifier">petStatusL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-519"></a><a name="petStatusL"><a href="SwaggerPetstore.Lens.html#petStatusL"><span class="hs-identifier">petStatusL</span></a></a><span> </span><a name="local-6989586621679104342"><a href="#local-6989586621679104342"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104349"><a href="#local-6989586621679104349"><span class="hs-identifier">petStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104349"><span class="hs-identifier hs-var">petStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104342"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104348"><span class="hs-identifier hs-var">petStatus</span></a><span>
|
||||
</span><a name="line-520"></a><span class="hs-pragma">{-# INLINE petStatusL #-}</span><span>
|
||||
</span><a name="line-521"></a><span>
|
||||
</span><a name="line-522"></a><span>
|
||||
</span><a name="line-523"></a><span>
|
||||
</span><a name="line-524"></a><span class="hs-comment">-- * ReadOnlyFirst</span><span>
|
||||
</span><a name="line-525"></a><span>
|
||||
</span><a name="line-526"></a><span class="hs-comment">-- | 'readOnlyFirstBar' Lens</span><span>
|
||||
</span><a name="line-527"></a><span class="hs-identifier">readOnlyFirstBarL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-type">ReadOnlyFirst</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-528"></a><a name="readOnlyFirstBarL"><a href="SwaggerPetstore.Lens.html#readOnlyFirstBarL"><span class="hs-identifier">readOnlyFirstBarL</span></a></a><span> </span><a name="local-6989586621679104350"><a href="#local-6989586621679104350"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104353"><a href="#local-6989586621679104353"><span class="hs-identifier">readOnlyFirstBar</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104353"><span class="hs-identifier hs-var">readOnlyFirstBar</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104350"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104351"><span class="hs-identifier hs-var">readOnlyFirstBar</span></a><span>
|
||||
</span><a name="line-529"></a><span class="hs-pragma">{-# INLINE readOnlyFirstBarL #-}</span><span>
|
||||
</span><a name="line-530"></a><span>
|
||||
</span><a name="line-531"></a><span class="hs-comment">-- | 'readOnlyFirstBaz' Lens</span><span>
|
||||
</span><a name="line-532"></a><span class="hs-identifier">readOnlyFirstBazL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-type">ReadOnlyFirst</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-533"></a><a name="readOnlyFirstBazL"><a href="SwaggerPetstore.Lens.html#readOnlyFirstBazL"><span class="hs-identifier">readOnlyFirstBazL</span></a></a><span> </span><a name="local-6989586621679104354"><a href="#local-6989586621679104354"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104357"><a href="#local-6989586621679104357"><span class="hs-identifier">readOnlyFirstBaz</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104357"><span class="hs-identifier hs-var">readOnlyFirstBaz</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104354"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104356"><span class="hs-identifier hs-var">readOnlyFirstBaz</span></a><span>
|
||||
</span><a name="line-534"></a><span class="hs-pragma">{-# INLINE readOnlyFirstBazL #-}</span><span>
|
||||
</span><a name="line-535"></a><span>
|
||||
</span><a name="line-536"></a><span>
|
||||
</span><a name="line-537"></a><span>
|
||||
</span><a name="line-538"></a><span class="hs-comment">-- * SpecialModelName</span><span>
|
||||
</span><a name="line-539"></a><span>
|
||||
</span><a name="line-540"></a><span class="hs-comment">-- | 'specialModelNameSpecialPropertyName' Lens</span><span>
|
||||
</span><a name="line-541"></a><span class="hs-identifier">specialModelNameSpecialPropertyNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-type">SpecialModelName</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-542"></a><a name="specialModelNameSpecialPropertyNameL"><a href="SwaggerPetstore.Lens.html#specialModelNameSpecialPropertyNameL"><span class="hs-identifier">specialModelNameSpecialPropertyNameL</span></a></a><span> </span><a name="local-6989586621679104358"><a href="#local-6989586621679104358"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-var">SpecialModelName</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104360"><a href="#local-6989586621679104360"><span class="hs-identifier">specialModelNameSpecialPropertyName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-var">SpecialModelName</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104360"><span class="hs-identifier hs-var">specialModelNameSpecialPropertyName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104358"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104359"><span class="hs-identifier hs-var">specialModelNameSpecialPropertyName</span></a><span>
|
||||
</span><a name="line-543"></a><span class="hs-pragma">{-# INLINE specialModelNameSpecialPropertyNameL #-}</span><span>
|
||||
</span><a name="line-544"></a><span>
|
||||
</span><a name="line-545"></a><span>
|
||||
</span><a name="line-546"></a><span>
|
||||
</span><a name="line-547"></a><span class="hs-comment">-- * Tag</span><span>
|
||||
</span><a name="line-548"></a><span>
|
||||
</span><a name="line-549"></a><span class="hs-comment">-- | 'tagId' Lens</span><span>
|
||||
</span><a name="line-550"></a><span class="hs-identifier">tagIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-551"></a><a name="tagIdL"><a href="SwaggerPetstore.Lens.html#tagIdL"><span class="hs-identifier">tagIdL</span></a></a><span> </span><a name="local-6989586621679104361"><a href="#local-6989586621679104361"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104364"><a href="#local-6989586621679104364"><span class="hs-identifier">tagId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104364"><span class="hs-identifier hs-var">tagId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104361"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104362"><span class="hs-identifier hs-var">tagId</span></a><span>
|
||||
</span><a name="line-552"></a><span class="hs-pragma">{-# INLINE tagIdL #-}</span><span>
|
||||
</span><a name="line-553"></a><span>
|
||||
</span><a name="line-554"></a><span class="hs-comment">-- | 'tagName' Lens</span><span>
|
||||
</span><a name="line-555"></a><span class="hs-identifier">tagNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-556"></a><a name="tagNameL"><a href="SwaggerPetstore.Lens.html#tagNameL"><span class="hs-identifier">tagNameL</span></a></a><span> </span><a name="local-6989586621679104365"><a href="#local-6989586621679104365"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104368"><a href="#local-6989586621679104368"><span class="hs-identifier">tagName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104368"><span class="hs-identifier hs-var">tagName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104365"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104367"><span class="hs-identifier hs-var">tagName</span></a><span>
|
||||
</span><a name="line-557"></a><span class="hs-pragma">{-# INLINE tagNameL #-}</span><span>
|
||||
</span><a name="line-558"></a><span>
|
||||
</span><a name="line-559"></a><span>
|
||||
</span><a name="line-560"></a><span>
|
||||
</span><a name="line-561"></a><span class="hs-comment">-- * User</span><span>
|
||||
</span><a name="line-562"></a><span>
|
||||
</span><a name="line-563"></a><span class="hs-comment">-- | 'userId' Lens</span><span>
|
||||
</span><a name="line-564"></a><span class="hs-identifier">userIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-565"></a><a name="userIdL"><a href="SwaggerPetstore.Lens.html#userIdL"><span class="hs-identifier">userIdL</span></a></a><span> </span><a name="local-6989586621679104369"><a href="#local-6989586621679104369"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104378"><a href="#local-6989586621679104378"><span class="hs-identifier">userId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104378"><span class="hs-identifier hs-var">userId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104369"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104370"><span class="hs-identifier hs-var">userId</span></a><span>
|
||||
</span><a name="line-566"></a><span class="hs-pragma">{-# INLINE userIdL #-}</span><span>
|
||||
</span><a name="line-567"></a><span>
|
||||
</span><a name="line-568"></a><span class="hs-comment">-- | 'userUsername' Lens</span><span>
|
||||
</span><a name="line-569"></a><span class="hs-identifier">userUsernameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-570"></a><a name="userUsernameL"><a href="SwaggerPetstore.Lens.html#userUsernameL"><span class="hs-identifier">userUsernameL</span></a></a><span> </span><a name="local-6989586621679104379"><a href="#local-6989586621679104379"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104388"><a href="#local-6989586621679104388"><span class="hs-identifier">userUsername</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104388"><span class="hs-identifier hs-var">userUsername</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104379"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104381"><span class="hs-identifier hs-var">userUsername</span></a><span>
|
||||
</span><a name="line-571"></a><span class="hs-pragma">{-# INLINE userUsernameL #-}</span><span>
|
||||
</span><a name="line-572"></a><span>
|
||||
</span><a name="line-573"></a><span class="hs-comment">-- | 'userFirstName' Lens</span><span>
|
||||
</span><a name="line-574"></a><span class="hs-identifier">userFirstNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-575"></a><a name="userFirstNameL"><a href="SwaggerPetstore.Lens.html#userFirstNameL"><span class="hs-identifier">userFirstNameL</span></a></a><span> </span><a name="local-6989586621679104389"><a href="#local-6989586621679104389"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104398"><a href="#local-6989586621679104398"><span class="hs-identifier">userFirstName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104398"><span class="hs-identifier hs-var">userFirstName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104389"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104392"><span class="hs-identifier hs-var">userFirstName</span></a><span>
|
||||
</span><a name="line-576"></a><span class="hs-pragma">{-# INLINE userFirstNameL #-}</span><span>
|
||||
</span><a name="line-577"></a><span>
|
||||
</span><a name="line-578"></a><span class="hs-comment">-- | 'userLastName' Lens</span><span>
|
||||
</span><a name="line-579"></a><span class="hs-identifier">userLastNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-580"></a><a name="userLastNameL"><a href="SwaggerPetstore.Lens.html#userLastNameL"><span class="hs-identifier">userLastNameL</span></a></a><span> </span><a name="local-6989586621679104399"><a href="#local-6989586621679104399"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104408"><a href="#local-6989586621679104408"><span class="hs-identifier">userLastName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104408"><span class="hs-identifier hs-var">userLastName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104399"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104403"><span class="hs-identifier hs-var">userLastName</span></a><span>
|
||||
</span><a name="line-581"></a><span class="hs-pragma">{-# INLINE userLastNameL #-}</span><span>
|
||||
</span><a name="line-582"></a><span>
|
||||
</span><a name="line-583"></a><span class="hs-comment">-- | 'userEmail' Lens</span><span>
|
||||
</span><a name="line-584"></a><span class="hs-identifier">userEmailL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-585"></a><a name="userEmailL"><a href="SwaggerPetstore.Lens.html#userEmailL"><span class="hs-identifier">userEmailL</span></a></a><span> </span><a name="local-6989586621679104409"><a href="#local-6989586621679104409"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104418"><a href="#local-6989586621679104418"><span class="hs-identifier">userEmail</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104418"><span class="hs-identifier hs-var">userEmail</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104409"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104414"><span class="hs-identifier hs-var">userEmail</span></a><span>
|
||||
</span><a name="line-586"></a><span class="hs-pragma">{-# INLINE userEmailL #-}</span><span>
|
||||
</span><a name="line-587"></a><span>
|
||||
</span><a name="line-588"></a><span class="hs-comment">-- | 'userPassword' Lens</span><span>
|
||||
</span><a name="line-589"></a><span class="hs-identifier">userPasswordL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-590"></a><a name="userPasswordL"><a href="SwaggerPetstore.Lens.html#userPasswordL"><span class="hs-identifier">userPasswordL</span></a></a><span> </span><a name="local-6989586621679104419"><a href="#local-6989586621679104419"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104428"><a href="#local-6989586621679104428"><span class="hs-identifier">userPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104428"><span class="hs-identifier hs-var">userPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104419"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104425"><span class="hs-identifier hs-var">userPassword</span></a><span>
|
||||
</span><a name="line-591"></a><span class="hs-pragma">{-# INLINE userPasswordL #-}</span><span>
|
||||
</span><a name="line-592"></a><span>
|
||||
</span><a name="line-593"></a><span class="hs-comment">-- | 'userPhone' Lens</span><span>
|
||||
</span><a name="line-594"></a><span class="hs-identifier">userPhoneL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-595"></a><a name="userPhoneL"><a href="SwaggerPetstore.Lens.html#userPhoneL"><span class="hs-identifier">userPhoneL</span></a></a><span> </span><a name="local-6989586621679104429"><a href="#local-6989586621679104429"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104438"><a href="#local-6989586621679104438"><span class="hs-identifier">userPhone</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104438"><span class="hs-identifier hs-var">userPhone</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104429"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104436"><span class="hs-identifier hs-var">userPhone</span></a><span>
|
||||
</span><a name="line-596"></a><span class="hs-pragma">{-# INLINE userPhoneL #-}</span><span>
|
||||
</span><a name="line-597"></a><span>
|
||||
</span><a name="line-598"></a><span class="hs-comment">-- | 'userUserStatus' Lens</span><span>
|
||||
</span><a name="line-599"></a><span class="hs-identifier">userUserStatusL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-600"></a><a name="userUserStatusL"><a href="SwaggerPetstore.Lens.html#userUserStatusL"><span class="hs-identifier">userUserStatusL</span></a></a><span> </span><a name="local-6989586621679104439"><a href="#local-6989586621679104439"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104448"><a href="#local-6989586621679104448"><span class="hs-identifier">userUserStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104448"><span class="hs-identifier hs-var">userUserStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104439"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104447"><span class="hs-identifier hs-var">userUserStatus</span></a><span>
|
||||
</span><a name="line-601"></a><span class="hs-pragma">{-# INLINE userUserStatusL #-}</span><span>
|
||||
</span><a name="line-602"></a><span>
|
||||
</span><a name="line-603"></a><span>
|
||||
</span><a name="line-604"></a><span>
|
||||
</span><a name="line-605"></a><span class="hs-comment">-- * Cat</span><span>
|
||||
</span><a name="line-606"></a><span>
|
||||
</span><a name="line-607"></a><span class="hs-comment">-- | 'catClassName' Lens</span><span>
|
||||
</span><a name="line-608"></a><span class="hs-identifier">catClassNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-type">Cat</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-609"></a><a name="catClassNameL"><a href="SwaggerPetstore.Lens.html#catClassNameL"><span class="hs-identifier">catClassNameL</span></a></a><span> </span><a name="local-6989586621679104449"><a href="#local-6989586621679104449"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104453"><a href="#local-6989586621679104453"><span class="hs-identifier">catClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104453"><span class="hs-identifier hs-var">catClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104449"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104450"><span class="hs-identifier hs-var">catClassName</span></a><span>
|
||||
</span><a name="line-610"></a><span class="hs-pragma">{-# INLINE catClassNameL #-}</span><span>
|
||||
</span><a name="line-611"></a><span>
|
||||
</span><a name="line-612"></a><span class="hs-comment">-- | 'catColor' Lens</span><span>
|
||||
</span><a name="line-613"></a><span class="hs-identifier">catColorL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-type">Cat</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-614"></a><a name="catColorL"><a href="SwaggerPetstore.Lens.html#catColorL"><span class="hs-identifier">catColorL</span></a></a><span> </span><a name="local-6989586621679104454"><a href="#local-6989586621679104454"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104458"><a href="#local-6989586621679104458"><span class="hs-identifier">catColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104458"><span class="hs-identifier hs-var">catColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104454"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104456"><span class="hs-identifier hs-var">catColor</span></a><span>
|
||||
</span><a name="line-615"></a><span class="hs-pragma">{-# INLINE catColorL #-}</span><span>
|
||||
</span><a name="line-616"></a><span>
|
||||
</span><a name="line-617"></a><span class="hs-comment">-- | 'catDeclawed' Lens</span><span>
|
||||
</span><a name="line-618"></a><span class="hs-identifier">catDeclawedL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-type">Cat</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-619"></a><a name="catDeclawedL"><a href="SwaggerPetstore.Lens.html#catDeclawedL"><span class="hs-identifier">catDeclawedL</span></a></a><span> </span><a name="local-6989586621679104459"><a href="#local-6989586621679104459"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104463"><a href="#local-6989586621679104463"><span class="hs-identifier">catDeclawed</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104463"><span class="hs-identifier hs-var">catDeclawed</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104459"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104462"><span class="hs-identifier hs-var">catDeclawed</span></a><span>
|
||||
</span><a name="line-620"></a><span class="hs-pragma">{-# INLINE catDeclawedL #-}</span><span>
|
||||
</span><a name="line-621"></a><span>
|
||||
</span><a name="line-622"></a><span>
|
||||
</span><a name="line-623"></a><span>
|
||||
</span><a name="line-624"></a><span class="hs-comment">-- * Dog</span><span>
|
||||
</span><a name="line-625"></a><span>
|
||||
</span><a name="line-626"></a><span class="hs-comment">-- | 'dogClassName' Lens</span><span>
|
||||
</span><a name="line-627"></a><span class="hs-identifier">dogClassNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-type">Dog</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-628"></a><a name="dogClassNameL"><a href="SwaggerPetstore.Lens.html#dogClassNameL"><span class="hs-identifier">dogClassNameL</span></a></a><span> </span><a name="local-6989586621679104464"><a href="#local-6989586621679104464"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104468"><a href="#local-6989586621679104468"><span class="hs-identifier">dogClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104468"><span class="hs-identifier hs-var">dogClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104464"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104465"><span class="hs-identifier hs-var">dogClassName</span></a><span>
|
||||
</span><a name="line-629"></a><span class="hs-pragma">{-# INLINE dogClassNameL #-}</span><span>
|
||||
</span><a name="line-630"></a><span>
|
||||
</span><a name="line-631"></a><span class="hs-comment">-- | 'dogColor' Lens</span><span>
|
||||
</span><a name="line-632"></a><span class="hs-identifier">dogColorL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-type">Dog</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-633"></a><a name="dogColorL"><a href="SwaggerPetstore.Lens.html#dogColorL"><span class="hs-identifier">dogColorL</span></a></a><span> </span><a name="local-6989586621679104469"><a href="#local-6989586621679104469"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104473"><a href="#local-6989586621679104473"><span class="hs-identifier">dogColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104473"><span class="hs-identifier hs-var">dogColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104469"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104471"><span class="hs-identifier hs-var">dogColor</span></a><span>
|
||||
</span><a name="line-634"></a><span class="hs-pragma">{-# INLINE dogColorL #-}</span><span>
|
||||
</span><a name="line-635"></a><span>
|
||||
</span><a name="line-636"></a><span class="hs-comment">-- | 'dogBreed' Lens</span><span>
|
||||
</span><a name="line-637"></a><span class="hs-identifier">dogBreedL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-type">Dog</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-638"></a><a name="dogBreedL"><a href="SwaggerPetstore.Lens.html#dogBreedL"><span class="hs-identifier">dogBreedL</span></a></a><span> </span><a name="local-6989586621679104474"><a href="#local-6989586621679104474"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679104478"><a href="#local-6989586621679104478"><span class="hs-identifier">dogBreed</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679104478"><span class="hs-identifier hs-var">dogBreed</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679104474"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679104477"><span class="hs-identifier hs-var">dogBreed</span></a><span>
|
||||
</span><a name="line-639"></a><span class="hs-pragma">{-# INLINE dogBreedL #-}</span><span>
|
||||
</span><a name="line-640"></a><span>
|
||||
</span><a name="line-641"></a><span>
|
||||
</span><a name="line-642"></a></pre></body></html>
|
||||
@ -20,26 +20,26 @@ Katip Logging functions
|
||||
</span><a name="line-20"></a><span>
|
||||
</span><a name="line-21"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Logging</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-22"></a><span>
|
||||
</span><a name="line-23"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC</span><span class="hs-operator">.</span><span class="hs-identifier">Exts</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">IsString</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-25"></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Exception</span><span class="hs-operator">.</span><span class="hs-identifier">Safe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">E</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">IO</span><span class="hs-operator">.</span><span class="hs-identifier">Class</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">Trans</span><span class="hs-operator">.</span><span class="hs-identifier">Reader</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Lens</span><span class="hs-operator">.</span><span class="hs-identifier">Micro</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">L</span><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">System</span><span class="hs-operator">.</span><span class="hs-identifier">IO</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">IO</span><span>
|
||||
</span><a name="line-23"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Exception</span><span class="hs-operator">.</span><span class="hs-identifier">Safe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">E</span><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">IO</span><span class="hs-operator">.</span><span class="hs-identifier">Class</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">Trans</span><span class="hs-operator">.</span><span class="hs-identifier">Reader</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Lens</span><span class="hs-operator">.</span><span class="hs-identifier">Micro</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">L</span><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">System</span><span class="hs-operator">.</span><span class="hs-identifier">IO</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">IO</span><span>
|
||||
</span><a name="line-29"></a><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC</span><span class="hs-operator">.</span><span class="hs-identifier">Exts</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">IsString</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-32"></a><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Katip</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">LG</span><span>
|
||||
</span><a name="line-34"></a><span>
|
||||
</span><a name="line-35"></a><span class="hs-comment">-- * Type Aliases (for compatability)</span><span>
|
||||
</span><a name="line-36"></a><span>
|
||||
</span><a name="line-37"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">type</span><span> </span><a name="LogExecWithContext"><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier">LogExecWithContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679101166"><a href="#local-6989586621679101166"><span class="hs-identifier">m</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679101166"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><a name="line-39"></a><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679101166"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">type</span><span> </span><a name="LogExecWithContext"><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier">LogExecWithContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679076551"><a href="#local-6989586621679076551"><span class="hs-identifier">m</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679076551"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><a name="line-39"></a><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679076551"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-40"></a><span>
|
||||
</span><a name="line-41"></a><span class="hs-comment">-- | A Katip logging block</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">type</span><span> </span><a name="LogExec"><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier">LogExec</span></a></a><span> </span><a name="local-6989586621679101164"><a href="#local-6989586621679101164"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679101165"><a href="#local-6989586621679101165"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">KatipT</span><span> </span><a href="#local-6989586621679101164"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679101165"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679101164"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679101165"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">type</span><span> </span><a name="LogExec"><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier">LogExec</span></a></a><span> </span><a name="local-6989586621679076549"><a href="#local-6989586621679076549"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679076550"><a href="#local-6989586621679076550"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">KatipT</span><span> </span><a href="#local-6989586621679076549"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679076550"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679076549"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679076550"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-43"></a><span>
|
||||
</span><a name="line-44"></a><span class="hs-comment">-- | A Katip Log environment</span><span>
|
||||
</span><a name="line-45"></a><span class="hs-keyword">type</span><span> </span><a name="LogContext"><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier">LogContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LogEnv</span><span>
|
||||
@ -65,9 +65,9 @@ Katip Logging functions
|
||||
</span><a name="line-65"></a><span>
|
||||
</span><a name="line-66"></a><span class="hs-comment">-- | A Katip Log environment which targets stdout</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-identifier">stdoutLoggingContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
|
||||
</span><a name="line-68"></a><a name="stdoutLoggingContext"><a href="SwaggerPetstore.Logging.html#stdoutLoggingContext"><span class="hs-identifier">stdoutLoggingContext</span></a></a><span> </span><a name="local-6989586621679101574"><a href="#local-6989586621679101574"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-69"></a><span> </span><a name="local-6989586621679101710"><a href="#local-6989586621679101710"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">stdout</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">InfoS</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">V2</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">registerScribe</span><span> </span><span class="hs-string">"stdout"</span><span> </span><a href="#local-6989586621679101710"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultScribeSettings</span><span> </span><a href="#local-6989586621679101574"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-68"></a><a name="stdoutLoggingContext"><a href="SwaggerPetstore.Logging.html#stdoutLoggingContext"><span class="hs-identifier">stdoutLoggingContext</span></a></a><span> </span><a name="local-6989586621679076959"><a href="#local-6989586621679076959"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-69"></a><span> </span><a name="local-6989586621679077095"><a href="#local-6989586621679077095"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">stdout</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">InfoS</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">V2</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">registerScribe</span><span> </span><span class="hs-string">"stdout"</span><span> </span><a href="#local-6989586621679077095"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultScribeSettings</span><span> </span><a href="#local-6989586621679076959"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span class="hs-comment">-- * stderr logger</span><span>
|
||||
</span><a name="line-73"></a><span>
|
||||
@ -77,34 +77,34 @@ Katip Logging functions
|
||||
</span><a name="line-77"></a><span>
|
||||
</span><a name="line-78"></a><span class="hs-comment">-- | A Katip Log environment which targets stderr</span><span>
|
||||
</span><a name="line-79"></a><span class="hs-identifier">stderrLoggingContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
|
||||
</span><a name="line-80"></a><a name="stderrLoggingContext"><a href="SwaggerPetstore.Logging.html#stderrLoggingContext"><span class="hs-identifier">stderrLoggingContext</span></a></a><span> </span><a name="local-6989586621679101711"><a href="#local-6989586621679101711"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-81"></a><span> </span><a name="local-6989586621679101712"><a href="#local-6989586621679101712"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">stderr</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">InfoS</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">V2</span><span>
|
||||
</span><a name="line-82"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">registerScribe</span><span> </span><span class="hs-string">"stderr"</span><span> </span><a href="#local-6989586621679101712"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultScribeSettings</span><span> </span><a href="#local-6989586621679101711"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-80"></a><a name="stderrLoggingContext"><a href="SwaggerPetstore.Logging.html#stderrLoggingContext"><span class="hs-identifier">stderrLoggingContext</span></a></a><span> </span><a name="local-6989586621679077096"><a href="#local-6989586621679077096"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-81"></a><span> </span><a name="local-6989586621679077097"><a href="#local-6989586621679077097"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">stderr</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">InfoS</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">V2</span><span>
|
||||
</span><a name="line-82"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">registerScribe</span><span> </span><span class="hs-string">"stderr"</span><span> </span><a href="#local-6989586621679077097"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultScribeSettings</span><span> </span><a href="#local-6989586621679077096"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-83"></a><span>
|
||||
</span><a name="line-84"></a><span class="hs-comment">-- * Null logger</span><span>
|
||||
</span><a name="line-85"></a><span>
|
||||
</span><a name="line-86"></a><span class="hs-comment">-- | Disables Katip logging</span><span>
|
||||
</span><a name="line-87"></a><span class="hs-identifier">runNullLogExec</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
|
||||
</span><a name="line-88"></a><a name="runNullLogExec"><a href="SwaggerPetstore.Logging.html#runNullLogExec"><span class="hs-identifier">runNullLogExec</span></a></a><span> </span><a name="local-6989586621679101713"><a href="#local-6989586621679101713"><span class="hs-identifier">le</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">KatipT</span><span> </span><a name="local-6989586621679101714"><a href="#local-6989586621679101714"><span class="hs-identifier">f</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">P</span><span class="hs-operator">.</span><span class="hs-identifier">runReaderT</span><span> </span><a href="#local-6989586621679101714"><span class="hs-identifier hs-var">f</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logEnvScribes</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><a href="#local-6989586621679101713"><span class="hs-identifier hs-var">le</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-88"></a><a name="runNullLogExec"><a href="SwaggerPetstore.Logging.html#runNullLogExec"><span class="hs-identifier">runNullLogExec</span></a></a><span> </span><a name="local-6989586621679077098"><a href="#local-6989586621679077098"><span class="hs-identifier">le</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">KatipT</span><span> </span><a name="local-6989586621679077099"><a href="#local-6989586621679077099"><span class="hs-identifier">f</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">P</span><span class="hs-operator">.</span><span class="hs-identifier">runReaderT</span><span> </span><a href="#local-6989586621679077099"><span class="hs-identifier hs-var">f</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logEnvScribes</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><a href="#local-6989586621679077098"><span class="hs-identifier hs-var">le</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-89"></a><span>
|
||||
</span><a name="line-90"></a><span class="hs-comment">-- * Log Msg</span><span>
|
||||
</span><a name="line-91"></a><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">-- | Log a katip message</span><span>
|
||||
</span><a name="line-93"></a><span class="hs-identifier">_log</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679101573"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Katip</span><span> </span><a href="#local-6989586621679101573"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679101573"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-94"></a><a name="_log"><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier">_log</span></a></a><span> </span><a name="local-6989586621679101715"><a href="#local-6989586621679101715"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679101716"><a href="#local-6989586621679101716"><span class="hs-identifier">level</span></a></a><span> </span><a name="local-6989586621679101717"><a href="#local-6989586621679101717"><span class="hs-identifier">msg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-95"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logMsg</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><a href="#local-6989586621679101715"><span class="hs-identifier hs-var">src</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679101716"><span class="hs-identifier hs-var">level</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logStr</span><span> </span><a href="#local-6989586621679101717"><span class="hs-identifier hs-var">msg</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-93"></a><span class="hs-identifier">_log</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679076958"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Katip</span><span> </span><a href="#local-6989586621679076958"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679076958"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-94"></a><a name="_log"><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier">_log</span></a></a><span> </span><a name="local-6989586621679077100"><a href="#local-6989586621679077100"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679077101"><a href="#local-6989586621679077101"><span class="hs-identifier">level</span></a></a><span> </span><a name="local-6989586621679077102"><a href="#local-6989586621679077102"><span class="hs-identifier">msg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-95"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logMsg</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><a href="#local-6989586621679077100"><span class="hs-identifier hs-var">src</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679077101"><span class="hs-identifier hs-var">level</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logStr</span><span> </span><a href="#local-6989586621679077102"><span class="hs-identifier hs-var">msg</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-96"></a><span>
|
||||
</span><a name="line-97"></a><span class="hs-comment">-- * Log Exceptions</span><span>
|
||||
</span><a name="line-98"></a><span>
|
||||
</span><a name="line-99"></a><span class="hs-comment">-- | re-throws exceptions after logging them</span><span>
|
||||
</span><a name="line-100"></a><span class="hs-identifier">logExceptions</span><span>
|
||||
</span><a name="line-101"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Katip</span><span> </span><a href="#local-6989586621679101167"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679101167"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679101167"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-102"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679101167"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679101168"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679101167"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679101168"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-103"></a><a name="logExceptions"><a href="SwaggerPetstore.Logging.html#logExceptions"><span class="hs-identifier">logExceptions</span></a></a><span> </span><a name="local-6989586621679101718"><a href="#local-6989586621679101718"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-101"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Katip</span><span> </span><a href="#local-6989586621679076552"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679076552"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679076552"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-102"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679076552"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679076553"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679076552"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679076553"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-103"></a><a name="logExceptions"><a href="SwaggerPetstore.Logging.html#logExceptions"><span class="hs-identifier">logExceptions</span></a></a><span> </span><a name="local-6989586621679077103"><a href="#local-6989586621679077103"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-104"></a><span> </span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">handle</span><span>
|
||||
</span><a name="line-105"></a><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679101979"><a href="#local-6989586621679101979"><span class="hs-identifier">e</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">SomeException</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-106"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679101718"><span class="hs-identifier hs-var">src</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ErrorS</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679101979"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-107"></a><span> </span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">throw</span><span> </span><a href="#local-6989586621679101979"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-105"></a><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679077364"><a href="#local-6989586621679077364"><span class="hs-identifier">e</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">SomeException</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-106"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679077103"><span class="hs-identifier hs-var">src</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ErrorS</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679077364"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-107"></a><span> </span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">throw</span><span> </span><a href="#local-6989586621679077364"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-108"></a><span>
|
||||
</span><a name="line-109"></a><span class="hs-comment">-- * Log Level</span><span>
|
||||
</span><a name="line-110"></a><span>
|
||||
|
||||
@ -23,208 +23,172 @@ Module : SwaggerPetstore.MimeTypes
|
||||
</span><a name="line-23"></a><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">MimeTypes</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-25"></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Model.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span></a><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">M</span><span>
|
||||
</span><a name="line-27"></a><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-29"></a><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Arrow</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">left</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Builder</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BB</span><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BC</span><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Builder</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BB</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BC</span><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BCL</span><span>
|
||||
</span><a name="line-35"></a><span>
|
||||
</span><a name="line-36"></a><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Media</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">ME</span><span>
|
||||
</span><a name="line-38"></a><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BCL</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Proxy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Proxy</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-35"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">String</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Media</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">ME</span><span>
|
||||
</span><a name="line-39"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-41"></a><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Proxy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Proxy</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-44"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-45"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">String</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-46"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-47"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Arrow</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">left</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-48"></a><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-50"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-44"></a><span>
|
||||
</span><a name="line-45"></a><span>
|
||||
</span><a name="line-46"></a><span class="hs-comment">-- * Consumes Class</span><span>
|
||||
</span><a name="line-47"></a><span>
|
||||
</span><a name="line-48"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679065059"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Consumes"><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier">Consumes</span></a></a><span> </span><a name="local-6989586621679065058"><a href="#local-6989586621679065058"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679065059"><a href="#local-6989586621679065059"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-49"></a><span>
|
||||
</span><a name="line-50"></a><span class="hs-comment">-- * Produces Class</span><span>
|
||||
</span><a name="line-51"></a><span>
|
||||
</span><a name="line-52"></a><span class="hs-comment">-- * Content Negotiation</span><span>
|
||||
</span><a name="line-52"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679065057"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Produces"><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier">Produces</span></a></a><span> </span><a name="local-6989586621679065056"><a href="#local-6989586621679065056"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679065057"><a href="#local-6989586621679065057"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-53"></a><span>
|
||||
</span><a name="line-54"></a><span class="hs-comment">-- | A type for responses without content-body.</span><span>
|
||||
</span><a name="line-55"></a><span class="hs-keyword">data</span><span> </span><a name="NoContent"><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier">NoContent</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="NoContent"><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier">NoContent</span></a></a><span>
|
||||
</span><a name="line-56"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-57"></a><span>
|
||||
</span><a name="line-58"></a><span class="hs-comment">-- ** Mime Types</span><span>
|
||||
</span><a name="line-59"></a><span>
|
||||
</span><a name="line-60"></a><span class="hs-keyword">data</span><span> </span><a name="MimeJSON"><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier">MimeJSON</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeJSON"><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier">MimeJSON</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-61"></a><span class="hs-keyword">data</span><span> </span><a name="MimeXML"><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier">MimeXML</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeXML"><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier">MimeXML</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-62"></a><span class="hs-keyword">data</span><span> </span><a name="MimePlainText"><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier">MimePlainText</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimePlainText"><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier">MimePlainText</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-63"></a><span class="hs-keyword">data</span><span> </span><a name="MimeFormUrlEncoded"><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier">MimeFormUrlEncoded</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeFormUrlEncoded"><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier">MimeFormUrlEncoded</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-64"></a><span class="hs-keyword">data</span><span> </span><a name="MimeMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier">MimeMultipartFormData</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier">MimeMultipartFormData</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-keyword">data</span><span> </span><a name="MimeOctetStream"><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier">MimeOctetStream</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeOctetStream"><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier">MimeOctetStream</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-66"></a><span class="hs-keyword">data</span><span> </span><a name="MimeNoContent"><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier">MimeNoContent</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeNoContent"><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier">MimeNoContent</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-keyword">data</span><span> </span><a name="MimeAny"><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier">MimeAny</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeAny"><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier">MimeAny</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-54"></a><span class="hs-comment">-- * Default Mime Types</span><span>
|
||||
</span><a name="line-55"></a><span>
|
||||
</span><a name="line-56"></a><span class="hs-keyword">data</span><span> </span><a name="MimeJSON"><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier">MimeJSON</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeJSON"><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier">MimeJSON</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-57"></a><span class="hs-keyword">data</span><span> </span><a name="MimeXML"><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier">MimeXML</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeXML"><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier">MimeXML</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-58"></a><span class="hs-keyword">data</span><span> </span><a name="MimePlainText"><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier">MimePlainText</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimePlainText"><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier">MimePlainText</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-59"></a><span class="hs-keyword">data</span><span> </span><a name="MimeFormUrlEncoded"><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier">MimeFormUrlEncoded</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeFormUrlEncoded"><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier">MimeFormUrlEncoded</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-60"></a><span class="hs-keyword">data</span><span> </span><a name="MimeMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier">MimeMultipartFormData</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier">MimeMultipartFormData</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-61"></a><span class="hs-keyword">data</span><span> </span><a name="MimeOctetStream"><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier">MimeOctetStream</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeOctetStream"><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier">MimeOctetStream</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-62"></a><span class="hs-keyword">data</span><span> </span><a name="MimeNoContent"><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier">MimeNoContent</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeNoContent"><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier">MimeNoContent</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-63"></a><span class="hs-keyword">data</span><span> </span><a name="MimeAny"><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier">MimeAny</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeAny"><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier">MimeAny</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-64"></a><span>
|
||||
</span><a name="line-65"></a><span class="hs-comment">-- | A type for responses without content-body.</span><span>
|
||||
</span><a name="line-66"></a><span class="hs-keyword">data</span><span> </span><a name="NoContent"><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier">NoContent</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="NoContent"><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier">NoContent</span></a></a><span>
|
||||
</span><a name="line-67"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-68"></a><span>
|
||||
</span><a name="line-69"></a><span class="hs-keyword">data</span><span> </span><a name="MimeJsonCharsetutf8"><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier">MimeJsonCharsetutf8</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeJsonCharsetutf8"><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier">MimeJsonCharsetutf8</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-70"></a><span class="hs-keyword">data</span><span> </span><a name="MimeXmlCharsetutf8"><a href="SwaggerPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier">MimeXmlCharsetutf8</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeXmlCharsetutf8"><a href="SwaggerPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier">MimeXmlCharsetutf8</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-69"></a><span>
|
||||
</span><a name="line-70"></a><span class="hs-comment">-- * MimeType Class</span><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span class="hs-comment">-- ** MimeType Class</span><span>
|
||||
</span><a name="line-73"></a><span>
|
||||
</span><a name="line-74"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span> </span><a href="#local-6989586621679096415"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeType"><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier">MimeType</span></a></a><span> </span><a name="local-6989586621679096415"><a href="#local-6989586621679096415"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-75"></a><span> </span><span class="hs-pragma">{-# MINIMAL mimeType | mimeTypes #-}</span><span>
|
||||
</span><a name="line-76"></a><span>
|
||||
</span><a name="line-77"></a><span> </span><span class="hs-identifier">mimeTypes</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679096415"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-78"></a><span> </span><a name="local-8214565720323871289"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><a name="local-6989586621679096564"><a href="#local-6989586621679096564"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-79"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><a href="#local-6989586621679096564"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-80"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679096565"><a href="#local-6989586621679096565"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096565"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-81"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-82"></a><span>
|
||||
</span><a name="line-83"></a><span> </span><span class="hs-identifier">mimeType</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679096415"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-84"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><a name="local-6989586621679096566"><a href="#local-6989586621679096566"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-85"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><a href="#local-6989586621679096566"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-86"></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-87"></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679096567"><a href="#local-6989586621679096567"><span class="hs-identifier">x</span></a></a><span class="hs-glyph">:</span><span class="hs-identifier">_</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096567"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-88"></a><span>
|
||||
</span><a name="line-89"></a><span> </span><span class="hs-identifier">mimeType'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679096415"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-90"></a><span> </span><a name="local-8214565720323871291"><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier">mimeType'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679096415"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-91"></a><span> </span><span class="hs-identifier">mimeTypes'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679096415"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-92"></a><span> </span><a name="local-8214565720323871292"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes%27"><span class="hs-identifier">mimeTypes'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679096415"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-72"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span> </span><a href="#local-6989586621679060623"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeType"><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier">MimeType</span></a></a><span> </span><a name="local-6989586621679060623"><a href="#local-6989586621679060623"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-73"></a><span> </span><span class="hs-pragma">{-# MINIMAL mimeType | mimeTypes #-}</span><span>
|
||||
</span><a name="line-74"></a><span>
|
||||
</span><a name="line-75"></a><span> </span><span class="hs-identifier">mimeTypes</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679060623"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-76"></a><span> </span><a name="local-8214565720323835198"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><a name="local-6989586621679060940"><a href="#local-6989586621679060940"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-77"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><a href="#local-6989586621679060940"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-78"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679060941"><a href="#local-6989586621679060941"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679060941"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-79"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-80"></a><span>
|
||||
</span><a name="line-81"></a><span> </span><span class="hs-identifier">mimeType</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679060623"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-82"></a><span> </span><a name="local-8214565720323835199"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><a name="local-6989586621679060942"><a href="#local-6989586621679060942"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-83"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><a href="#local-6989586621679060942"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-84"></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-85"></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679060943"><a href="#local-6989586621679060943"><span class="hs-identifier">x</span></a></a><span class="hs-glyph">:</span><span class="hs-identifier">_</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679060943"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-86"></a><span>
|
||||
</span><a name="line-87"></a><span> </span><span class="hs-identifier">mimeType'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679060623"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-88"></a><span> </span><a name="local-8214565720323835200"><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier">mimeType'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679060623"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-89"></a><span> </span><span class="hs-identifier">mimeTypes'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679060623"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-90"></a><span> </span><a name="local-8214565720323835201"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes%27"><span class="hs-identifier">mimeTypes'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679060623"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-91"></a><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">-- Default MimeType Instances</span><span>
|
||||
</span><a name="line-93"></a><span>
|
||||
</span><a name="line-94"></a><span class="hs-comment">-- ** MimeType Instances</span><span>
|
||||
</span><a name="line-95"></a><span>
|
||||
</span><a name="line-96"></a><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
|
||||
</span><a name="line-97"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-98"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/json"</span><span>
|
||||
</span><a name="line-99"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
|
||||
</span><a name="line-100"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-101"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/xml"</span><span>
|
||||
</span><a name="line-102"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
|
||||
</span><a name="line-103"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-104"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/x-www-form-urlencoded"</span><span>
|
||||
</span><a name="line-105"></a><span class="hs-comment">-- | @multipart/form-data@</span><span>
|
||||
</span><a name="line-106"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-107"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"multipart/form-data"</span><span>
|
||||
</span><a name="line-108"></a><span class="hs-comment">-- | @text/plain; charset=utf-8@</span><span>
|
||||
</span><a name="line-109"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-110"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"text/plain"</span><span>
|
||||
</span><a name="line-111"></a><span class="hs-comment">-- | @application/octet-stream@</span><span>
|
||||
</span><a name="line-112"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-113"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/octet-stream"</span><span>
|
||||
</span><a name="line-114"></a><span class="hs-comment">-- | @"*/*"@</span><span>
|
||||
</span><a name="line-115"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier hs-type">MimeAny</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-116"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"*/*"</span><span>
|
||||
</span><a name="line-117"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-118"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-94"></a><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
|
||||
</span><a name="line-95"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-96"></a><span> </span><a name="local-8214565720323835199"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/json"</span><span>
|
||||
</span><a name="line-97"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
|
||||
</span><a name="line-98"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-99"></a><span> </span><a name="local-8214565720323835199"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/xml"</span><span>
|
||||
</span><a name="line-100"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
|
||||
</span><a name="line-101"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-102"></a><span> </span><a name="local-8214565720323835199"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/x-www-form-urlencoded"</span><span>
|
||||
</span><a name="line-103"></a><span class="hs-comment">-- | @multipart/form-data@</span><span>
|
||||
</span><a name="line-104"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-105"></a><span> </span><a name="local-8214565720323835199"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"multipart/form-data"</span><span>
|
||||
</span><a name="line-106"></a><span class="hs-comment">-- | @text/plain; charset=utf-8@</span><span>
|
||||
</span><a name="line-107"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-108"></a><span> </span><a name="local-8214565720323835199"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"text/plain"</span><span>
|
||||
</span><a name="line-109"></a><span class="hs-comment">-- | @application/octet-stream@</span><span>
|
||||
</span><a name="line-110"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-111"></a><span> </span><a name="local-8214565720323835199"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/octet-stream"</span><span>
|
||||
</span><a name="line-112"></a><span class="hs-comment">-- | @"*/*"@</span><span>
|
||||
</span><a name="line-113"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier hs-type">MimeAny</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-114"></a><span> </span><a name="local-8214565720323835199"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"*/*"</span><span>
|
||||
</span><a name="line-115"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-116"></a><span> </span><a name="local-8214565720323835199"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-117"></a><span>
|
||||
</span><a name="line-118"></a><span class="hs-comment">-- * MimeRender Class</span><span>
|
||||
</span><a name="line-119"></a><span>
|
||||
</span><a name="line-120"></a><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
|
||||
</span><a name="line-121"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier hs-type">MimeJsonCharsetutf8</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-122"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/json; charset=utf-8"</span><span>
|
||||
</span><a name="line-123"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="#local-6989586621679096574"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier hs-type">MimeJsonCharsetutf8</span></a><span> </span><a href="#local-6989586621679096574"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span>
|
||||
</span><a name="line-124"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="#local-6989586621679096573"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier hs-type">MimeJsonCharsetutf8</span></a><span> </span><a href="#local-6989586621679096573"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">eitherDecode</span><span>
|
||||
</span><a name="line-120"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679060620"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeRender"><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier">MimeRender</span></a></a><span> </span><a name="local-6989586621679060620"><a href="#local-6989586621679060620"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679060621"><a href="#local-6989586621679060621"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-121"></a><span> </span><span class="hs-identifier">mimeRender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679060620"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679060621"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-122"></a><span> </span><span class="hs-identifier">mimeRender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679060620"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679060621"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-123"></a><span> </span><a name="local-8214565720323835196"><a href="SwaggerPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier">mimeRender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679060622"><a href="#local-6989586621679060622"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier hs-var">mimeRender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679060620"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679060622"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-124"></a><span>
|
||||
</span><a name="line-125"></a><span>
|
||||
</span><a name="line-126"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
|
||||
</span><a name="line-127"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier hs-type">MimeXmlCharsetutf8</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-128"></a><span> </span><a name="local-8214565720323871290"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">"application/xml; charset=utf-8"</span><span>
|
||||
</span><a name="line-129"></a><span>
|
||||
</span><a name="line-126"></a><span class="hs-identifier">mimeRenderDefaultMultipartFormData</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679065060"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679065060"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-127"></a><a name="mimeRenderDefaultMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier">mimeRenderDefaultMultipartFormData</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span>
|
||||
</span><a name="line-128"></a><span>
|
||||
</span><a name="line-129"></a><span class="hs-comment">-- Default MimeRender Instances</span><span>
|
||||
</span><a name="line-130"></a><span>
|
||||
</span><a name="line-131"></a><span class="hs-comment">-- ** MimeRender Class</span><span>
|
||||
</span><a name="line-132"></a><span>
|
||||
</span><a name="line-133"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679096412"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeRender"><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier">MimeRender</span></a></a><span> </span><a name="local-6989586621679096412"><a href="#local-6989586621679096412"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679096413"><a href="#local-6989586621679096413"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-134"></a><span> </span><span class="hs-identifier">mimeRender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679096412"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679096413"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-135"></a><span> </span><span class="hs-identifier">mimeRender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679096412"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679096413"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-136"></a><span> </span><a name="local-8214565720323871287"><a href="SwaggerPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier">mimeRender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096414"><a href="#local-6989586621679096414"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier hs-var">mimeRender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679096412"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679096414"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-137"></a><span>
|
||||
</span><a name="line-138"></a><span>
|
||||
</span><a name="line-139"></a><span class="hs-comment">-- ** MimeRender Instances</span><span>
|
||||
</span><a name="line-140"></a><span>
|
||||
</span><a name="line-141"></a><span class="hs-comment">-- | `A.encode`</span><span>
|
||||
</span><a name="line-142"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="#local-6989586621679096572"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679096572"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span>
|
||||
</span><a name="line-143"></a><span class="hs-comment">-- | @WH.urlEncodeAsForm@</span><span>
|
||||
</span><a name="line-144"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToForm</span><span> </span><a href="#local-6989586621679096571"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679096571"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeAsForm</span><span>
|
||||
</span><a name="line-145"></a><span>
|
||||
</span><a name="line-146"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-147"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-148"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-149"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-150"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-151"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-152"></a><span>
|
||||
</span><a name="line-153"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-154"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-155"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-156"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-157"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-158"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-159"></a><span>
|
||||
</span><a name="line-160"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-161"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Model.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">unBinary</span><span>
|
||||
</span><a name="line-162"></a><span>
|
||||
</span><a name="line-163"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Model.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-164"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Bool</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-165"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Char</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-166"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Model.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-167"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Model.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-168"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Double</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-169"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Float</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-170"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-171"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-172"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-173"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-174"></a><span>
|
||||
</span><a name="line-175"></a><span class="hs-identifier">mimeRenderDefaultMultipartFormData</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679096568"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679096568"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-176"></a><a name="mimeRenderDefaultMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier">mimeRenderDefaultMultipartFormData</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span>
|
||||
</span><a name="line-177"></a><span>
|
||||
</span><a name="line-178"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><a name="line-179"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871286"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span>
|
||||
</span><a name="line-180"></a><span>
|
||||
</span><a name="line-181"></a><span class="hs-comment">-- instance MimeRender MimeOctetStream Double where mimeRender _ = BB.toLazyByteString . BB.doubleDec</span><span>
|
||||
</span><a name="line-182"></a><span class="hs-comment">-- instance MimeRender MimeOctetStream Float where mimeRender _ = BB.toLazyByteString . BB.floatDec</span><span>
|
||||
</span><a name="line-183"></a><span class="hs-comment">-- instance MimeRender MimeOctetStream Int where mimeRender _ = BB.toLazyByteString . BB.intDec</span><span>
|
||||
</span><a name="line-184"></a><span class="hs-comment">-- instance MimeRender MimeOctetStream Integer where mimeRender _ = BB.toLazyByteString . BB.integerDec</span><span>
|
||||
</span><a name="line-131"></a><span class="hs-comment">-- | `A.encode`</span><span>
|
||||
</span><a name="line-132"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="#local-6989586621679068973"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679068973"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span>
|
||||
</span><a name="line-133"></a><span class="hs-comment">-- | @WH.urlEncodeAsForm@</span><span>
|
||||
</span><a name="line-134"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToForm</span><span> </span><a href="#local-6989586621679068972"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679068972"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeAsForm</span><span>
|
||||
</span><a name="line-135"></a><span>
|
||||
</span><a name="line-136"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-137"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-138"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-139"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-140"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-141"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-142"></a><span>
|
||||
</span><a name="line-143"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-144"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-145"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-146"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-147"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-148"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-149"></a><span>
|
||||
</span><a name="line-150"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-151"></a><span>
|
||||
</span><a name="line-152"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Bool</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-153"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Char</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-154"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Double</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-155"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Float</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-156"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-157"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-158"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-159"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-160"></a><span>
|
||||
</span><a name="line-161"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><a name="line-162"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835195"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span>
|
||||
</span><a name="line-163"></a><span>
|
||||
</span><a name="line-164"></a><span>
|
||||
</span><a name="line-165"></a><span class="hs-comment">-- * MimeUnrender Class</span><span>
|
||||
</span><a name="line-166"></a><span>
|
||||
</span><a name="line-167"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679060312"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeUnrender"><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier">MimeUnrender</span></a></a><span> </span><a name="local-6989586621679060312"><a href="#local-6989586621679060312"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679060313"><a href="#local-6989586621679060313"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-168"></a><span> </span><span class="hs-identifier">mimeUnrender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679060312"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679060313"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-169"></a><span> </span><span class="hs-identifier">mimeUnrender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679060312"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679060313"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-170"></a><span> </span><a name="local-8214565720323835193"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier">mimeUnrender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679060619"><a href="#local-6989586621679060619"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-var">mimeUnrender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679060312"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679060619"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-171"></a><span>
|
||||
</span><a name="line-172"></a><span class="hs-comment">-- Default MimeUnrender Instances</span><span>
|
||||
</span><a name="line-173"></a><span>
|
||||
</span><a name="line-174"></a><span class="hs-comment">-- | @A.eitherDecode@</span><span>
|
||||
</span><a name="line-175"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="#local-6989586621679066395"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679066395"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835192"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">eitherDecode</span><span>
|
||||
</span><a name="line-176"></a><span class="hs-comment">-- | @P.left T.unpack . WH.urlDecodeAsForm@</span><span>
|
||||
</span><a name="line-177"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromForm</span><span> </span><a href="#local-6989586621679066394"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679066394"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835192"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlDecodeAsForm</span><span>
|
||||
</span><a name="line-178"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><a name="line-179"></a><span>
|
||||
</span><a name="line-180"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835192"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-181"></a><span class="hs-comment">-- | @P.left P.show . TL.decodeUtf8'@</span><span>
|
||||
</span><a name="line-182"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835192"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
|
||||
</span><a name="line-183"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><a name="line-184"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835192"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-185"></a><span>
|
||||
</span><a name="line-186"></a><span class="hs-comment">-- instance MimeRender MimeJsonCharsetutf8 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><a name="line-187"></a><span class="hs-comment">-- instance MimeRender MimeXmlCharsetutf8 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><a name="line-188"></a><span>
|
||||
</span><a name="line-189"></a><span class="hs-comment">-- ** MimeUnrender Class</span><span>
|
||||
</span><a name="line-190"></a><span>
|
||||
</span><a name="line-191"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679096409"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeUnrender"><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier">MimeUnrender</span></a></a><span> </span><a name="local-6989586621679096409"><a href="#local-6989586621679096409"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679096410"><a href="#local-6989586621679096410"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-192"></a><span> </span><span class="hs-identifier">mimeUnrender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679096409"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679096410"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-193"></a><span> </span><span class="hs-identifier">mimeUnrender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679096409"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679096410"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-194"></a><span> </span><a name="local-8214565720323871284"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier">mimeUnrender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096411"><a href="#local-6989586621679096411"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-var">mimeUnrender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679096409"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679096411"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-195"></a><span>
|
||||
</span><a name="line-196"></a><span class="hs-comment">-- ** MimeUnrender Instances</span><span>
|
||||
</span><a name="line-197"></a><span>
|
||||
</span><a name="line-198"></a><span class="hs-comment">-- | @A.eitherDecode@</span><span>
|
||||
</span><a name="line-199"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="#local-6989586621679096570"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679096570"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">eitherDecode</span><span>
|
||||
</span><a name="line-200"></a><span class="hs-comment">-- | @P.left T.unpack . WH.urlDecodeAsForm@</span><span>
|
||||
</span><a name="line-201"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromForm</span><span> </span><a href="#local-6989586621679096569"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679096569"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlDecodeAsForm</span><span>
|
||||
</span><a name="line-202"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><a name="line-203"></a><span>
|
||||
</span><a name="line-204"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-205"></a><span class="hs-comment">-- | @P.left P.show . TL.decodeUtf8'@</span><span>
|
||||
</span><a name="line-206"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
|
||||
</span><a name="line-207"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><a name="line-208"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-209"></a><span>
|
||||
</span><a name="line-210"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><a name="line-211"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-212"></a><span class="hs-comment">-- | @P.left P.show . T.decodeUtf8' . BL.toStrict@</span><span>
|
||||
</span><a name="line-213"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
|
||||
</span><a name="line-214"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><a name="line-215"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-216"></a><span>
|
||||
</span><a name="line-217"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><a name="line-218"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323871283"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a><span>
|
||||
</span><a name="line-219"></a><span>
|
||||
</span><a name="line-220"></a><span class="hs-comment">-- instance MimeUnrender MimeJsonCharsetutf8 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><a name="line-221"></a><span class="hs-comment">-- instance MimeUnrender MimeXmlCharsetutf8 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><a name="line-222"></a><span>
|
||||
</span><a name="line-223"></a><span class="hs-comment">-- ** Request Consumes</span><span>
|
||||
</span><a name="line-224"></a><span>
|
||||
</span><a name="line-225"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679096408"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Consumes"><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier">Consumes</span></a></a><span> </span><a name="local-6989586621679096407"><a href="#local-6989586621679096407"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096408"><a href="#local-6989586621679096408"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-226"></a><span>
|
||||
</span><a name="line-227"></a><span class="hs-comment">-- ** Request Produces</span><span>
|
||||
</span><a name="line-228"></a><span>
|
||||
</span><a name="line-229"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679096406"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Produces"><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier">Produces</span></a></a><span> </span><a name="local-6989586621679096405"><a href="#local-6989586621679096405"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096406"><a href="#local-6989586621679096406"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-230"></a></pre></body></html>
|
||||
</span><a name="line-186"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><a name="line-187"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835192"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-188"></a><span class="hs-comment">-- | @P.left P.show . T.decodeUtf8' . BL.toStrict@</span><span>
|
||||
</span><a name="line-189"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835192"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
|
||||
</span><a name="line-190"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><a name="line-191"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835192"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-192"></a><span>
|
||||
</span><a name="line-193"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><a name="line-194"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835192"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a></pre></body></html>
|
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,638 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-comment">{-
|
||||
Swagger Petstore
|
||||
|
||||
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
|
||||
|
||||
OpenAPI spec version: 2.0
|
||||
Swagger Petstore API version: 1.0.0
|
||||
Contact: apiteam@swagger.io
|
||||
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
|
||||
-}</span><span>
|
||||
</span><a name="line-11"></a><span>
|
||||
</span><a name="line-12"></a><span class="hs-comment">{-|
|
||||
Module : SwaggerPetstore.Lens
|
||||
-}</span><span>
|
||||
</span><a name="line-15"></a><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE KindSignatures #-}</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE NamedFieldPuns #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE RankNTypes #-}</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE RecordWildCards #-}</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-21"></a><span>
|
||||
</span><a name="line-22"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">ModelLens</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-23"></a><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Map</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</span><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Set</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Set</span><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-30"></a><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-32"></a><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">=<<</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span class="hs-identifier hs-var">maybe</span><span class="hs-special">,</span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Applicative</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-35"></a><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Model.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span></a><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Core.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Core</span></a><span>
|
||||
</span><a name="line-38"></a><span>
|
||||
</span><a name="line-39"></a><span>
|
||||
</span><a name="line-40"></a><span class="hs-comment">-- * AdditionalPropertiesClass</span><span>
|
||||
</span><a name="line-41"></a><span>
|
||||
</span><a name="line-42"></a><span class="hs-comment">-- | 'additionalPropertiesClassMapProperty' Lens</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-identifier">additionalPropertiesClassMapPropertyL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-type">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-44"></a><a name="additionalPropertiesClassMapPropertyL"><a href="SwaggerPetstore.ModelLens.html#additionalPropertiesClassMapPropertyL"><span class="hs-identifier">additionalPropertiesClassMapPropertyL</span></a></a><span> </span><a name="local-6989586621679140673"><a href="#local-6989586621679140673"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140676"><a href="#local-6989586621679140676"><span class="hs-identifier">additionalPropertiesClassMapProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140676"><span class="hs-identifier hs-var">additionalPropertiesClassMapProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140673"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140674"><span class="hs-identifier hs-var">additionalPropertiesClassMapProperty</span></a><span>
|
||||
</span><a name="line-45"></a><span class="hs-pragma">{-# INLINE additionalPropertiesClassMapPropertyL #-}</span><span>
|
||||
</span><a name="line-46"></a><span>
|
||||
</span><a name="line-47"></a><span class="hs-comment">-- | 'additionalPropertiesClassMapOfMapProperty' Lens</span><span>
|
||||
</span><a name="line-48"></a><span class="hs-identifier">additionalPropertiesClassMapOfMapPropertyL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-type">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-49"></a><a name="additionalPropertiesClassMapOfMapPropertyL"><a href="SwaggerPetstore.ModelLens.html#additionalPropertiesClassMapOfMapPropertyL"><span class="hs-identifier">additionalPropertiesClassMapOfMapPropertyL</span></a></a><span> </span><a name="local-6989586621679140677"><a href="#local-6989586621679140677"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140680"><a href="#local-6989586621679140680"><span class="hs-identifier">additionalPropertiesClassMapOfMapProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140680"><span class="hs-identifier hs-var">additionalPropertiesClassMapOfMapProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140677"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140679"><span class="hs-identifier hs-var">additionalPropertiesClassMapOfMapProperty</span></a><span>
|
||||
</span><a name="line-50"></a><span class="hs-pragma">{-# INLINE additionalPropertiesClassMapOfMapPropertyL #-}</span><span>
|
||||
</span><a name="line-51"></a><span>
|
||||
</span><a name="line-52"></a><span>
|
||||
</span><a name="line-53"></a><span>
|
||||
</span><a name="line-54"></a><span class="hs-comment">-- * Animal</span><span>
|
||||
</span><a name="line-55"></a><span>
|
||||
</span><a name="line-56"></a><span class="hs-comment">-- | 'animalClassName' Lens</span><span>
|
||||
</span><a name="line-57"></a><span class="hs-identifier">animalClassNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-type">Animal</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-58"></a><a name="animalClassNameL"><a href="SwaggerPetstore.ModelLens.html#animalClassNameL"><span class="hs-identifier">animalClassNameL</span></a></a><span> </span><a name="local-6989586621679140681"><a href="#local-6989586621679140681"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140684"><a href="#local-6989586621679140684"><span class="hs-identifier">animalClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140684"><span class="hs-identifier hs-var">animalClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140681"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140682"><span class="hs-identifier hs-var">animalClassName</span></a><span>
|
||||
</span><a name="line-59"></a><span class="hs-pragma">{-# INLINE animalClassNameL #-}</span><span>
|
||||
</span><a name="line-60"></a><span>
|
||||
</span><a name="line-61"></a><span class="hs-comment">-- | 'animalColor' Lens</span><span>
|
||||
</span><a name="line-62"></a><span class="hs-identifier">animalColorL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-type">Animal</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-63"></a><a name="animalColorL"><a href="SwaggerPetstore.ModelLens.html#animalColorL"><span class="hs-identifier">animalColorL</span></a></a><span> </span><a name="local-6989586621679140685"><a href="#local-6989586621679140685"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140688"><a href="#local-6989586621679140688"><span class="hs-identifier">animalColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140688"><span class="hs-identifier hs-var">animalColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140685"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140687"><span class="hs-identifier hs-var">animalColor</span></a><span>
|
||||
</span><a name="line-64"></a><span class="hs-pragma">{-# INLINE animalColorL #-}</span><span>
|
||||
</span><a name="line-65"></a><span>
|
||||
</span><a name="line-66"></a><span>
|
||||
</span><a name="line-67"></a><span>
|
||||
</span><a name="line-68"></a><span class="hs-comment">-- * AnimalFarm</span><span>
|
||||
</span><a name="line-69"></a><span>
|
||||
</span><a name="line-70"></a><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span class="hs-comment">-- * ApiResponse</span><span>
|
||||
</span><a name="line-73"></a><span>
|
||||
</span><a name="line-74"></a><span class="hs-comment">-- | 'apiResponseCode' Lens</span><span>
|
||||
</span><a name="line-75"></a><span class="hs-identifier">apiResponseCodeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-76"></a><a name="apiResponseCodeL"><a href="SwaggerPetstore.ModelLens.html#apiResponseCodeL"><span class="hs-identifier">apiResponseCodeL</span></a></a><span> </span><a name="local-6989586621679140689"><a href="#local-6989586621679140689"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140693"><a href="#local-6989586621679140693"><span class="hs-identifier">apiResponseCode</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140693"><span class="hs-identifier hs-var">apiResponseCode</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140689"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140690"><span class="hs-identifier hs-var">apiResponseCode</span></a><span>
|
||||
</span><a name="line-77"></a><span class="hs-pragma">{-# INLINE apiResponseCodeL #-}</span><span>
|
||||
</span><a name="line-78"></a><span>
|
||||
</span><a name="line-79"></a><span class="hs-comment">-- | 'apiResponseType' Lens</span><span>
|
||||
</span><a name="line-80"></a><span class="hs-identifier">apiResponseTypeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-81"></a><a name="apiResponseTypeL"><a href="SwaggerPetstore.ModelLens.html#apiResponseTypeL"><span class="hs-identifier">apiResponseTypeL</span></a></a><span> </span><a name="local-6989586621679140694"><a href="#local-6989586621679140694"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140698"><a href="#local-6989586621679140698"><span class="hs-identifier">apiResponseType</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140698"><span class="hs-identifier hs-var">apiResponseType</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140694"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140696"><span class="hs-identifier hs-var">apiResponseType</span></a><span>
|
||||
</span><a name="line-82"></a><span class="hs-pragma">{-# INLINE apiResponseTypeL #-}</span><span>
|
||||
</span><a name="line-83"></a><span>
|
||||
</span><a name="line-84"></a><span class="hs-comment">-- | 'apiResponseMessage' Lens</span><span>
|
||||
</span><a name="line-85"></a><span class="hs-identifier">apiResponseMessageL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-86"></a><a name="apiResponseMessageL"><a href="SwaggerPetstore.ModelLens.html#apiResponseMessageL"><span class="hs-identifier">apiResponseMessageL</span></a></a><span> </span><a name="local-6989586621679140699"><a href="#local-6989586621679140699"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140703"><a href="#local-6989586621679140703"><span class="hs-identifier">apiResponseMessage</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140703"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140699"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140702"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span>
|
||||
</span><a name="line-87"></a><span class="hs-pragma">{-# INLINE apiResponseMessageL #-}</span><span>
|
||||
</span><a name="line-88"></a><span>
|
||||
</span><a name="line-89"></a><span>
|
||||
</span><a name="line-90"></a><span>
|
||||
</span><a name="line-91"></a><span class="hs-comment">-- * ArrayOfArrayOfNumberOnly</span><span>
|
||||
</span><a name="line-92"></a><span>
|
||||
</span><a name="line-93"></a><span class="hs-comment">-- | 'arrayOfArrayOfNumberOnlyArrayArrayNumber' Lens</span><span>
|
||||
</span><a name="line-94"></a><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-type">ArrayOfArrayOfNumberOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">]</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-95"></a><a name="arrayOfArrayOfNumberOnlyArrayArrayNumberL"><a href="SwaggerPetstore.ModelLens.html#arrayOfArrayOfNumberOnlyArrayArrayNumberL"><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumberL</span></a></a><span> </span><a name="local-6989586621679140704"><a href="#local-6989586621679140704"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfArrayOfNumberOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140706"><a href="#local-6989586621679140706"><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfArrayOfNumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140706"><span class="hs-identifier hs-var">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140704"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140705"><span class="hs-identifier hs-var">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a><span>
|
||||
</span><a name="line-96"></a><span class="hs-pragma">{-# INLINE arrayOfArrayOfNumberOnlyArrayArrayNumberL #-}</span><span>
|
||||
</span><a name="line-97"></a><span>
|
||||
</span><a name="line-98"></a><span>
|
||||
</span><a name="line-99"></a><span>
|
||||
</span><a name="line-100"></a><span class="hs-comment">-- * ArrayOfNumberOnly</span><span>
|
||||
</span><a name="line-101"></a><span>
|
||||
</span><a name="line-102"></a><span class="hs-comment">-- | 'arrayOfNumberOnlyArrayNumber' Lens</span><span>
|
||||
</span><a name="line-103"></a><span class="hs-identifier">arrayOfNumberOnlyArrayNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-type">ArrayOfNumberOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-104"></a><a name="arrayOfNumberOnlyArrayNumberL"><a href="SwaggerPetstore.ModelLens.html#arrayOfNumberOnlyArrayNumberL"><span class="hs-identifier">arrayOfNumberOnlyArrayNumberL</span></a></a><span> </span><a name="local-6989586621679140707"><a href="#local-6989586621679140707"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfNumberOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140709"><a href="#local-6989586621679140709"><span class="hs-identifier">arrayOfNumberOnlyArrayNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfNumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140709"><span class="hs-identifier hs-var">arrayOfNumberOnlyArrayNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140707"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140708"><span class="hs-identifier hs-var">arrayOfNumberOnlyArrayNumber</span></a><span>
|
||||
</span><a name="line-105"></a><span class="hs-pragma">{-# INLINE arrayOfNumberOnlyArrayNumberL #-}</span><span>
|
||||
</span><a name="line-106"></a><span>
|
||||
</span><a name="line-107"></a><span>
|
||||
</span><a name="line-108"></a><span>
|
||||
</span><a name="line-109"></a><span class="hs-comment">-- * ArrayTest</span><span>
|
||||
</span><a name="line-110"></a><span>
|
||||
</span><a name="line-111"></a><span class="hs-comment">-- | 'arrayTestArrayOfString' Lens</span><span>
|
||||
</span><a name="line-112"></a><span class="hs-identifier">arrayTestArrayOfStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-type">ArrayTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-113"></a><a name="arrayTestArrayOfStringL"><a href="SwaggerPetstore.ModelLens.html#arrayTestArrayOfStringL"><span class="hs-identifier">arrayTestArrayOfStringL</span></a></a><span> </span><a name="local-6989586621679140710"><a href="#local-6989586621679140710"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140714"><a href="#local-6989586621679140714"><span class="hs-identifier">arrayTestArrayOfString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140714"><span class="hs-identifier hs-var">arrayTestArrayOfString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140710"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140711"><span class="hs-identifier hs-var">arrayTestArrayOfString</span></a><span>
|
||||
</span><a name="line-114"></a><span class="hs-pragma">{-# INLINE arrayTestArrayOfStringL #-}</span><span>
|
||||
</span><a name="line-115"></a><span>
|
||||
</span><a name="line-116"></a><span class="hs-comment">-- | 'arrayTestArrayArrayOfInteger' Lens</span><span>
|
||||
</span><a name="line-117"></a><span class="hs-identifier">arrayTestArrayArrayOfIntegerL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-type">ArrayTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">]</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-118"></a><a name="arrayTestArrayArrayOfIntegerL"><a href="SwaggerPetstore.ModelLens.html#arrayTestArrayArrayOfIntegerL"><span class="hs-identifier">arrayTestArrayArrayOfIntegerL</span></a></a><span> </span><a name="local-6989586621679140715"><a href="#local-6989586621679140715"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140719"><a href="#local-6989586621679140719"><span class="hs-identifier">arrayTestArrayArrayOfInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140719"><span class="hs-identifier hs-var">arrayTestArrayArrayOfInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140715"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140717"><span class="hs-identifier hs-var">arrayTestArrayArrayOfInteger</span></a><span>
|
||||
</span><a name="line-119"></a><span class="hs-pragma">{-# INLINE arrayTestArrayArrayOfIntegerL #-}</span><span>
|
||||
</span><a name="line-120"></a><span>
|
||||
</span><a name="line-121"></a><span class="hs-comment">-- | 'arrayTestArrayArrayOfModel' Lens</span><span>
|
||||
</span><a name="line-122"></a><span class="hs-identifier">arrayTestArrayArrayOfModelL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-type">ArrayTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-type">ReadOnlyFirst</span></a><span class="hs-special">]</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-123"></a><a name="arrayTestArrayArrayOfModelL"><a href="SwaggerPetstore.ModelLens.html#arrayTestArrayArrayOfModelL"><span class="hs-identifier">arrayTestArrayArrayOfModelL</span></a></a><span> </span><a name="local-6989586621679140720"><a href="#local-6989586621679140720"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140724"><a href="#local-6989586621679140724"><span class="hs-identifier">arrayTestArrayArrayOfModel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140724"><span class="hs-identifier hs-var">arrayTestArrayArrayOfModel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140720"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140723"><span class="hs-identifier hs-var">arrayTestArrayArrayOfModel</span></a><span>
|
||||
</span><a name="line-124"></a><span class="hs-pragma">{-# INLINE arrayTestArrayArrayOfModelL #-}</span><span>
|
||||
</span><a name="line-125"></a><span>
|
||||
</span><a name="line-126"></a><span>
|
||||
</span><a name="line-127"></a><span>
|
||||
</span><a name="line-128"></a><span class="hs-comment">-- * Capitalization</span><span>
|
||||
</span><a name="line-129"></a><span>
|
||||
</span><a name="line-130"></a><span class="hs-comment">-- | 'capitalizationSmallCamel' Lens</span><span>
|
||||
</span><a name="line-131"></a><span class="hs-identifier">capitalizationSmallCamelL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-132"></a><a name="capitalizationSmallCamelL"><a href="SwaggerPetstore.ModelLens.html#capitalizationSmallCamelL"><span class="hs-identifier">capitalizationSmallCamelL</span></a></a><span> </span><a name="local-6989586621679140725"><a href="#local-6989586621679140725"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140732"><a href="#local-6989586621679140732"><span class="hs-identifier">capitalizationSmallCamel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140732"><span class="hs-identifier hs-var">capitalizationSmallCamel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140725"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140726"><span class="hs-identifier hs-var">capitalizationSmallCamel</span></a><span>
|
||||
</span><a name="line-133"></a><span class="hs-pragma">{-# INLINE capitalizationSmallCamelL #-}</span><span>
|
||||
</span><a name="line-134"></a><span>
|
||||
</span><a name="line-135"></a><span class="hs-comment">-- | 'capitalizationCapitalCamel' Lens</span><span>
|
||||
</span><a name="line-136"></a><span class="hs-identifier">capitalizationCapitalCamelL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-137"></a><a name="capitalizationCapitalCamelL"><a href="SwaggerPetstore.ModelLens.html#capitalizationCapitalCamelL"><span class="hs-identifier">capitalizationCapitalCamelL</span></a></a><span> </span><a name="local-6989586621679140733"><a href="#local-6989586621679140733"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140740"><a href="#local-6989586621679140740"><span class="hs-identifier">capitalizationCapitalCamel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140740"><span class="hs-identifier hs-var">capitalizationCapitalCamel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140733"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140735"><span class="hs-identifier hs-var">capitalizationCapitalCamel</span></a><span>
|
||||
</span><a name="line-138"></a><span class="hs-pragma">{-# INLINE capitalizationCapitalCamelL #-}</span><span>
|
||||
</span><a name="line-139"></a><span>
|
||||
</span><a name="line-140"></a><span class="hs-comment">-- | 'capitalizationSmallSnake' Lens</span><span>
|
||||
</span><a name="line-141"></a><span class="hs-identifier">capitalizationSmallSnakeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-142"></a><a name="capitalizationSmallSnakeL"><a href="SwaggerPetstore.ModelLens.html#capitalizationSmallSnakeL"><span class="hs-identifier">capitalizationSmallSnakeL</span></a></a><span> </span><a name="local-6989586621679140741"><a href="#local-6989586621679140741"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140748"><a href="#local-6989586621679140748"><span class="hs-identifier">capitalizationSmallSnake</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140748"><span class="hs-identifier hs-var">capitalizationSmallSnake</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140741"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140744"><span class="hs-identifier hs-var">capitalizationSmallSnake</span></a><span>
|
||||
</span><a name="line-143"></a><span class="hs-pragma">{-# INLINE capitalizationSmallSnakeL #-}</span><span>
|
||||
</span><a name="line-144"></a><span>
|
||||
</span><a name="line-145"></a><span class="hs-comment">-- | 'capitalizationCapitalSnake' Lens</span><span>
|
||||
</span><a name="line-146"></a><span class="hs-identifier">capitalizationCapitalSnakeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-147"></a><a name="capitalizationCapitalSnakeL"><a href="SwaggerPetstore.ModelLens.html#capitalizationCapitalSnakeL"><span class="hs-identifier">capitalizationCapitalSnakeL</span></a></a><span> </span><a name="local-6989586621679140749"><a href="#local-6989586621679140749"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140756"><a href="#local-6989586621679140756"><span class="hs-identifier">capitalizationCapitalSnake</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140756"><span class="hs-identifier hs-var">capitalizationCapitalSnake</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140749"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140753"><span class="hs-identifier hs-var">capitalizationCapitalSnake</span></a><span>
|
||||
</span><a name="line-148"></a><span class="hs-pragma">{-# INLINE capitalizationCapitalSnakeL #-}</span><span>
|
||||
</span><a name="line-149"></a><span>
|
||||
</span><a name="line-150"></a><span class="hs-comment">-- | 'capitalizationScaEthFlowPoints' Lens</span><span>
|
||||
</span><a name="line-151"></a><span class="hs-identifier">capitalizationScaEthFlowPointsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-152"></a><a name="capitalizationScaEthFlowPointsL"><a href="SwaggerPetstore.ModelLens.html#capitalizationScaEthFlowPointsL"><span class="hs-identifier">capitalizationScaEthFlowPointsL</span></a></a><span> </span><a name="local-6989586621679140757"><a href="#local-6989586621679140757"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140764"><a href="#local-6989586621679140764"><span class="hs-identifier">capitalizationScaEthFlowPoints</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140764"><span class="hs-identifier hs-var">capitalizationScaEthFlowPoints</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140757"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140762"><span class="hs-identifier hs-var">capitalizationScaEthFlowPoints</span></a><span>
|
||||
</span><a name="line-153"></a><span class="hs-pragma">{-# INLINE capitalizationScaEthFlowPointsL #-}</span><span>
|
||||
</span><a name="line-154"></a><span>
|
||||
</span><a name="line-155"></a><span class="hs-comment">-- | 'capitalizationAttName' Lens</span><span>
|
||||
</span><a name="line-156"></a><span class="hs-identifier">capitalizationAttNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-157"></a><a name="capitalizationAttNameL"><a href="SwaggerPetstore.ModelLens.html#capitalizationAttNameL"><span class="hs-identifier">capitalizationAttNameL</span></a></a><span> </span><a name="local-6989586621679140765"><a href="#local-6989586621679140765"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140772"><a href="#local-6989586621679140772"><span class="hs-identifier">capitalizationAttName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140772"><span class="hs-identifier hs-var">capitalizationAttName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140765"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140771"><span class="hs-identifier hs-var">capitalizationAttName</span></a><span>
|
||||
</span><a name="line-158"></a><span class="hs-pragma">{-# INLINE capitalizationAttNameL #-}</span><span>
|
||||
</span><a name="line-159"></a><span>
|
||||
</span><a name="line-160"></a><span>
|
||||
</span><a name="line-161"></a><span>
|
||||
</span><a name="line-162"></a><span class="hs-comment">-- * Category</span><span>
|
||||
</span><a name="line-163"></a><span>
|
||||
</span><a name="line-164"></a><span class="hs-comment">-- | 'categoryId' Lens</span><span>
|
||||
</span><a name="line-165"></a><span class="hs-identifier">categoryIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-166"></a><a name="categoryIdL"><a href="SwaggerPetstore.ModelLens.html#categoryIdL"><span class="hs-identifier">categoryIdL</span></a></a><span> </span><a name="local-6989586621679140773"><a href="#local-6989586621679140773"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140776"><a href="#local-6989586621679140776"><span class="hs-identifier">categoryId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140776"><span class="hs-identifier hs-var">categoryId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140773"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140774"><span class="hs-identifier hs-var">categoryId</span></a><span>
|
||||
</span><a name="line-167"></a><span class="hs-pragma">{-# INLINE categoryIdL #-}</span><span>
|
||||
</span><a name="line-168"></a><span>
|
||||
</span><a name="line-169"></a><span class="hs-comment">-- | 'categoryName' Lens</span><span>
|
||||
</span><a name="line-170"></a><span class="hs-identifier">categoryNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-171"></a><a name="categoryNameL"><a href="SwaggerPetstore.ModelLens.html#categoryNameL"><span class="hs-identifier">categoryNameL</span></a></a><span> </span><a name="local-6989586621679140777"><a href="#local-6989586621679140777"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140780"><a href="#local-6989586621679140780"><span class="hs-identifier">categoryName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140780"><span class="hs-identifier hs-var">categoryName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140777"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140779"><span class="hs-identifier hs-var">categoryName</span></a><span>
|
||||
</span><a name="line-172"></a><span class="hs-pragma">{-# INLINE categoryNameL #-}</span><span>
|
||||
</span><a name="line-173"></a><span>
|
||||
</span><a name="line-174"></a><span>
|
||||
</span><a name="line-175"></a><span>
|
||||
</span><a name="line-176"></a><span class="hs-comment">-- * ClassModel</span><span>
|
||||
</span><a name="line-177"></a><span>
|
||||
</span><a name="line-178"></a><span class="hs-comment">-- | 'classModelClass' Lens</span><span>
|
||||
</span><a name="line-179"></a><span class="hs-identifier">classModelClassL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-type">ClassModel</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-180"></a><a name="classModelClassL"><a href="SwaggerPetstore.ModelLens.html#classModelClassL"><span class="hs-identifier">classModelClassL</span></a></a><span> </span><a name="local-6989586621679140781"><a href="#local-6989586621679140781"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-var">ClassModel</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140783"><a href="#local-6989586621679140783"><span class="hs-identifier">classModelClass</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-var">ClassModel</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140783"><span class="hs-identifier hs-var">classModelClass</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140781"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140782"><span class="hs-identifier hs-var">classModelClass</span></a><span>
|
||||
</span><a name="line-181"></a><span class="hs-pragma">{-# INLINE classModelClassL #-}</span><span>
|
||||
</span><a name="line-182"></a><span>
|
||||
</span><a name="line-183"></a><span>
|
||||
</span><a name="line-184"></a><span>
|
||||
</span><a name="line-185"></a><span class="hs-comment">-- * Client</span><span>
|
||||
</span><a name="line-186"></a><span>
|
||||
</span><a name="line-187"></a><span class="hs-comment">-- | 'clientClient' Lens</span><span>
|
||||
</span><a name="line-188"></a><span class="hs-identifier">clientClientL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-189"></a><a name="clientClientL"><a href="SwaggerPetstore.ModelLens.html#clientClientL"><span class="hs-identifier">clientClientL</span></a></a><span> </span><a name="local-6989586621679140784"><a href="#local-6989586621679140784"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-var">Client</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140786"><a href="#local-6989586621679140786"><span class="hs-identifier">clientClient</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-var">Client</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140786"><span class="hs-identifier hs-var">clientClient</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140784"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140785"><span class="hs-identifier hs-var">clientClient</span></a><span>
|
||||
</span><a name="line-190"></a><span class="hs-pragma">{-# INLINE clientClientL #-}</span><span>
|
||||
</span><a name="line-191"></a><span>
|
||||
</span><a name="line-192"></a><span>
|
||||
</span><a name="line-193"></a><span>
|
||||
</span><a name="line-194"></a><span class="hs-comment">-- * EnumArrays</span><span>
|
||||
</span><a name="line-195"></a><span>
|
||||
</span><a name="line-196"></a><span class="hs-comment">-- | 'enumArraysJustSymbol' Lens</span><span>
|
||||
</span><a name="line-197"></a><span class="hs-identifier">enumArraysJustSymbolL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-type">EnumArrays</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-198"></a><a name="enumArraysJustSymbolL"><a href="SwaggerPetstore.ModelLens.html#enumArraysJustSymbolL"><span class="hs-identifier">enumArraysJustSymbolL</span></a></a><span> </span><a name="local-6989586621679140787"><a href="#local-6989586621679140787"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140790"><a href="#local-6989586621679140790"><span class="hs-identifier">enumArraysJustSymbol</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140790"><span class="hs-identifier hs-var">enumArraysJustSymbol</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140787"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140788"><span class="hs-identifier hs-var">enumArraysJustSymbol</span></a><span>
|
||||
</span><a name="line-199"></a><span class="hs-pragma">{-# INLINE enumArraysJustSymbolL #-}</span><span>
|
||||
</span><a name="line-200"></a><span>
|
||||
</span><a name="line-201"></a><span class="hs-comment">-- | 'enumArraysArrayEnum' Lens</span><span>
|
||||
</span><a name="line-202"></a><span class="hs-identifier">enumArraysArrayEnumL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-type">EnumArrays</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-203"></a><a name="enumArraysArrayEnumL"><a href="SwaggerPetstore.ModelLens.html#enumArraysArrayEnumL"><span class="hs-identifier">enumArraysArrayEnumL</span></a></a><span> </span><a name="local-6989586621679140791"><a href="#local-6989586621679140791"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140794"><a href="#local-6989586621679140794"><span class="hs-identifier">enumArraysArrayEnum</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140794"><span class="hs-identifier hs-var">enumArraysArrayEnum</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140791"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140793"><span class="hs-identifier hs-var">enumArraysArrayEnum</span></a><span>
|
||||
</span><a name="line-204"></a><span class="hs-pragma">{-# INLINE enumArraysArrayEnumL #-}</span><span>
|
||||
</span><a name="line-205"></a><span>
|
||||
</span><a name="line-206"></a><span>
|
||||
</span><a name="line-207"></a><span>
|
||||
</span><a name="line-208"></a><span class="hs-comment">-- * EnumClass</span><span>
|
||||
</span><a name="line-209"></a><span>
|
||||
</span><a name="line-210"></a><span>
|
||||
</span><a name="line-211"></a><span>
|
||||
</span><a name="line-212"></a><span class="hs-comment">-- * EnumTest</span><span>
|
||||
</span><a name="line-213"></a><span>
|
||||
</span><a name="line-214"></a><span class="hs-comment">-- | 'enumTestEnumString' Lens</span><span>
|
||||
</span><a name="line-215"></a><span class="hs-identifier">enumTestEnumStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-216"></a><a name="enumTestEnumStringL"><a href="SwaggerPetstore.ModelLens.html#enumTestEnumStringL"><span class="hs-identifier">enumTestEnumStringL</span></a></a><span> </span><a name="local-6989586621679140795"><a href="#local-6989586621679140795"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140800"><a href="#local-6989586621679140800"><span class="hs-identifier">enumTestEnumString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140800"><span class="hs-identifier hs-var">enumTestEnumString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140795"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140796"><span class="hs-identifier hs-var">enumTestEnumString</span></a><span>
|
||||
</span><a name="line-217"></a><span class="hs-pragma">{-# INLINE enumTestEnumStringL #-}</span><span>
|
||||
</span><a name="line-218"></a><span>
|
||||
</span><a name="line-219"></a><span class="hs-comment">-- | 'enumTestEnumInteger' Lens</span><span>
|
||||
</span><a name="line-220"></a><span class="hs-identifier">enumTestEnumIntegerL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-221"></a><a name="enumTestEnumIntegerL"><a href="SwaggerPetstore.ModelLens.html#enumTestEnumIntegerL"><span class="hs-identifier">enumTestEnumIntegerL</span></a></a><span> </span><a name="local-6989586621679140801"><a href="#local-6989586621679140801"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140806"><a href="#local-6989586621679140806"><span class="hs-identifier">enumTestEnumInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140806"><span class="hs-identifier hs-var">enumTestEnumInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140801"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140803"><span class="hs-identifier hs-var">enumTestEnumInteger</span></a><span>
|
||||
</span><a name="line-222"></a><span class="hs-pragma">{-# INLINE enumTestEnumIntegerL #-}</span><span>
|
||||
</span><a name="line-223"></a><span>
|
||||
</span><a name="line-224"></a><span class="hs-comment">-- | 'enumTestEnumNumber' Lens</span><span>
|
||||
</span><a name="line-225"></a><span class="hs-identifier">enumTestEnumNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-226"></a><a name="enumTestEnumNumberL"><a href="SwaggerPetstore.ModelLens.html#enumTestEnumNumberL"><span class="hs-identifier">enumTestEnumNumberL</span></a></a><span> </span><a name="local-6989586621679140807"><a href="#local-6989586621679140807"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140812"><a href="#local-6989586621679140812"><span class="hs-identifier">enumTestEnumNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140812"><span class="hs-identifier hs-var">enumTestEnumNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140807"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140810"><span class="hs-identifier hs-var">enumTestEnumNumber</span></a><span>
|
||||
</span><a name="line-227"></a><span class="hs-pragma">{-# INLINE enumTestEnumNumberL #-}</span><span>
|
||||
</span><a name="line-228"></a><span>
|
||||
</span><a name="line-229"></a><span class="hs-comment">-- | 'enumTestOuterEnum' Lens</span><span>
|
||||
</span><a name="line-230"></a><span class="hs-identifier">enumTestOuterEnumL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterEnum"><span class="hs-identifier hs-type">OuterEnum</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-231"></a><a name="enumTestOuterEnumL"><a href="SwaggerPetstore.ModelLens.html#enumTestOuterEnumL"><span class="hs-identifier">enumTestOuterEnumL</span></a></a><span> </span><a name="local-6989586621679140813"><a href="#local-6989586621679140813"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140818"><a href="#local-6989586621679140818"><span class="hs-identifier">enumTestOuterEnum</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140818"><span class="hs-identifier hs-var">enumTestOuterEnum</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140813"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140817"><span class="hs-identifier hs-var">enumTestOuterEnum</span></a><span>
|
||||
</span><a name="line-232"></a><span class="hs-pragma">{-# INLINE enumTestOuterEnumL #-}</span><span>
|
||||
</span><a name="line-233"></a><span>
|
||||
</span><a name="line-234"></a><span>
|
||||
</span><a name="line-235"></a><span>
|
||||
</span><a name="line-236"></a><span class="hs-comment">-- * FormatTest</span><span>
|
||||
</span><a name="line-237"></a><span>
|
||||
</span><a name="line-238"></a><span class="hs-comment">-- | 'formatTestInteger' Lens</span><span>
|
||||
</span><a name="line-239"></a><span class="hs-identifier">formatTestIntegerL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-240"></a><a name="formatTestIntegerL"><a href="SwaggerPetstore.ModelLens.html#formatTestIntegerL"><span class="hs-identifier">formatTestIntegerL</span></a></a><span> </span><a name="local-6989586621679140819"><a href="#local-6989586621679140819"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140833"><a href="#local-6989586621679140833"><span class="hs-identifier">formatTestInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140833"><span class="hs-identifier hs-var">formatTestInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140819"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140820"><span class="hs-identifier hs-var">formatTestInteger</span></a><span>
|
||||
</span><a name="line-241"></a><span class="hs-pragma">{-# INLINE formatTestIntegerL #-}</span><span>
|
||||
</span><a name="line-242"></a><span>
|
||||
</span><a name="line-243"></a><span class="hs-comment">-- | 'formatTestInt32' Lens</span><span>
|
||||
</span><a name="line-244"></a><span class="hs-identifier">formatTestInt32L</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-245"></a><a name="formatTestInt32L"><a href="SwaggerPetstore.ModelLens.html#formatTestInt32L"><span class="hs-identifier">formatTestInt32L</span></a></a><span> </span><a name="local-6989586621679140834"><a href="#local-6989586621679140834"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140848"><a href="#local-6989586621679140848"><span class="hs-identifier">formatTestInt32</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140848"><span class="hs-identifier hs-var">formatTestInt32</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140834"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140836"><span class="hs-identifier hs-var">formatTestInt32</span></a><span>
|
||||
</span><a name="line-246"></a><span class="hs-pragma">{-# INLINE formatTestInt32L #-}</span><span>
|
||||
</span><a name="line-247"></a><span>
|
||||
</span><a name="line-248"></a><span class="hs-comment">-- | 'formatTestInt64' Lens</span><span>
|
||||
</span><a name="line-249"></a><span class="hs-identifier">formatTestInt64L</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-250"></a><a name="formatTestInt64L"><a href="SwaggerPetstore.ModelLens.html#formatTestInt64L"><span class="hs-identifier">formatTestInt64L</span></a></a><span> </span><a name="local-6989586621679140849"><a href="#local-6989586621679140849"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140863"><a href="#local-6989586621679140863"><span class="hs-identifier">formatTestInt64</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140863"><span class="hs-identifier hs-var">formatTestInt64</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140849"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140852"><span class="hs-identifier hs-var">formatTestInt64</span></a><span>
|
||||
</span><a name="line-251"></a><span class="hs-pragma">{-# INLINE formatTestInt64L #-}</span><span>
|
||||
</span><a name="line-252"></a><span>
|
||||
</span><a name="line-253"></a><span class="hs-comment">-- | 'formatTestNumber' Lens</span><span>
|
||||
</span><a name="line-254"></a><span class="hs-identifier">formatTestNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-255"></a><a name="formatTestNumberL"><a href="SwaggerPetstore.ModelLens.html#formatTestNumberL"><span class="hs-identifier">formatTestNumberL</span></a></a><span> </span><a name="local-6989586621679140864"><a href="#local-6989586621679140864"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140878"><a href="#local-6989586621679140878"><span class="hs-identifier">formatTestNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140878"><span class="hs-identifier hs-var">formatTestNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140864"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140868"><span class="hs-identifier hs-var">formatTestNumber</span></a><span>
|
||||
</span><a name="line-256"></a><span class="hs-pragma">{-# INLINE formatTestNumberL #-}</span><span>
|
||||
</span><a name="line-257"></a><span>
|
||||
</span><a name="line-258"></a><span class="hs-comment">-- | 'formatTestFloat' Lens</span><span>
|
||||
</span><a name="line-259"></a><span class="hs-identifier">formatTestFloatL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Float</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-260"></a><a name="formatTestFloatL"><a href="SwaggerPetstore.ModelLens.html#formatTestFloatL"><span class="hs-identifier">formatTestFloatL</span></a></a><span> </span><a name="local-6989586621679140879"><a href="#local-6989586621679140879"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140893"><a href="#local-6989586621679140893"><span class="hs-identifier">formatTestFloat</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140893"><span class="hs-identifier hs-var">formatTestFloat</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140879"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140884"><span class="hs-identifier hs-var">formatTestFloat</span></a><span>
|
||||
</span><a name="line-261"></a><span class="hs-pragma">{-# INLINE formatTestFloatL #-}</span><span>
|
||||
</span><a name="line-262"></a><span>
|
||||
</span><a name="line-263"></a><span class="hs-comment">-- | 'formatTestDouble' Lens</span><span>
|
||||
</span><a name="line-264"></a><span class="hs-identifier">formatTestDoubleL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-265"></a><a name="formatTestDoubleL"><a href="SwaggerPetstore.ModelLens.html#formatTestDoubleL"><span class="hs-identifier">formatTestDoubleL</span></a></a><span> </span><a name="local-6989586621679140894"><a href="#local-6989586621679140894"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140908"><a href="#local-6989586621679140908"><span class="hs-identifier">formatTestDouble</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140908"><span class="hs-identifier hs-var">formatTestDouble</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140894"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140900"><span class="hs-identifier hs-var">formatTestDouble</span></a><span>
|
||||
</span><a name="line-266"></a><span class="hs-pragma">{-# INLINE formatTestDoubleL #-}</span><span>
|
||||
</span><a name="line-267"></a><span>
|
||||
</span><a name="line-268"></a><span class="hs-comment">-- | 'formatTestString' Lens</span><span>
|
||||
</span><a name="line-269"></a><span class="hs-identifier">formatTestStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-270"></a><a name="formatTestStringL"><a href="SwaggerPetstore.ModelLens.html#formatTestStringL"><span class="hs-identifier">formatTestStringL</span></a></a><span> </span><a name="local-6989586621679140909"><a href="#local-6989586621679140909"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140923"><a href="#local-6989586621679140923"><span class="hs-identifier">formatTestString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140923"><span class="hs-identifier hs-var">formatTestString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140909"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140916"><span class="hs-identifier hs-var">formatTestString</span></a><span>
|
||||
</span><a name="line-271"></a><span class="hs-pragma">{-# INLINE formatTestStringL #-}</span><span>
|
||||
</span><a name="line-272"></a><span>
|
||||
</span><a name="line-273"></a><span class="hs-comment">-- | 'formatTestByte' Lens</span><span>
|
||||
</span><a name="line-274"></a><span class="hs-identifier">formatTestByteL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-275"></a><a name="formatTestByteL"><a href="SwaggerPetstore.ModelLens.html#formatTestByteL"><span class="hs-identifier">formatTestByteL</span></a></a><span> </span><a name="local-6989586621679140924"><a href="#local-6989586621679140924"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140938"><a href="#local-6989586621679140938"><span class="hs-identifier">formatTestByte</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140938"><span class="hs-identifier hs-var">formatTestByte</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140924"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140932"><span class="hs-identifier hs-var">formatTestByte</span></a><span>
|
||||
</span><a name="line-276"></a><span class="hs-pragma">{-# INLINE formatTestByteL #-}</span><span>
|
||||
</span><a name="line-277"></a><span>
|
||||
</span><a name="line-278"></a><span class="hs-comment">-- | 'formatTestBinary' Lens</span><span>
|
||||
</span><a name="line-279"></a><span class="hs-identifier">formatTestBinaryL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-280"></a><a name="formatTestBinaryL"><a href="SwaggerPetstore.ModelLens.html#formatTestBinaryL"><span class="hs-identifier">formatTestBinaryL</span></a></a><span> </span><a name="local-6989586621679140939"><a href="#local-6989586621679140939"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140953"><a href="#local-6989586621679140953"><span class="hs-identifier">formatTestBinary</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140953"><span class="hs-identifier hs-var">formatTestBinary</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140939"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140948"><span class="hs-identifier hs-var">formatTestBinary</span></a><span>
|
||||
</span><a name="line-281"></a><span class="hs-pragma">{-# INLINE formatTestBinaryL #-}</span><span>
|
||||
</span><a name="line-282"></a><span>
|
||||
</span><a name="line-283"></a><span class="hs-comment">-- | 'formatTestDate' Lens</span><span>
|
||||
</span><a name="line-284"></a><span class="hs-identifier">formatTestDateL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-285"></a><a name="formatTestDateL"><a href="SwaggerPetstore.ModelLens.html#formatTestDateL"><span class="hs-identifier">formatTestDateL</span></a></a><span> </span><a name="local-6989586621679140954"><a href="#local-6989586621679140954"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140968"><a href="#local-6989586621679140968"><span class="hs-identifier">formatTestDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140968"><span class="hs-identifier hs-var">formatTestDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140954"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140964"><span class="hs-identifier hs-var">formatTestDate</span></a><span>
|
||||
</span><a name="line-286"></a><span class="hs-pragma">{-# INLINE formatTestDateL #-}</span><span>
|
||||
</span><a name="line-287"></a><span>
|
||||
</span><a name="line-288"></a><span class="hs-comment">-- | 'formatTestDateTime' Lens</span><span>
|
||||
</span><a name="line-289"></a><span class="hs-identifier">formatTestDateTimeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-290"></a><a name="formatTestDateTimeL"><a href="SwaggerPetstore.ModelLens.html#formatTestDateTimeL"><span class="hs-identifier">formatTestDateTimeL</span></a></a><span> </span><a name="local-6989586621679140969"><a href="#local-6989586621679140969"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140983"><a href="#local-6989586621679140983"><span class="hs-identifier">formatTestDateTime</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140983"><span class="hs-identifier hs-var">formatTestDateTime</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140969"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140980"><span class="hs-identifier hs-var">formatTestDateTime</span></a><span>
|
||||
</span><a name="line-291"></a><span class="hs-pragma">{-# INLINE formatTestDateTimeL #-}</span><span>
|
||||
</span><a name="line-292"></a><span>
|
||||
</span><a name="line-293"></a><span class="hs-comment">-- | 'formatTestUuid' Lens</span><span>
|
||||
</span><a name="line-294"></a><span class="hs-identifier">formatTestUuidL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-295"></a><a name="formatTestUuidL"><a href="SwaggerPetstore.ModelLens.html#formatTestUuidL"><span class="hs-identifier">formatTestUuidL</span></a></a><span> </span><a name="local-6989586621679140984"><a href="#local-6989586621679140984"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679140998"><a href="#local-6989586621679140998"><span class="hs-identifier">formatTestUuid</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679140998"><span class="hs-identifier hs-var">formatTestUuid</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140984"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679140996"><span class="hs-identifier hs-var">formatTestUuid</span></a><span>
|
||||
</span><a name="line-296"></a><span class="hs-pragma">{-# INLINE formatTestUuidL #-}</span><span>
|
||||
</span><a name="line-297"></a><span>
|
||||
</span><a name="line-298"></a><span class="hs-comment">-- | 'formatTestPassword' Lens</span><span>
|
||||
</span><a name="line-299"></a><span class="hs-identifier">formatTestPasswordL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-300"></a><a name="formatTestPasswordL"><a href="SwaggerPetstore.ModelLens.html#formatTestPasswordL"><span class="hs-identifier">formatTestPasswordL</span></a></a><span> </span><a name="local-6989586621679140999"><a href="#local-6989586621679140999"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141013"><a href="#local-6989586621679141013"><span class="hs-identifier">formatTestPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141013"><span class="hs-identifier hs-var">formatTestPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679140999"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141012"><span class="hs-identifier hs-var">formatTestPassword</span></a><span>
|
||||
</span><a name="line-301"></a><span class="hs-pragma">{-# INLINE formatTestPasswordL #-}</span><span>
|
||||
</span><a name="line-302"></a><span>
|
||||
</span><a name="line-303"></a><span>
|
||||
</span><a name="line-304"></a><span>
|
||||
</span><a name="line-305"></a><span class="hs-comment">-- * HasOnlyReadOnly</span><span>
|
||||
</span><a name="line-306"></a><span>
|
||||
</span><a name="line-307"></a><span class="hs-comment">-- | 'hasOnlyReadOnlyBar' Lens</span><span>
|
||||
</span><a name="line-308"></a><span class="hs-identifier">hasOnlyReadOnlyBarL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-type">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-309"></a><a name="hasOnlyReadOnlyBarL"><a href="SwaggerPetstore.ModelLens.html#hasOnlyReadOnlyBarL"><span class="hs-identifier">hasOnlyReadOnlyBarL</span></a></a><span> </span><a name="local-6989586621679141014"><a href="#local-6989586621679141014"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141017"><a href="#local-6989586621679141017"><span class="hs-identifier">hasOnlyReadOnlyBar</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141017"><span class="hs-identifier hs-var">hasOnlyReadOnlyBar</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141014"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141015"><span class="hs-identifier hs-var">hasOnlyReadOnlyBar</span></a><span>
|
||||
</span><a name="line-310"></a><span class="hs-pragma">{-# INLINE hasOnlyReadOnlyBarL #-}</span><span>
|
||||
</span><a name="line-311"></a><span>
|
||||
</span><a name="line-312"></a><span class="hs-comment">-- | 'hasOnlyReadOnlyFoo' Lens</span><span>
|
||||
</span><a name="line-313"></a><span class="hs-identifier">hasOnlyReadOnlyFooL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-type">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-314"></a><a name="hasOnlyReadOnlyFooL"><a href="SwaggerPetstore.ModelLens.html#hasOnlyReadOnlyFooL"><span class="hs-identifier">hasOnlyReadOnlyFooL</span></a></a><span> </span><a name="local-6989586621679141018"><a href="#local-6989586621679141018"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141021"><a href="#local-6989586621679141021"><span class="hs-identifier">hasOnlyReadOnlyFoo</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141021"><span class="hs-identifier hs-var">hasOnlyReadOnlyFoo</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141018"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141020"><span class="hs-identifier hs-var">hasOnlyReadOnlyFoo</span></a><span>
|
||||
</span><a name="line-315"></a><span class="hs-pragma">{-# INLINE hasOnlyReadOnlyFooL #-}</span><span>
|
||||
</span><a name="line-316"></a><span>
|
||||
</span><a name="line-317"></a><span>
|
||||
</span><a name="line-318"></a><span>
|
||||
</span><a name="line-319"></a><span class="hs-comment">-- * MapTest</span><span>
|
||||
</span><a name="line-320"></a><span>
|
||||
</span><a name="line-321"></a><span class="hs-comment">-- | 'mapTestMapMapOfString' Lens</span><span>
|
||||
</span><a name="line-322"></a><span class="hs-identifier">mapTestMapMapOfStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-type">MapTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-323"></a><a name="mapTestMapMapOfStringL"><a href="SwaggerPetstore.ModelLens.html#mapTestMapMapOfStringL"><span class="hs-identifier">mapTestMapMapOfStringL</span></a></a><span> </span><a name="local-6989586621679141022"><a href="#local-6989586621679141022"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141025"><a href="#local-6989586621679141025"><span class="hs-identifier">mapTestMapMapOfString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141025"><span class="hs-identifier hs-var">mapTestMapMapOfString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141022"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141023"><span class="hs-identifier hs-var">mapTestMapMapOfString</span></a><span>
|
||||
</span><a name="line-324"></a><span class="hs-pragma">{-# INLINE mapTestMapMapOfStringL #-}</span><span>
|
||||
</span><a name="line-325"></a><span>
|
||||
</span><a name="line-326"></a><span class="hs-comment">-- | 'mapTestMapOfEnumString' Lens</span><span>
|
||||
</span><a name="line-327"></a><span class="hs-identifier">mapTestMapOfEnumStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-type">MapTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-328"></a><a name="mapTestMapOfEnumStringL"><a href="SwaggerPetstore.ModelLens.html#mapTestMapOfEnumStringL"><span class="hs-identifier">mapTestMapOfEnumStringL</span></a></a><span> </span><a name="local-6989586621679141026"><a href="#local-6989586621679141026"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141029"><a href="#local-6989586621679141029"><span class="hs-identifier">mapTestMapOfEnumString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141029"><span class="hs-identifier hs-var">mapTestMapOfEnumString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141026"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141028"><span class="hs-identifier hs-var">mapTestMapOfEnumString</span></a><span>
|
||||
</span><a name="line-329"></a><span class="hs-pragma">{-# INLINE mapTestMapOfEnumStringL #-}</span><span>
|
||||
</span><a name="line-330"></a><span>
|
||||
</span><a name="line-331"></a><span>
|
||||
</span><a name="line-332"></a><span>
|
||||
</span><a name="line-333"></a><span class="hs-comment">-- * MixedPropertiesAndAdditionalPropertiesClass</span><span>
|
||||
</span><a name="line-334"></a><span>
|
||||
</span><a name="line-335"></a><span class="hs-comment">-- | 'mixedPropertiesAndAdditionalPropertiesClassUuid' Lens</span><span>
|
||||
</span><a name="line-336"></a><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuidL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-type">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-337"></a><a name="mixedPropertiesAndAdditionalPropertiesClassUuidL"><a href="SwaggerPetstore.ModelLens.html#mixedPropertiesAndAdditionalPropertiesClassUuidL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuidL</span></a></a><span> </span><a name="local-6989586621679141030"><a href="#local-6989586621679141030"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141034"><a href="#local-6989586621679141034"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141034"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141030"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141031"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a><span>
|
||||
</span><a name="line-338"></a><span class="hs-pragma">{-# INLINE mixedPropertiesAndAdditionalPropertiesClassUuidL #-}</span><span>
|
||||
</span><a name="line-339"></a><span>
|
||||
</span><a name="line-340"></a><span class="hs-comment">-- | 'mixedPropertiesAndAdditionalPropertiesClassDateTime' Lens</span><span>
|
||||
</span><a name="line-341"></a><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTimeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-type">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-342"></a><a name="mixedPropertiesAndAdditionalPropertiesClassDateTimeL"><a href="SwaggerPetstore.ModelLens.html#mixedPropertiesAndAdditionalPropertiesClassDateTimeL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTimeL</span></a></a><span> </span><a name="local-6989586621679141035"><a href="#local-6989586621679141035"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141039"><a href="#local-6989586621679141039"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141039"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141035"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141037"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a><span>
|
||||
</span><a name="line-343"></a><span class="hs-pragma">{-# INLINE mixedPropertiesAndAdditionalPropertiesClassDateTimeL #-}</span><span>
|
||||
</span><a name="line-344"></a><span>
|
||||
</span><a name="line-345"></a><span class="hs-comment">-- | 'mixedPropertiesAndAdditionalPropertiesClassMap' Lens</span><span>
|
||||
</span><a name="line-346"></a><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMapL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-type">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-type">Animal</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-347"></a><a name="mixedPropertiesAndAdditionalPropertiesClassMapL"><a href="SwaggerPetstore.ModelLens.html#mixedPropertiesAndAdditionalPropertiesClassMapL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMapL</span></a></a><span> </span><a name="local-6989586621679141040"><a href="#local-6989586621679141040"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141044"><a href="#local-6989586621679141044"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMap</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141044"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassMap</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141040"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141043"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassMap</span></a><span>
|
||||
</span><a name="line-348"></a><span class="hs-pragma">{-# INLINE mixedPropertiesAndAdditionalPropertiesClassMapL #-}</span><span>
|
||||
</span><a name="line-349"></a><span>
|
||||
</span><a name="line-350"></a><span>
|
||||
</span><a name="line-351"></a><span>
|
||||
</span><a name="line-352"></a><span class="hs-comment">-- * Model200Response</span><span>
|
||||
</span><a name="line-353"></a><span>
|
||||
</span><a name="line-354"></a><span class="hs-comment">-- | 'model200ResponseName' Lens</span><span>
|
||||
</span><a name="line-355"></a><span class="hs-identifier">model200ResponseNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-type">Model200Response</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-356"></a><a name="model200ResponseNameL"><a href="SwaggerPetstore.ModelLens.html#model200ResponseNameL"><span class="hs-identifier">model200ResponseNameL</span></a></a><span> </span><a name="local-6989586621679141045"><a href="#local-6989586621679141045"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141048"><a href="#local-6989586621679141048"><span class="hs-identifier">model200ResponseName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141048"><span class="hs-identifier hs-var">model200ResponseName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141045"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141046"><span class="hs-identifier hs-var">model200ResponseName</span></a><span>
|
||||
</span><a name="line-357"></a><span class="hs-pragma">{-# INLINE model200ResponseNameL #-}</span><span>
|
||||
</span><a name="line-358"></a><span>
|
||||
</span><a name="line-359"></a><span class="hs-comment">-- | 'model200ResponseClass' Lens</span><span>
|
||||
</span><a name="line-360"></a><span class="hs-identifier">model200ResponseClassL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-type">Model200Response</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-361"></a><a name="model200ResponseClassL"><a href="SwaggerPetstore.ModelLens.html#model200ResponseClassL"><span class="hs-identifier">model200ResponseClassL</span></a></a><span> </span><a name="local-6989586621679141049"><a href="#local-6989586621679141049"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141052"><a href="#local-6989586621679141052"><span class="hs-identifier">model200ResponseClass</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141052"><span class="hs-identifier hs-var">model200ResponseClass</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141049"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141051"><span class="hs-identifier hs-var">model200ResponseClass</span></a><span>
|
||||
</span><a name="line-362"></a><span class="hs-pragma">{-# INLINE model200ResponseClassL #-}</span><span>
|
||||
</span><a name="line-363"></a><span>
|
||||
</span><a name="line-364"></a><span>
|
||||
</span><a name="line-365"></a><span>
|
||||
</span><a name="line-366"></a><span class="hs-comment">-- * ModelList</span><span>
|
||||
</span><a name="line-367"></a><span>
|
||||
</span><a name="line-368"></a><span class="hs-comment">-- | 'modelList123List' Lens</span><span>
|
||||
</span><a name="line-369"></a><span class="hs-identifier">modelList123ListL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-type">ModelList</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-370"></a><a name="modelList123ListL"><a href="SwaggerPetstore.ModelLens.html#modelList123ListL"><span class="hs-identifier">modelList123ListL</span></a></a><span> </span><a name="local-6989586621679141053"><a href="#local-6989586621679141053"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-var">ModelList</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141055"><a href="#local-6989586621679141055"><span class="hs-identifier">modelList123List</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-var">ModelList</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141055"><span class="hs-identifier hs-var">modelList123List</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141053"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141054"><span class="hs-identifier hs-var">modelList123List</span></a><span>
|
||||
</span><a name="line-371"></a><span class="hs-pragma">{-# INLINE modelList123ListL #-}</span><span>
|
||||
</span><a name="line-372"></a><span>
|
||||
</span><a name="line-373"></a><span>
|
||||
</span><a name="line-374"></a><span>
|
||||
</span><a name="line-375"></a><span class="hs-comment">-- * ModelReturn</span><span>
|
||||
</span><a name="line-376"></a><span>
|
||||
</span><a name="line-377"></a><span class="hs-comment">-- | 'modelReturnReturn' Lens</span><span>
|
||||
</span><a name="line-378"></a><span class="hs-identifier">modelReturnReturnL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-type">ModelReturn</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-379"></a><a name="modelReturnReturnL"><a href="SwaggerPetstore.ModelLens.html#modelReturnReturnL"><span class="hs-identifier">modelReturnReturnL</span></a></a><span> </span><a name="local-6989586621679141056"><a href="#local-6989586621679141056"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-var">ModelReturn</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141058"><a href="#local-6989586621679141058"><span class="hs-identifier">modelReturnReturn</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-var">ModelReturn</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141058"><span class="hs-identifier hs-var">modelReturnReturn</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141056"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141057"><span class="hs-identifier hs-var">modelReturnReturn</span></a><span>
|
||||
</span><a name="line-380"></a><span class="hs-pragma">{-# INLINE modelReturnReturnL #-}</span><span>
|
||||
</span><a name="line-381"></a><span>
|
||||
</span><a name="line-382"></a><span>
|
||||
</span><a name="line-383"></a><span>
|
||||
</span><a name="line-384"></a><span class="hs-comment">-- * Name</span><span>
|
||||
</span><a name="line-385"></a><span>
|
||||
</span><a name="line-386"></a><span class="hs-comment">-- | 'nameName' Lens</span><span>
|
||||
</span><a name="line-387"></a><span class="hs-identifier">nameNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-388"></a><a name="nameNameL"><a href="SwaggerPetstore.ModelLens.html#nameNameL"><span class="hs-identifier">nameNameL</span></a></a><span> </span><a name="local-6989586621679141059"><a href="#local-6989586621679141059"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141064"><a href="#local-6989586621679141064"><span class="hs-identifier">nameName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141064"><span class="hs-identifier hs-var">nameName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141059"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141060"><span class="hs-identifier hs-var">nameName</span></a><span>
|
||||
</span><a name="line-389"></a><span class="hs-pragma">{-# INLINE nameNameL #-}</span><span>
|
||||
</span><a name="line-390"></a><span>
|
||||
</span><a name="line-391"></a><span class="hs-comment">-- | 'nameSnakeCase' Lens</span><span>
|
||||
</span><a name="line-392"></a><span class="hs-identifier">nameSnakeCaseL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-393"></a><a name="nameSnakeCaseL"><a href="SwaggerPetstore.ModelLens.html#nameSnakeCaseL"><span class="hs-identifier">nameSnakeCaseL</span></a></a><span> </span><a name="local-6989586621679141065"><a href="#local-6989586621679141065"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141070"><a href="#local-6989586621679141070"><span class="hs-identifier">nameSnakeCase</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141070"><span class="hs-identifier hs-var">nameSnakeCase</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141065"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141067"><span class="hs-identifier hs-var">nameSnakeCase</span></a><span>
|
||||
</span><a name="line-394"></a><span class="hs-pragma">{-# INLINE nameSnakeCaseL #-}</span><span>
|
||||
</span><a name="line-395"></a><span>
|
||||
</span><a name="line-396"></a><span class="hs-comment">-- | 'nameProperty' Lens</span><span>
|
||||
</span><a name="line-397"></a><span class="hs-identifier">namePropertyL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-398"></a><a name="namePropertyL"><a href="SwaggerPetstore.ModelLens.html#namePropertyL"><span class="hs-identifier">namePropertyL</span></a></a><span> </span><a name="local-6989586621679141071"><a href="#local-6989586621679141071"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141076"><a href="#local-6989586621679141076"><span class="hs-identifier">nameProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141076"><span class="hs-identifier hs-var">nameProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141071"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141074"><span class="hs-identifier hs-var">nameProperty</span></a><span>
|
||||
</span><a name="line-399"></a><span class="hs-pragma">{-# INLINE namePropertyL #-}</span><span>
|
||||
</span><a name="line-400"></a><span>
|
||||
</span><a name="line-401"></a><span class="hs-comment">-- | 'name123Number' Lens</span><span>
|
||||
</span><a name="line-402"></a><span class="hs-identifier">name123NumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-403"></a><a name="name123NumberL"><a href="SwaggerPetstore.ModelLens.html#name123NumberL"><span class="hs-identifier">name123NumberL</span></a></a><span> </span><a name="local-6989586621679141077"><a href="#local-6989586621679141077"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141082"><a href="#local-6989586621679141082"><span class="hs-identifier">name123Number</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141082"><span class="hs-identifier hs-var">name123Number</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141077"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141081"><span class="hs-identifier hs-var">name123Number</span></a><span>
|
||||
</span><a name="line-404"></a><span class="hs-pragma">{-# INLINE name123NumberL #-}</span><span>
|
||||
</span><a name="line-405"></a><span>
|
||||
</span><a name="line-406"></a><span>
|
||||
</span><a name="line-407"></a><span>
|
||||
</span><a name="line-408"></a><span class="hs-comment">-- * NumberOnly</span><span>
|
||||
</span><a name="line-409"></a><span>
|
||||
</span><a name="line-410"></a><span class="hs-comment">-- | 'numberOnlyJustNumber' Lens</span><span>
|
||||
</span><a name="line-411"></a><span class="hs-identifier">numberOnlyJustNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-type">NumberOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-412"></a><a name="numberOnlyJustNumberL"><a href="SwaggerPetstore.ModelLens.html#numberOnlyJustNumberL"><span class="hs-identifier">numberOnlyJustNumberL</span></a></a><span> </span><a name="local-6989586621679141083"><a href="#local-6989586621679141083"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-var">NumberOnly</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141085"><a href="#local-6989586621679141085"><span class="hs-identifier">numberOnlyJustNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-var">NumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141085"><span class="hs-identifier hs-var">numberOnlyJustNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141083"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141084"><span class="hs-identifier hs-var">numberOnlyJustNumber</span></a><span>
|
||||
</span><a name="line-413"></a><span class="hs-pragma">{-# INLINE numberOnlyJustNumberL #-}</span><span>
|
||||
</span><a name="line-414"></a><span>
|
||||
</span><a name="line-415"></a><span>
|
||||
</span><a name="line-416"></a><span>
|
||||
</span><a name="line-417"></a><span class="hs-comment">-- * Order</span><span>
|
||||
</span><a name="line-418"></a><span>
|
||||
</span><a name="line-419"></a><span class="hs-comment">-- | 'orderId' Lens</span><span>
|
||||
</span><a name="line-420"></a><span class="hs-identifier">orderIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-421"></a><a name="orderIdL"><a href="SwaggerPetstore.ModelLens.html#orderIdL"><span class="hs-identifier">orderIdL</span></a></a><span> </span><a name="local-6989586621679141086"><a href="#local-6989586621679141086"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141093"><a href="#local-6989586621679141093"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141093"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141086"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141087"><span class="hs-identifier hs-var">orderId</span></a><span>
|
||||
</span><a name="line-422"></a><span class="hs-pragma">{-# INLINE orderIdL #-}</span><span>
|
||||
</span><a name="line-423"></a><span>
|
||||
</span><a name="line-424"></a><span class="hs-comment">-- | 'orderPetId' Lens</span><span>
|
||||
</span><a name="line-425"></a><span class="hs-identifier">orderPetIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-426"></a><a name="orderPetIdL"><a href="SwaggerPetstore.ModelLens.html#orderPetIdL"><span class="hs-identifier">orderPetIdL</span></a></a><span> </span><a name="local-6989586621679141094"><a href="#local-6989586621679141094"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141101"><a href="#local-6989586621679141101"><span class="hs-identifier">orderPetId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141101"><span class="hs-identifier hs-var">orderPetId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141094"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141096"><span class="hs-identifier hs-var">orderPetId</span></a><span>
|
||||
</span><a name="line-427"></a><span class="hs-pragma">{-# INLINE orderPetIdL #-}</span><span>
|
||||
</span><a name="line-428"></a><span>
|
||||
</span><a name="line-429"></a><span class="hs-comment">-- | 'orderQuantity' Lens</span><span>
|
||||
</span><a name="line-430"></a><span class="hs-identifier">orderQuantityL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-431"></a><a name="orderQuantityL"><a href="SwaggerPetstore.ModelLens.html#orderQuantityL"><span class="hs-identifier">orderQuantityL</span></a></a><span> </span><a name="local-6989586621679141102"><a href="#local-6989586621679141102"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141109"><a href="#local-6989586621679141109"><span class="hs-identifier">orderQuantity</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141109"><span class="hs-identifier hs-var">orderQuantity</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141102"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141105"><span class="hs-identifier hs-var">orderQuantity</span></a><span>
|
||||
</span><a name="line-432"></a><span class="hs-pragma">{-# INLINE orderQuantityL #-}</span><span>
|
||||
</span><a name="line-433"></a><span>
|
||||
</span><a name="line-434"></a><span class="hs-comment">-- | 'orderShipDate' Lens</span><span>
|
||||
</span><a name="line-435"></a><span class="hs-identifier">orderShipDateL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-436"></a><a name="orderShipDateL"><a href="SwaggerPetstore.ModelLens.html#orderShipDateL"><span class="hs-identifier">orderShipDateL</span></a></a><span> </span><a name="local-6989586621679141110"><a href="#local-6989586621679141110"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141117"><a href="#local-6989586621679141117"><span class="hs-identifier">orderShipDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141117"><span class="hs-identifier hs-var">orderShipDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141110"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141114"><span class="hs-identifier hs-var">orderShipDate</span></a><span>
|
||||
</span><a name="line-437"></a><span class="hs-pragma">{-# INLINE orderShipDateL #-}</span><span>
|
||||
</span><a name="line-438"></a><span>
|
||||
</span><a name="line-439"></a><span class="hs-comment">-- | 'orderStatus' Lens</span><span>
|
||||
</span><a name="line-440"></a><span class="hs-identifier">orderStatusL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-441"></a><a name="orderStatusL"><a href="SwaggerPetstore.ModelLens.html#orderStatusL"><span class="hs-identifier">orderStatusL</span></a></a><span> </span><a name="local-6989586621679141118"><a href="#local-6989586621679141118"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141125"><a href="#local-6989586621679141125"><span class="hs-identifier">orderStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141125"><span class="hs-identifier hs-var">orderStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141118"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141123"><span class="hs-identifier hs-var">orderStatus</span></a><span>
|
||||
</span><a name="line-442"></a><span class="hs-pragma">{-# INLINE orderStatusL #-}</span><span>
|
||||
</span><a name="line-443"></a><span>
|
||||
</span><a name="line-444"></a><span class="hs-comment">-- | 'orderComplete' Lens</span><span>
|
||||
</span><a name="line-445"></a><span class="hs-identifier">orderCompleteL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-446"></a><a name="orderCompleteL"><a href="SwaggerPetstore.ModelLens.html#orderCompleteL"><span class="hs-identifier">orderCompleteL</span></a></a><span> </span><a name="local-6989586621679141126"><a href="#local-6989586621679141126"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141133"><a href="#local-6989586621679141133"><span class="hs-identifier">orderComplete</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141133"><span class="hs-identifier hs-var">orderComplete</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141126"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141132"><span class="hs-identifier hs-var">orderComplete</span></a><span>
|
||||
</span><a name="line-447"></a><span class="hs-pragma">{-# INLINE orderCompleteL #-}</span><span>
|
||||
</span><a name="line-448"></a><span>
|
||||
</span><a name="line-449"></a><span>
|
||||
</span><a name="line-450"></a><span>
|
||||
</span><a name="line-451"></a><span class="hs-comment">-- * OuterBoolean</span><span>
|
||||
</span><a name="line-452"></a><span>
|
||||
</span><a name="line-453"></a><span>
|
||||
</span><a name="line-454"></a><span>
|
||||
</span><a name="line-455"></a><span class="hs-comment">-- * OuterComposite</span><span>
|
||||
</span><a name="line-456"></a><span>
|
||||
</span><a name="line-457"></a><span class="hs-comment">-- | 'outerCompositeMyNumber' Lens</span><span>
|
||||
</span><a name="line-458"></a><span class="hs-identifier">outerCompositeMyNumberL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterNumber"><span class="hs-identifier hs-type">OuterNumber</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-459"></a><a name="outerCompositeMyNumberL"><a href="SwaggerPetstore.ModelLens.html#outerCompositeMyNumberL"><span class="hs-identifier">outerCompositeMyNumberL</span></a></a><span> </span><a name="local-6989586621679141134"><a href="#local-6989586621679141134"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141138"><a href="#local-6989586621679141138"><span class="hs-identifier">outerCompositeMyNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141138"><span class="hs-identifier hs-var">outerCompositeMyNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141134"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141135"><span class="hs-identifier hs-var">outerCompositeMyNumber</span></a><span>
|
||||
</span><a name="line-460"></a><span class="hs-pragma">{-# INLINE outerCompositeMyNumberL #-}</span><span>
|
||||
</span><a name="line-461"></a><span>
|
||||
</span><a name="line-462"></a><span class="hs-comment">-- | 'outerCompositeMyString' Lens</span><span>
|
||||
</span><a name="line-463"></a><span class="hs-identifier">outerCompositeMyStringL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterString"><span class="hs-identifier hs-type">OuterString</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-464"></a><a name="outerCompositeMyStringL"><a href="SwaggerPetstore.ModelLens.html#outerCompositeMyStringL"><span class="hs-identifier">outerCompositeMyStringL</span></a></a><span> </span><a name="local-6989586621679141139"><a href="#local-6989586621679141139"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141143"><a href="#local-6989586621679141143"><span class="hs-identifier">outerCompositeMyString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141143"><span class="hs-identifier hs-var">outerCompositeMyString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141139"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141141"><span class="hs-identifier hs-var">outerCompositeMyString</span></a><span>
|
||||
</span><a name="line-465"></a><span class="hs-pragma">{-# INLINE outerCompositeMyStringL #-}</span><span>
|
||||
</span><a name="line-466"></a><span>
|
||||
</span><a name="line-467"></a><span class="hs-comment">-- | 'outerCompositeMyBoolean' Lens</span><span>
|
||||
</span><a name="line-468"></a><span class="hs-identifier">outerCompositeMyBooleanL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterBoolean"><span class="hs-identifier hs-type">OuterBoolean</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-469"></a><a name="outerCompositeMyBooleanL"><a href="SwaggerPetstore.ModelLens.html#outerCompositeMyBooleanL"><span class="hs-identifier">outerCompositeMyBooleanL</span></a></a><span> </span><a name="local-6989586621679141144"><a href="#local-6989586621679141144"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141148"><a href="#local-6989586621679141148"><span class="hs-identifier">outerCompositeMyBoolean</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141148"><span class="hs-identifier hs-var">outerCompositeMyBoolean</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141144"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141147"><span class="hs-identifier hs-var">outerCompositeMyBoolean</span></a><span>
|
||||
</span><a name="line-470"></a><span class="hs-pragma">{-# INLINE outerCompositeMyBooleanL #-}</span><span>
|
||||
</span><a name="line-471"></a><span>
|
||||
</span><a name="line-472"></a><span>
|
||||
</span><a name="line-473"></a><span>
|
||||
</span><a name="line-474"></a><span class="hs-comment">-- * OuterEnum</span><span>
|
||||
</span><a name="line-475"></a><span>
|
||||
</span><a name="line-476"></a><span>
|
||||
</span><a name="line-477"></a><span>
|
||||
</span><a name="line-478"></a><span class="hs-comment">-- * OuterNumber</span><span>
|
||||
</span><a name="line-479"></a><span>
|
||||
</span><a name="line-480"></a><span>
|
||||
</span><a name="line-481"></a><span>
|
||||
</span><a name="line-482"></a><span class="hs-comment">-- * OuterString</span><span>
|
||||
</span><a name="line-483"></a><span>
|
||||
</span><a name="line-484"></a><span>
|
||||
</span><a name="line-485"></a><span>
|
||||
</span><a name="line-486"></a><span class="hs-comment">-- * Pet</span><span>
|
||||
</span><a name="line-487"></a><span>
|
||||
</span><a name="line-488"></a><span class="hs-comment">-- | 'petId' Lens</span><span>
|
||||
</span><a name="line-489"></a><span class="hs-identifier">petIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-490"></a><a name="petIdL"><a href="SwaggerPetstore.ModelLens.html#petIdL"><span class="hs-identifier">petIdL</span></a></a><span> </span><a name="local-6989586621679141149"><a href="#local-6989586621679141149"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141156"><a href="#local-6989586621679141156"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141156"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141149"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141150"><span class="hs-identifier hs-var">petId</span></a><span>
|
||||
</span><a name="line-491"></a><span class="hs-pragma">{-# INLINE petIdL #-}</span><span>
|
||||
</span><a name="line-492"></a><span>
|
||||
</span><a name="line-493"></a><span class="hs-comment">-- | 'petCategory' Lens</span><span>
|
||||
</span><a name="line-494"></a><span class="hs-identifier">petCategoryL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-495"></a><a name="petCategoryL"><a href="SwaggerPetstore.ModelLens.html#petCategoryL"><span class="hs-identifier">petCategoryL</span></a></a><span> </span><a name="local-6989586621679141157"><a href="#local-6989586621679141157"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141164"><a href="#local-6989586621679141164"><span class="hs-identifier">petCategory</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141164"><span class="hs-identifier hs-var">petCategory</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141157"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141159"><span class="hs-identifier hs-var">petCategory</span></a><span>
|
||||
</span><a name="line-496"></a><span class="hs-pragma">{-# INLINE petCategoryL #-}</span><span>
|
||||
</span><a name="line-497"></a><span>
|
||||
</span><a name="line-498"></a><span class="hs-comment">-- | 'petName' Lens</span><span>
|
||||
</span><a name="line-499"></a><span class="hs-identifier">petNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-500"></a><a name="petNameL"><a href="SwaggerPetstore.ModelLens.html#petNameL"><span class="hs-identifier">petNameL</span></a></a><span> </span><a name="local-6989586621679141165"><a href="#local-6989586621679141165"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141172"><a href="#local-6989586621679141172"><span class="hs-identifier">petName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141172"><span class="hs-identifier hs-var">petName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141165"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141168"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-501"></a><span class="hs-pragma">{-# INLINE petNameL #-}</span><span>
|
||||
</span><a name="line-502"></a><span>
|
||||
</span><a name="line-503"></a><span class="hs-comment">-- | 'petPhotoUrls' Lens</span><span>
|
||||
</span><a name="line-504"></a><span class="hs-identifier">petPhotoUrlsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-505"></a><a name="petPhotoUrlsL"><a href="SwaggerPetstore.ModelLens.html#petPhotoUrlsL"><span class="hs-identifier">petPhotoUrlsL</span></a></a><span> </span><a name="local-6989586621679141173"><a href="#local-6989586621679141173"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141180"><a href="#local-6989586621679141180"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141180"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141173"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141177"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-506"></a><span class="hs-pragma">{-# INLINE petPhotoUrlsL #-}</span><span>
|
||||
</span><a name="line-507"></a><span>
|
||||
</span><a name="line-508"></a><span class="hs-comment">-- | 'petTags' Lens</span><span>
|
||||
</span><a name="line-509"></a><span class="hs-identifier">petTagsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-510"></a><a name="petTagsL"><a href="SwaggerPetstore.ModelLens.html#petTagsL"><span class="hs-identifier">petTagsL</span></a></a><span> </span><a name="local-6989586621679141181"><a href="#local-6989586621679141181"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141188"><a href="#local-6989586621679141188"><span class="hs-identifier">petTags</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141188"><span class="hs-identifier hs-var">petTags</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141181"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141186"><span class="hs-identifier hs-var">petTags</span></a><span>
|
||||
</span><a name="line-511"></a><span class="hs-pragma">{-# INLINE petTagsL #-}</span><span>
|
||||
</span><a name="line-512"></a><span>
|
||||
</span><a name="line-513"></a><span class="hs-comment">-- | 'petStatus' Lens</span><span>
|
||||
</span><a name="line-514"></a><span class="hs-identifier">petStatusL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-515"></a><a name="petStatusL"><a href="SwaggerPetstore.ModelLens.html#petStatusL"><span class="hs-identifier">petStatusL</span></a></a><span> </span><a name="local-6989586621679141189"><a href="#local-6989586621679141189"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141196"><a href="#local-6989586621679141196"><span class="hs-identifier">petStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141196"><span class="hs-identifier hs-var">petStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141189"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141195"><span class="hs-identifier hs-var">petStatus</span></a><span>
|
||||
</span><a name="line-516"></a><span class="hs-pragma">{-# INLINE petStatusL #-}</span><span>
|
||||
</span><a name="line-517"></a><span>
|
||||
</span><a name="line-518"></a><span>
|
||||
</span><a name="line-519"></a><span>
|
||||
</span><a name="line-520"></a><span class="hs-comment">-- * ReadOnlyFirst</span><span>
|
||||
</span><a name="line-521"></a><span>
|
||||
</span><a name="line-522"></a><span class="hs-comment">-- | 'readOnlyFirstBar' Lens</span><span>
|
||||
</span><a name="line-523"></a><span class="hs-identifier">readOnlyFirstBarL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-type">ReadOnlyFirst</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-524"></a><a name="readOnlyFirstBarL"><a href="SwaggerPetstore.ModelLens.html#readOnlyFirstBarL"><span class="hs-identifier">readOnlyFirstBarL</span></a></a><span> </span><a name="local-6989586621679141197"><a href="#local-6989586621679141197"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141200"><a href="#local-6989586621679141200"><span class="hs-identifier">readOnlyFirstBar</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141200"><span class="hs-identifier hs-var">readOnlyFirstBar</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141197"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141198"><span class="hs-identifier hs-var">readOnlyFirstBar</span></a><span>
|
||||
</span><a name="line-525"></a><span class="hs-pragma">{-# INLINE readOnlyFirstBarL #-}</span><span>
|
||||
</span><a name="line-526"></a><span>
|
||||
</span><a name="line-527"></a><span class="hs-comment">-- | 'readOnlyFirstBaz' Lens</span><span>
|
||||
</span><a name="line-528"></a><span class="hs-identifier">readOnlyFirstBazL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-type">ReadOnlyFirst</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-529"></a><a name="readOnlyFirstBazL"><a href="SwaggerPetstore.ModelLens.html#readOnlyFirstBazL"><span class="hs-identifier">readOnlyFirstBazL</span></a></a><span> </span><a name="local-6989586621679141201"><a href="#local-6989586621679141201"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141204"><a href="#local-6989586621679141204"><span class="hs-identifier">readOnlyFirstBaz</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141204"><span class="hs-identifier hs-var">readOnlyFirstBaz</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141201"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141203"><span class="hs-identifier hs-var">readOnlyFirstBaz</span></a><span>
|
||||
</span><a name="line-530"></a><span class="hs-pragma">{-# INLINE readOnlyFirstBazL #-}</span><span>
|
||||
</span><a name="line-531"></a><span>
|
||||
</span><a name="line-532"></a><span>
|
||||
</span><a name="line-533"></a><span>
|
||||
</span><a name="line-534"></a><span class="hs-comment">-- * SpecialModelName</span><span>
|
||||
</span><a name="line-535"></a><span>
|
||||
</span><a name="line-536"></a><span class="hs-comment">-- | 'specialModelNameSpecialPropertyName' Lens</span><span>
|
||||
</span><a name="line-537"></a><span class="hs-identifier">specialModelNameSpecialPropertyNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-type">SpecialModelName</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-538"></a><a name="specialModelNameSpecialPropertyNameL"><a href="SwaggerPetstore.ModelLens.html#specialModelNameSpecialPropertyNameL"><span class="hs-identifier">specialModelNameSpecialPropertyNameL</span></a></a><span> </span><a name="local-6989586621679141205"><a href="#local-6989586621679141205"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-var">SpecialModelName</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141207"><a href="#local-6989586621679141207"><span class="hs-identifier">specialModelNameSpecialPropertyName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-var">SpecialModelName</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141207"><span class="hs-identifier hs-var">specialModelNameSpecialPropertyName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141205"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141206"><span class="hs-identifier hs-var">specialModelNameSpecialPropertyName</span></a><span>
|
||||
</span><a name="line-539"></a><span class="hs-pragma">{-# INLINE specialModelNameSpecialPropertyNameL #-}</span><span>
|
||||
</span><a name="line-540"></a><span>
|
||||
</span><a name="line-541"></a><span>
|
||||
</span><a name="line-542"></a><span>
|
||||
</span><a name="line-543"></a><span class="hs-comment">-- * Tag</span><span>
|
||||
</span><a name="line-544"></a><span>
|
||||
</span><a name="line-545"></a><span class="hs-comment">-- | 'tagId' Lens</span><span>
|
||||
</span><a name="line-546"></a><span class="hs-identifier">tagIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-547"></a><a name="tagIdL"><a href="SwaggerPetstore.ModelLens.html#tagIdL"><span class="hs-identifier">tagIdL</span></a></a><span> </span><a name="local-6989586621679141208"><a href="#local-6989586621679141208"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141211"><a href="#local-6989586621679141211"><span class="hs-identifier">tagId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141211"><span class="hs-identifier hs-var">tagId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141208"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141209"><span class="hs-identifier hs-var">tagId</span></a><span>
|
||||
</span><a name="line-548"></a><span class="hs-pragma">{-# INLINE tagIdL #-}</span><span>
|
||||
</span><a name="line-549"></a><span>
|
||||
</span><a name="line-550"></a><span class="hs-comment">-- | 'tagName' Lens</span><span>
|
||||
</span><a name="line-551"></a><span class="hs-identifier">tagNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-552"></a><a name="tagNameL"><a href="SwaggerPetstore.ModelLens.html#tagNameL"><span class="hs-identifier">tagNameL</span></a></a><span> </span><a name="local-6989586621679141212"><a href="#local-6989586621679141212"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141215"><a href="#local-6989586621679141215"><span class="hs-identifier">tagName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141215"><span class="hs-identifier hs-var">tagName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141212"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141214"><span class="hs-identifier hs-var">tagName</span></a><span>
|
||||
</span><a name="line-553"></a><span class="hs-pragma">{-# INLINE tagNameL #-}</span><span>
|
||||
</span><a name="line-554"></a><span>
|
||||
</span><a name="line-555"></a><span>
|
||||
</span><a name="line-556"></a><span>
|
||||
</span><a name="line-557"></a><span class="hs-comment">-- * User</span><span>
|
||||
</span><a name="line-558"></a><span>
|
||||
</span><a name="line-559"></a><span class="hs-comment">-- | 'userId' Lens</span><span>
|
||||
</span><a name="line-560"></a><span class="hs-identifier">userIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-561"></a><a name="userIdL"><a href="SwaggerPetstore.ModelLens.html#userIdL"><span class="hs-identifier">userIdL</span></a></a><span> </span><a name="local-6989586621679141216"><a href="#local-6989586621679141216"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141225"><a href="#local-6989586621679141225"><span class="hs-identifier">userId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141225"><span class="hs-identifier hs-var">userId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141216"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141217"><span class="hs-identifier hs-var">userId</span></a><span>
|
||||
</span><a name="line-562"></a><span class="hs-pragma">{-# INLINE userIdL #-}</span><span>
|
||||
</span><a name="line-563"></a><span>
|
||||
</span><a name="line-564"></a><span class="hs-comment">-- | 'userUsername' Lens</span><span>
|
||||
</span><a name="line-565"></a><span class="hs-identifier">userUsernameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-566"></a><a name="userUsernameL"><a href="SwaggerPetstore.ModelLens.html#userUsernameL"><span class="hs-identifier">userUsernameL</span></a></a><span> </span><a name="local-6989586621679141226"><a href="#local-6989586621679141226"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141235"><a href="#local-6989586621679141235"><span class="hs-identifier">userUsername</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141235"><span class="hs-identifier hs-var">userUsername</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141226"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141228"><span class="hs-identifier hs-var">userUsername</span></a><span>
|
||||
</span><a name="line-567"></a><span class="hs-pragma">{-# INLINE userUsernameL #-}</span><span>
|
||||
</span><a name="line-568"></a><span>
|
||||
</span><a name="line-569"></a><span class="hs-comment">-- | 'userFirstName' Lens</span><span>
|
||||
</span><a name="line-570"></a><span class="hs-identifier">userFirstNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-571"></a><a name="userFirstNameL"><a href="SwaggerPetstore.ModelLens.html#userFirstNameL"><span class="hs-identifier">userFirstNameL</span></a></a><span> </span><a name="local-6989586621679141236"><a href="#local-6989586621679141236"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141245"><a href="#local-6989586621679141245"><span class="hs-identifier">userFirstName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141245"><span class="hs-identifier hs-var">userFirstName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141236"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141239"><span class="hs-identifier hs-var">userFirstName</span></a><span>
|
||||
</span><a name="line-572"></a><span class="hs-pragma">{-# INLINE userFirstNameL #-}</span><span>
|
||||
</span><a name="line-573"></a><span>
|
||||
</span><a name="line-574"></a><span class="hs-comment">-- | 'userLastName' Lens</span><span>
|
||||
</span><a name="line-575"></a><span class="hs-identifier">userLastNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-576"></a><a name="userLastNameL"><a href="SwaggerPetstore.ModelLens.html#userLastNameL"><span class="hs-identifier">userLastNameL</span></a></a><span> </span><a name="local-6989586621679141246"><a href="#local-6989586621679141246"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141255"><a href="#local-6989586621679141255"><span class="hs-identifier">userLastName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141255"><span class="hs-identifier hs-var">userLastName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141246"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141250"><span class="hs-identifier hs-var">userLastName</span></a><span>
|
||||
</span><a name="line-577"></a><span class="hs-pragma">{-# INLINE userLastNameL #-}</span><span>
|
||||
</span><a name="line-578"></a><span>
|
||||
</span><a name="line-579"></a><span class="hs-comment">-- | 'userEmail' Lens</span><span>
|
||||
</span><a name="line-580"></a><span class="hs-identifier">userEmailL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-581"></a><a name="userEmailL"><a href="SwaggerPetstore.ModelLens.html#userEmailL"><span class="hs-identifier">userEmailL</span></a></a><span> </span><a name="local-6989586621679141256"><a href="#local-6989586621679141256"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141265"><a href="#local-6989586621679141265"><span class="hs-identifier">userEmail</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141265"><span class="hs-identifier hs-var">userEmail</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141256"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141261"><span class="hs-identifier hs-var">userEmail</span></a><span>
|
||||
</span><a name="line-582"></a><span class="hs-pragma">{-# INLINE userEmailL #-}</span><span>
|
||||
</span><a name="line-583"></a><span>
|
||||
</span><a name="line-584"></a><span class="hs-comment">-- | 'userPassword' Lens</span><span>
|
||||
</span><a name="line-585"></a><span class="hs-identifier">userPasswordL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-586"></a><a name="userPasswordL"><a href="SwaggerPetstore.ModelLens.html#userPasswordL"><span class="hs-identifier">userPasswordL</span></a></a><span> </span><a name="local-6989586621679141266"><a href="#local-6989586621679141266"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141275"><a href="#local-6989586621679141275"><span class="hs-identifier">userPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141275"><span class="hs-identifier hs-var">userPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141266"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141272"><span class="hs-identifier hs-var">userPassword</span></a><span>
|
||||
</span><a name="line-587"></a><span class="hs-pragma">{-# INLINE userPasswordL #-}</span><span>
|
||||
</span><a name="line-588"></a><span>
|
||||
</span><a name="line-589"></a><span class="hs-comment">-- | 'userPhone' Lens</span><span>
|
||||
</span><a name="line-590"></a><span class="hs-identifier">userPhoneL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-591"></a><a name="userPhoneL"><a href="SwaggerPetstore.ModelLens.html#userPhoneL"><span class="hs-identifier">userPhoneL</span></a></a><span> </span><a name="local-6989586621679141276"><a href="#local-6989586621679141276"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141285"><a href="#local-6989586621679141285"><span class="hs-identifier">userPhone</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141285"><span class="hs-identifier hs-var">userPhone</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141276"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141283"><span class="hs-identifier hs-var">userPhone</span></a><span>
|
||||
</span><a name="line-592"></a><span class="hs-pragma">{-# INLINE userPhoneL #-}</span><span>
|
||||
</span><a name="line-593"></a><span>
|
||||
</span><a name="line-594"></a><span class="hs-comment">-- | 'userUserStatus' Lens</span><span>
|
||||
</span><a name="line-595"></a><span class="hs-identifier">userUserStatusL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-596"></a><a name="userUserStatusL"><a href="SwaggerPetstore.ModelLens.html#userUserStatusL"><span class="hs-identifier">userUserStatusL</span></a></a><span> </span><a name="local-6989586621679141286"><a href="#local-6989586621679141286"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141295"><a href="#local-6989586621679141295"><span class="hs-identifier">userUserStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141295"><span class="hs-identifier hs-var">userUserStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141286"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141294"><span class="hs-identifier hs-var">userUserStatus</span></a><span>
|
||||
</span><a name="line-597"></a><span class="hs-pragma">{-# INLINE userUserStatusL #-}</span><span>
|
||||
</span><a name="line-598"></a><span>
|
||||
</span><a name="line-599"></a><span>
|
||||
</span><a name="line-600"></a><span>
|
||||
</span><a name="line-601"></a><span class="hs-comment">-- * Cat</span><span>
|
||||
</span><a name="line-602"></a><span>
|
||||
</span><a name="line-603"></a><span class="hs-comment">-- | 'catClassName' Lens</span><span>
|
||||
</span><a name="line-604"></a><span class="hs-identifier">catClassNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-type">Cat</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-605"></a><a name="catClassNameL"><a href="SwaggerPetstore.ModelLens.html#catClassNameL"><span class="hs-identifier">catClassNameL</span></a></a><span> </span><a name="local-6989586621679141296"><a href="#local-6989586621679141296"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141300"><a href="#local-6989586621679141300"><span class="hs-identifier">catClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141300"><span class="hs-identifier hs-var">catClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141296"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141297"><span class="hs-identifier hs-var">catClassName</span></a><span>
|
||||
</span><a name="line-606"></a><span class="hs-pragma">{-# INLINE catClassNameL #-}</span><span>
|
||||
</span><a name="line-607"></a><span>
|
||||
</span><a name="line-608"></a><span class="hs-comment">-- | 'catColor' Lens</span><span>
|
||||
</span><a name="line-609"></a><span class="hs-identifier">catColorL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-type">Cat</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-610"></a><a name="catColorL"><a href="SwaggerPetstore.ModelLens.html#catColorL"><span class="hs-identifier">catColorL</span></a></a><span> </span><a name="local-6989586621679141301"><a href="#local-6989586621679141301"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141305"><a href="#local-6989586621679141305"><span class="hs-identifier">catColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141305"><span class="hs-identifier hs-var">catColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141301"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141303"><span class="hs-identifier hs-var">catColor</span></a><span>
|
||||
</span><a name="line-611"></a><span class="hs-pragma">{-# INLINE catColorL #-}</span><span>
|
||||
</span><a name="line-612"></a><span>
|
||||
</span><a name="line-613"></a><span class="hs-comment">-- | 'catDeclawed' Lens</span><span>
|
||||
</span><a name="line-614"></a><span class="hs-identifier">catDeclawedL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-type">Cat</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-615"></a><a name="catDeclawedL"><a href="SwaggerPetstore.ModelLens.html#catDeclawedL"><span class="hs-identifier">catDeclawedL</span></a></a><span> </span><a name="local-6989586621679141306"><a href="#local-6989586621679141306"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141310"><a href="#local-6989586621679141310"><span class="hs-identifier">catDeclawed</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141310"><span class="hs-identifier hs-var">catDeclawed</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141306"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141309"><span class="hs-identifier hs-var">catDeclawed</span></a><span>
|
||||
</span><a name="line-616"></a><span class="hs-pragma">{-# INLINE catDeclawedL #-}</span><span>
|
||||
</span><a name="line-617"></a><span>
|
||||
</span><a name="line-618"></a><span>
|
||||
</span><a name="line-619"></a><span>
|
||||
</span><a name="line-620"></a><span class="hs-comment">-- * Dog</span><span>
|
||||
</span><a name="line-621"></a><span>
|
||||
</span><a name="line-622"></a><span class="hs-comment">-- | 'dogClassName' Lens</span><span>
|
||||
</span><a name="line-623"></a><span class="hs-identifier">dogClassNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-type">Dog</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-624"></a><a name="dogClassNameL"><a href="SwaggerPetstore.ModelLens.html#dogClassNameL"><span class="hs-identifier">dogClassNameL</span></a></a><span> </span><a name="local-6989586621679141311"><a href="#local-6989586621679141311"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141315"><a href="#local-6989586621679141315"><span class="hs-identifier">dogClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141315"><span class="hs-identifier hs-var">dogClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141311"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141312"><span class="hs-identifier hs-var">dogClassName</span></a><span>
|
||||
</span><a name="line-625"></a><span class="hs-pragma">{-# INLINE dogClassNameL #-}</span><span>
|
||||
</span><a name="line-626"></a><span>
|
||||
</span><a name="line-627"></a><span class="hs-comment">-- | 'dogColor' Lens</span><span>
|
||||
</span><a name="line-628"></a><span class="hs-identifier">dogColorL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-type">Dog</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-629"></a><a name="dogColorL"><a href="SwaggerPetstore.ModelLens.html#dogColorL"><span class="hs-identifier">dogColorL</span></a></a><span> </span><a name="local-6989586621679141316"><a href="#local-6989586621679141316"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141320"><a href="#local-6989586621679141320"><span class="hs-identifier">dogColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141320"><span class="hs-identifier hs-var">dogColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141316"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141318"><span class="hs-identifier hs-var">dogColor</span></a><span>
|
||||
</span><a name="line-630"></a><span class="hs-pragma">{-# INLINE dogColorL #-}</span><span>
|
||||
</span><a name="line-631"></a><span>
|
||||
</span><a name="line-632"></a><span class="hs-comment">-- | 'dogBreed' Lens</span><span>
|
||||
</span><a name="line-633"></a><span class="hs-identifier">dogBreedL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-type">Dog</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-634"></a><a name="dogBreedL"><a href="SwaggerPetstore.ModelLens.html#dogBreedL"><span class="hs-identifier">dogBreedL</span></a></a><span> </span><a name="local-6989586621679141321"><a href="#local-6989586621679141321"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679141325"><a href="#local-6989586621679141325"><span class="hs-identifier">dogBreed</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679141325"><span class="hs-identifier hs-var">dogBreed</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679141321"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679141324"><span class="hs-identifier hs-var">dogBreed</span></a><span>
|
||||
</span><a name="line-635"></a><span class="hs-pragma">{-# INLINE dogBreedL #-}</span><span>
|
||||
</span><a name="line-636"></a><span>
|
||||
</span><a name="line-637"></a><span>
|
||||
</span><a name="line-638"></a></pre></body></html>
|
||||
@ -14,18 +14,20 @@ Module : SwaggerPetstore
|
||||
-}</span><span>
|
||||
</span><a name="line-15"></a><span>
|
||||
</span><a name="line-16"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span>
|
||||
</span><a name="line-17"></a><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span>
|
||||
</span><a name="line-18"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">API</span><span>
|
||||
</span><a name="line-19"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span><span>
|
||||
</span><a name="line-20"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">MimeTypes</span><span>
|
||||
</span><a name="line-21"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Lens</span><span>
|
||||
</span><a name="line-22"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Logging</span><span>
|
||||
</span><a name="line-23"></a><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-24"></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.API.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">API</span></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Client.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span></a><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Model.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span></a><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.MimeTypes.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">MimeTypes</span></a><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Lens.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Lens</span></a><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Logging.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Logging</span></a><span>
|
||||
</span><a name="line-31"></a></pre></body></html>
|
||||
</span><a name="line-17"></a><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">API</span><span>
|
||||
</span><a name="line-18"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span>
|
||||
</span><a name="line-19"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Core</span><span>
|
||||
</span><a name="line-20"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Logging</span><span>
|
||||
</span><a name="line-21"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">MimeTypes</span><span>
|
||||
</span><a name="line-22"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span><span>
|
||||
</span><a name="line-23"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">ModelLens</span><span>
|
||||
</span><a name="line-24"></a><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-25"></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.API.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">API</span></a><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Client.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span></a><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Core.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Core</span></a><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Logging.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Logging</span></a><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.MimeTypes.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">MimeTypes</span></a><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.Model.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span></a><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><a href="SwaggerPetstore.ModelLens.html"><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">ModelLens</span></a><span>
|
||||
</span><a name="line-33"></a></pre></body></html>
|
||||
@ -14,17 +14,19 @@ Module : SwaggerPetstore
|
||||
-}
|
||||
|
||||
module SwaggerPetstore
|
||||
( module SwaggerPetstore.Client
|
||||
, module SwaggerPetstore.API
|
||||
, module SwaggerPetstore.Model
|
||||
, module SwaggerPetstore.MimeTypes
|
||||
, module SwaggerPetstore.Lens
|
||||
( module SwaggerPetstore.API
|
||||
, module SwaggerPetstore.Client
|
||||
, module SwaggerPetstore.Core
|
||||
, module SwaggerPetstore.Logging
|
||||
, module SwaggerPetstore.MimeTypes
|
||||
, module SwaggerPetstore.Model
|
||||
, module SwaggerPetstore.ModelLens
|
||||
) where
|
||||
|
||||
import SwaggerPetstore.API
|
||||
import SwaggerPetstore.Client
|
||||
import SwaggerPetstore.Model
|
||||
import SwaggerPetstore.MimeTypes
|
||||
import SwaggerPetstore.Lens
|
||||
import SwaggerPetstore.Core
|
||||
import SwaggerPetstore.Logging
|
||||
import SwaggerPetstore.MimeTypes
|
||||
import SwaggerPetstore.Model
|
||||
import SwaggerPetstore.ModelLens
|
||||
|
||||
@ -14,6 +14,7 @@ Module : SwaggerPetstore.API
|
||||
-}
|
||||
|
||||
{-# LANGUAGE ConstraintKinds #-}
|
||||
{-# LANGUAGE ExistentialQuantification #-}
|
||||
{-# LANGUAGE FlexibleContexts #-}
|
||||
{-# LANGUAGE FlexibleInstances #-}
|
||||
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
||||
@ -23,49 +24,38 @@ Module : SwaggerPetstore.API
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
{-# LANGUAGE ExistentialQuantification #-}
|
||||
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
|
||||
|
||||
module SwaggerPetstore.API where
|
||||
|
||||
|
||||
import SwaggerPetstore.Model as M
|
||||
import SwaggerPetstore.Core
|
||||
import SwaggerPetstore.MimeTypes
|
||||
import SwaggerPetstore.Lens
|
||||
import SwaggerPetstore.Model as M
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
|
||||
import qualified Data.Time as TI
|
||||
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Builder as BB
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
import qualified Data.ByteString.Base64 as B64
|
||||
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Media as ME
|
||||
import qualified Network.HTTP.Types as NH
|
||||
|
||||
import qualified Web.HttpApiData as WH
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
|
||||
import qualified Data.CaseInsensitive as CI
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
|
||||
import qualified Data.Foldable as P
|
||||
import qualified Data.Map as Map
|
||||
import qualified Data.Set as Set
|
||||
import qualified Data.Maybe as P
|
||||
import qualified Data.Proxy as P (Proxy(..))
|
||||
import qualified Data.Set as Set
|
||||
import qualified Data.String as P
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Data.Text.Lazy as TL
|
||||
import qualified Data.Text.Lazy.Encoding as TL
|
||||
import qualified Data.Time as TI
|
||||
import qualified GHC.Base as P (Alternative)
|
||||
import qualified Control.Arrow as P (left)
|
||||
|
||||
import qualified Lens.Micro as L
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Media as ME
|
||||
import qualified Network.HTTP.Types as NH
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Function ((&))
|
||||
@ -993,240 +983,46 @@ instance Produces UpdateUser MimeJSON
|
||||
|
||||
|
||||
|
||||
-- * HasBodyParam
|
||||
-- * Parameter newtypes
|
||||
|
||||
-- | Designates the body parameter of a request
|
||||
class HasBodyParam req param where
|
||||
setBodyParam :: forall contentType res. (Consumes req contentType, MimeRender contentType param) => SwaggerPetstoreRequest req contentType res -> param -> SwaggerPetstoreRequest req contentType res
|
||||
setBodyParam req xs =
|
||||
req `_setBodyLBS` mimeRender (P.Proxy :: P.Proxy contentType) xs & _setContentTypeHeader
|
||||
newtype AdditionalMetadata = AdditionalMetadata { unAdditionalMetadata :: Text } deriving (P.Eq, P.Show)
|
||||
newtype ApiKey = ApiKey { unApiKey :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Body = Body { unBody :: [User] } deriving (P.Eq, P.Show, A.ToJSON)
|
||||
newtype Byte = Byte { unByte :: ByteArray } deriving (P.Eq, P.Show)
|
||||
newtype Callback = Callback { unCallback :: Text } deriving (P.Eq, P.Show)
|
||||
newtype EnumFormString = EnumFormString { unEnumFormString :: Text } deriving (P.Eq, P.Show)
|
||||
newtype EnumFormStringArray = EnumFormStringArray { unEnumFormStringArray :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype EnumHeaderString = EnumHeaderString { unEnumHeaderString :: Text } deriving (P.Eq, P.Show)
|
||||
newtype EnumHeaderStringArray = EnumHeaderStringArray { unEnumHeaderStringArray :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype EnumQueryDouble = EnumQueryDouble { unEnumQueryDouble :: Double } deriving (P.Eq, P.Show)
|
||||
newtype EnumQueryInteger = EnumQueryInteger { unEnumQueryInteger :: Int } deriving (P.Eq, P.Show)
|
||||
newtype EnumQueryString = EnumQueryString { unEnumQueryString :: Text } deriving (P.Eq, P.Show)
|
||||
newtype EnumQueryStringArray = EnumQueryStringArray { unEnumQueryStringArray :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype File = File { unFile :: FilePath } deriving (P.Eq, P.Show)
|
||||
newtype Int32 = Int32 { unInt32 :: Int } deriving (P.Eq, P.Show)
|
||||
newtype Int64 = Int64 { unInt64 :: Integer } deriving (P.Eq, P.Show)
|
||||
newtype Name2 = Name2 { unName2 :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Number = Number { unNumber :: Double } deriving (P.Eq, P.Show)
|
||||
newtype OrderId = OrderId { unOrderId :: Integer } deriving (P.Eq, P.Show)
|
||||
newtype OrderIdText = OrderIdText { unOrderIdText :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Param = Param { unParam :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Param2 = Param2 { unParam2 :: Text } deriving (P.Eq, P.Show)
|
||||
newtype ParamBinary = ParamBinary { unParamBinary :: Binary } deriving (P.Eq, P.Show)
|
||||
newtype ParamDate = ParamDate { unParamDate :: Date } deriving (P.Eq, P.Show)
|
||||
newtype ParamDateTime = ParamDateTime { unParamDateTime :: DateTime } deriving (P.Eq, P.Show)
|
||||
newtype ParamDouble = ParamDouble { unParamDouble :: Double } deriving (P.Eq, P.Show)
|
||||
newtype ParamFloat = ParamFloat { unParamFloat :: Float } deriving (P.Eq, P.Show)
|
||||
newtype ParamInteger = ParamInteger { unParamInteger :: Int } deriving (P.Eq, P.Show)
|
||||
newtype ParamString = ParamString { unParamString :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Password = Password { unPassword :: Text } deriving (P.Eq, P.Show)
|
||||
newtype PatternWithoutDelimiter = PatternWithoutDelimiter { unPatternWithoutDelimiter :: Text } deriving (P.Eq, P.Show)
|
||||
newtype PetId = PetId { unPetId :: Integer } deriving (P.Eq, P.Show)
|
||||
newtype Status = Status { unStatus :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype StatusText = StatusText { unStatusText :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Tags = Tags { unTags :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype Username = Username { unUsername :: Text } deriving (P.Eq, P.Show)
|
||||
|
||||
-- * HasOptionalParam
|
||||
|
||||
-- | Designates the optional parameters of a request
|
||||
class HasOptionalParam req param where
|
||||
{-# MINIMAL applyOptionalParam | (-&-) #-}
|
||||
|
||||
-- | Apply an optional parameter to a request
|
||||
applyOptionalParam :: SwaggerPetstoreRequest req contentType res -> param -> SwaggerPetstoreRequest req contentType res
|
||||
applyOptionalParam = (-&-)
|
||||
{-# INLINE applyOptionalParam #-}
|
||||
|
||||
-- | infix operator \/ alias for 'addOptionalParam'
|
||||
(-&-) :: SwaggerPetstoreRequest req contentType res -> param -> SwaggerPetstoreRequest req contentType res
|
||||
(-&-) = applyOptionalParam
|
||||
{-# INLINE (-&-) #-}
|
||||
|
||||
infixl 2 -&-
|
||||
|
||||
-- * SwaggerPetstoreRequest
|
||||
|
||||
-- | Represents a request. The "req" type variable is the request type. The "res" type variable is the response type.
|
||||
data SwaggerPetstoreRequest req contentType res = SwaggerPetstoreRequest
|
||||
{ rMethod :: NH.Method -- ^ Method of SwaggerPetstoreRequest
|
||||
, rUrlPath :: [BCL.ByteString] -- ^ Endpoint of SwaggerPetstoreRequest
|
||||
, rParams :: Params -- ^ params of SwaggerPetstoreRequest
|
||||
, rAuthTypes :: [P.TypeRep] -- ^ types of auth methods
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'rMethod' Lens
|
||||
rMethodL :: Lens_' (SwaggerPetstoreRequest req contentType res) NH.Method
|
||||
rMethodL f SwaggerPetstoreRequest{..} = (\rMethod -> SwaggerPetstoreRequest { rMethod, ..} ) <$> f rMethod
|
||||
{-# INLINE rMethodL #-}
|
||||
|
||||
-- | 'rUrlPath' Lens
|
||||
rUrlPathL :: Lens_' (SwaggerPetstoreRequest req contentType res) [BCL.ByteString]
|
||||
rUrlPathL f SwaggerPetstoreRequest{..} = (\rUrlPath -> SwaggerPetstoreRequest { rUrlPath, ..} ) <$> f rUrlPath
|
||||
{-# INLINE rUrlPathL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rParamsL :: Lens_' (SwaggerPetstoreRequest req contentType res) Params
|
||||
rParamsL f SwaggerPetstoreRequest{..} = (\rParams -> SwaggerPetstoreRequest { rParams, ..} ) <$> f rParams
|
||||
{-# INLINE rParamsL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rAuthTypesL :: Lens_' (SwaggerPetstoreRequest req contentType res) [P.TypeRep]
|
||||
rAuthTypesL f SwaggerPetstoreRequest{..} = (\rAuthTypes -> SwaggerPetstoreRequest { rAuthTypes, ..} ) <$> f rAuthTypes
|
||||
{-# INLINE rAuthTypesL #-}
|
||||
|
||||
-- | Request Params
|
||||
data Params = Params
|
||||
{ paramsQuery :: NH.Query
|
||||
, paramsHeaders :: NH.RequestHeaders
|
||||
, paramsBody :: ParamBody
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'paramsQuery' Lens
|
||||
paramsQueryL :: Lens_' Params NH.Query
|
||||
paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery
|
||||
{-# INLINE paramsQueryL #-}
|
||||
|
||||
-- | 'paramsHeaders' Lens
|
||||
paramsHeadersL :: Lens_' Params NH.RequestHeaders
|
||||
paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders
|
||||
{-# INLINE paramsHeadersL #-}
|
||||
|
||||
-- | 'paramsBody' Lens
|
||||
paramsBodyL :: Lens_' Params ParamBody
|
||||
paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody
|
||||
{-# INLINE paramsBodyL #-}
|
||||
|
||||
-- | Request Body
|
||||
data ParamBody
|
||||
= ParamBodyNone
|
||||
| ParamBodyB B.ByteString
|
||||
| ParamBodyBL BL.ByteString
|
||||
| ParamBodyFormUrlEncoded WH.Form
|
||||
| ParamBodyMultipartFormData [NH.Part]
|
||||
deriving (P.Show)
|
||||
|
||||
-- ** SwaggerPetstoreRequest Utils
|
||||
|
||||
_mkRequest :: NH.Method -- ^ Method
|
||||
-> [BCL.ByteString] -- ^ Endpoint
|
||||
-> SwaggerPetstoreRequest req contentType res -- ^ req: Request Type, res: Response Type
|
||||
_mkRequest m u = SwaggerPetstoreRequest m u _mkParams []
|
||||
|
||||
_mkParams :: Params
|
||||
_mkParams = Params [] [] ParamBodyNone
|
||||
|
||||
setHeader :: SwaggerPetstoreRequest req contentType res -> [NH.Header] -> SwaggerPetstoreRequest req contentType res
|
||||
setHeader req header =
|
||||
req `removeHeader` P.fmap P.fst header &
|
||||
L.over (rParamsL . paramsHeadersL) (header P.++)
|
||||
|
||||
removeHeader :: SwaggerPetstoreRequest req contentType res -> [NH.HeaderName] -> SwaggerPetstoreRequest req contentType res
|
||||
removeHeader req header =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsHeadersL)
|
||||
(P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
|
||||
_setContentTypeHeader :: forall req contentType res. MimeType contentType => SwaggerPetstoreRequest req contentType res -> SwaggerPetstoreRequest req contentType res
|
||||
_setContentTypeHeader req =
|
||||
case mimeType (P.Proxy :: P.Proxy contentType) of
|
||||
Just m -> req `setHeader` [("content-type", BC.pack $ P.show m)]
|
||||
Nothing -> req `removeHeader` ["content-type"]
|
||||
|
||||
_setAcceptHeader :: forall req contentType res accept. MimeType accept => SwaggerPetstoreRequest req contentType res -> accept -> SwaggerPetstoreRequest req contentType res
|
||||
_setAcceptHeader req accept =
|
||||
case mimeType' accept of
|
||||
Just m -> req `setHeader` [("accept", BC.pack $ P.show m)]
|
||||
Nothing -> req `removeHeader` ["accept"]
|
||||
|
||||
setQuery :: SwaggerPetstoreRequest req contentType res -> [NH.QueryItem] -> SwaggerPetstoreRequest req contentType res
|
||||
setQuery req query =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsQueryL)
|
||||
((query P.++) . P.filter (\q -> cifst q `P.notElem` P.fmap cifst query))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
addForm :: SwaggerPetstoreRequest req contentType res -> WH.Form -> SwaggerPetstoreRequest req contentType res
|
||||
addForm req newform =
|
||||
let form = case paramsBody (rParams req) of
|
||||
ParamBodyFormUrlEncoded _form -> _form
|
||||
_ -> mempty
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form))
|
||||
|
||||
_addMultiFormPart :: SwaggerPetstoreRequest req contentType res -> NH.Part -> SwaggerPetstoreRequest req contentType res
|
||||
_addMultiFormPart req newpart =
|
||||
let parts = case paramsBody (rParams req) of
|
||||
ParamBodyMultipartFormData _parts -> _parts
|
||||
_ -> []
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts))
|
||||
|
||||
_setBodyBS :: SwaggerPetstoreRequest req contentType res -> B.ByteString -> SwaggerPetstoreRequest req contentType res
|
||||
_setBodyBS req body =
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyB body)
|
||||
|
||||
_setBodyLBS :: SwaggerPetstoreRequest req contentType res -> BL.ByteString -> SwaggerPetstoreRequest req contentType res
|
||||
_setBodyLBS req body =
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body)
|
||||
|
||||
_hasAuthType :: AuthMethod authMethod => SwaggerPetstoreRequest req contentType res -> P.Proxy authMethod -> SwaggerPetstoreRequest req contentType res
|
||||
_hasAuthType req proxy =
|
||||
req & L.over rAuthTypesL (P.typeRep proxy :)
|
||||
|
||||
-- ** Params Utils
|
||||
|
||||
toPath
|
||||
:: WH.ToHttpApiData a
|
||||
=> a -> BCL.ByteString
|
||||
toPath = BB.toLazyByteString . WH.toEncodedUrlPiece
|
||||
|
||||
toHeader :: WH.ToHttpApiData a => (NH.HeaderName, a) -> [NH.Header]
|
||||
toHeader x = [fmap WH.toHeader x]
|
||||
|
||||
toForm :: WH.ToHttpApiData v => (BC.ByteString, v) -> WH.Form
|
||||
toForm (k,v) = WH.toForm [(BC.unpack k,v)]
|
||||
|
||||
toQuery :: WH.ToHttpApiData a => (BC.ByteString, Maybe a) -> [NH.QueryItem]
|
||||
toQuery x = [(fmap . fmap) toQueryParam x]
|
||||
where toQueryParam = T.encodeUtf8 . WH.toQueryParam
|
||||
|
||||
-- *** Swagger `CollectionFormat` Utils
|
||||
|
||||
-- | Determines the format of the array if type array is used.
|
||||
data CollectionFormat
|
||||
= CommaSeparated -- ^ CSV format for multiple parameters.
|
||||
| SpaceSeparated -- ^ Also called "SSV"
|
||||
| TabSeparated -- ^ Also called "TSV"
|
||||
| PipeSeparated -- ^ `value1|value2|value2`
|
||||
| MultiParamArray -- ^ Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form')
|
||||
|
||||
toHeaderColl :: WH.ToHttpApiData a => CollectionFormat -> (NH.HeaderName, [a]) -> [NH.Header]
|
||||
toHeaderColl c xs = _toColl c toHeader xs
|
||||
|
||||
toFormColl :: WH.ToHttpApiData v => CollectionFormat -> (BC.ByteString, [v]) -> WH.Form
|
||||
toFormColl c xs = WH.toForm $ fmap unpack $ _toColl c toHeader $ pack xs
|
||||
where
|
||||
pack (k,v) = (CI.mk k, v)
|
||||
unpack (k,v) = (BC.unpack (CI.original k), BC.unpack v)
|
||||
|
||||
toQueryColl :: WH.ToHttpApiData a => CollectionFormat -> (BC.ByteString, Maybe [a]) -> NH.Query
|
||||
toQueryColl c xs = _toCollA c toQuery xs
|
||||
|
||||
_toColl :: P.Traversable f => CollectionFormat -> (f a -> [(b, BC.ByteString)]) -> f [a] -> [(b, BC.ByteString)]
|
||||
_toColl c encode xs = fmap (fmap P.fromJust) (_toCollA' c fencode BC.singleton (fmap Just xs))
|
||||
where fencode = fmap (fmap Just) . encode . fmap P.fromJust
|
||||
{-# INLINE fencode #-}
|
||||
|
||||
_toCollA :: (P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t BC.ByteString)]) -> f (t [a]) -> [(b, t BC.ByteString)]
|
||||
_toCollA c encode xs = _toCollA' c encode BC.singleton xs
|
||||
|
||||
_toCollA' :: (P.Monoid c, P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)]
|
||||
_toCollA' c encode one xs = case c of
|
||||
CommaSeparated -> go (one ',')
|
||||
SpaceSeparated -> go (one ' ')
|
||||
TabSeparated -> go (one '\t')
|
||||
PipeSeparated -> go (one '|')
|
||||
MultiParamArray -> expandList
|
||||
where
|
||||
go sep =
|
||||
[P.foldl1 (\(sk, sv) (_, v) -> (sk, (combine sep <$> sv <*> v) <|> sv <|> v)) expandList]
|
||||
combine sep x y = x <> sep <> y
|
||||
expandList = (P.concatMap encode . (P.traverse . P.traverse) P.toList) xs
|
||||
{-# INLINE go #-}
|
||||
{-# INLINE expandList #-}
|
||||
{-# INLINE combine #-}
|
||||
|
||||
-- * AuthMethods
|
||||
|
||||
-- | Provides a method to apply auth methods to requests
|
||||
class P.Typeable a => AuthMethod a where
|
||||
applyAuthMethod :: SwaggerPetstoreRequest req contentType res -> a -> SwaggerPetstoreRequest req contentType res
|
||||
|
||||
-- | An existential wrapper for any AuthMethod
|
||||
data AnyAuthMethod = forall a. AuthMethod a => AnyAuthMethod a deriving (P.Typeable)
|
||||
|
||||
instance AuthMethod AnyAuthMethod where applyAuthMethod req (AnyAuthMethod a) = applyAuthMethod req a
|
||||
-- * Auth Methods
|
||||
|
||||
-- ** AuthApiKeyApiKey
|
||||
data AuthApiKeyApiKey =
|
||||
@ -1234,9 +1030,11 @@ data AuthApiKeyApiKey =
|
||||
deriving (P.Eq, P.Show, P.Typeable)
|
||||
|
||||
instance AuthMethod AuthApiKeyApiKey where
|
||||
applyAuthMethod req a@(AuthApiKeyApiKey secret) =
|
||||
applyAuthMethod _ a@(AuthApiKeyApiKey secret) req =
|
||||
P.pure $
|
||||
if (P.typeOf a `P.elem` rAuthTypes req)
|
||||
then req `setHeader` toHeader ("api_key", secret)
|
||||
& L.over rAuthTypesL (P.filter (/= P.typeOf a))
|
||||
else req
|
||||
|
||||
-- ** AuthApiKeyApiKeyQuery
|
||||
@ -1245,9 +1043,11 @@ data AuthApiKeyApiKeyQuery =
|
||||
deriving (P.Eq, P.Show, P.Typeable)
|
||||
|
||||
instance AuthMethod AuthApiKeyApiKeyQuery where
|
||||
applyAuthMethod req a@(AuthApiKeyApiKeyQuery secret) =
|
||||
applyAuthMethod _ a@(AuthApiKeyApiKeyQuery secret) req =
|
||||
P.pure $
|
||||
if (P.typeOf a `P.elem` rAuthTypes req)
|
||||
then req `setQuery` toQuery ("api_key_query", Just secret)
|
||||
& L.over rAuthTypesL (P.filter (/= P.typeOf a))
|
||||
else req
|
||||
|
||||
-- ** AuthBasicHttpBasicTest
|
||||
@ -1256,9 +1056,11 @@ data AuthBasicHttpBasicTest =
|
||||
deriving (P.Eq, P.Show, P.Typeable)
|
||||
|
||||
instance AuthMethod AuthBasicHttpBasicTest where
|
||||
applyAuthMethod req a@(AuthBasicHttpBasicTest user pw) =
|
||||
applyAuthMethod _ a@(AuthBasicHttpBasicTest user pw) req =
|
||||
P.pure $
|
||||
if (P.typeOf a `P.elem` rAuthTypes req)
|
||||
then req `setHeader` toHeader ("Authorization", T.decodeUtf8 cred)
|
||||
& L.over rAuthTypesL (P.filter (/= P.typeOf a))
|
||||
else req
|
||||
where cred = BC.append "Basic " (B64.encode $ BC.concat [ user, ":", pw ])
|
||||
|
||||
@ -1268,9 +1070,37 @@ data AuthOAuthPetstoreAuth =
|
||||
deriving (P.Eq, P.Show, P.Typeable)
|
||||
|
||||
instance AuthMethod AuthOAuthPetstoreAuth where
|
||||
applyAuthMethod req a@(AuthOAuthPetstoreAuth secret) =
|
||||
applyAuthMethod _ a@(AuthOAuthPetstoreAuth secret) req =
|
||||
P.pure $
|
||||
if (P.typeOf a `P.elem` rAuthTypes req)
|
||||
then req `setHeader` toHeader ("Authorization", "Bearer " <> secret)
|
||||
& L.over rAuthTypesL (P.filter (/= P.typeOf a))
|
||||
else req
|
||||
|
||||
|
||||
|
||||
-- * Custom Mime Types
|
||||
|
||||
-- ** MimeJsonCharsetutf8
|
||||
|
||||
data MimeJsonCharsetutf8 = MimeJsonCharsetutf8 deriving (P.Typeable)
|
||||
|
||||
-- | @application/json; charset=utf-8@
|
||||
instance MimeType MimeJsonCharsetutf8 where
|
||||
mimeType _ = Just $ P.fromString "application/json; charset=utf-8"
|
||||
instance A.ToJSON a => MimeRender MimeJsonCharsetutf8 a where mimeRender _ = A.encode
|
||||
instance A.FromJSON a => MimeUnrender MimeJsonCharsetutf8 a where mimeUnrender _ = A.eitherDecode
|
||||
-- instance MimeRender MimeJsonCharsetutf8 T.Text where mimeRender _ = undefined
|
||||
-- instance MimeUnrender MimeJsonCharsetutf8 T.Text where mimeUnrender _ = undefined
|
||||
|
||||
-- ** MimeXmlCharsetutf8
|
||||
|
||||
data MimeXmlCharsetutf8 = MimeXmlCharsetutf8 deriving (P.Typeable)
|
||||
|
||||
-- | @application/xml; charset=utf-8@
|
||||
instance MimeType MimeXmlCharsetutf8 where
|
||||
mimeType _ = Just $ P.fromString "application/xml; charset=utf-8"
|
||||
-- instance MimeRender MimeXmlCharsetutf8 T.Text where mimeRender _ = undefined
|
||||
-- instance MimeUnrender MimeXmlCharsetutf8 T.Text where mimeUnrender _ = undefined
|
||||
|
||||
|
||||
|
||||
@ -25,102 +25,30 @@ Module : SwaggerPetstore.Client
|
||||
|
||||
module SwaggerPetstore.Client where
|
||||
|
||||
import SwaggerPetstore.Model
|
||||
import SwaggerPetstore.API
|
||||
import SwaggerPetstore.MimeTypes
|
||||
import SwaggerPetstore.Core
|
||||
import SwaggerPetstore.Logging
|
||||
import SwaggerPetstore.MimeTypes
|
||||
|
||||
import qualified Control.Exception.Safe as E
|
||||
import qualified Control.Monad.IO.Class as P
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Control.Monad as P
|
||||
import qualified Data.Aeson.Types as A
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
import qualified Data.Proxy as P (Proxy(..))
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Network.HTTP.Client as NH
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Types as NH
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import Data.Function ((&))
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Text (Text)
|
||||
import GHC.Exts (IsString(..))
|
||||
import Web.FormUrlEncoded as WH
|
||||
import Web.HttpApiData as WH
|
||||
import Control.Monad.Catch (MonadThrow)
|
||||
|
||||
import qualified Data.Time as TI
|
||||
import qualified Data.Map as Map
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Text.Printf as T
|
||||
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
import qualified Data.ByteString.Builder as BB
|
||||
import qualified Network.HTTP.Client as NH
|
||||
import qualified Network.HTTP.Client.TLS as NH
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Types.Method as NH
|
||||
import qualified Network.HTTP.Types as NH
|
||||
import qualified Network.HTTP.Types.URI as NH
|
||||
|
||||
import qualified Control.Exception.Safe as E
|
||||
-- * Config
|
||||
|
||||
-- |
|
||||
data SwaggerPetstoreConfig = SwaggerPetstoreConfig
|
||||
{ configHost :: BCL.ByteString -- ^ host supplied in the Request
|
||||
, configUserAgent :: Text -- ^ user-agent supplied in the Request
|
||||
, configLogExecWithContext :: LogExecWithContext -- ^ Run a block using a Logger instance
|
||||
, configLogContext :: LogContext -- ^ Configures the logger
|
||||
, configAuthMethods :: [AnyAuthMethod] -- ^ List of configured auth methods
|
||||
}
|
||||
|
||||
-- | display the config
|
||||
instance Show SwaggerPetstoreConfig where
|
||||
show c =
|
||||
T.printf
|
||||
"{ configHost = %v, configUserAgent = %v, ..}"
|
||||
(show (configHost c))
|
||||
(show (configUserAgent c))
|
||||
|
||||
-- | constructs a default SwaggerPetstoreConfig
|
||||
--
|
||||
-- configHost:
|
||||
--
|
||||
-- @http://petstore.swagger.io:80/v2@
|
||||
--
|
||||
-- configUserAgent:
|
||||
--
|
||||
-- @"swagger-haskell-http-client/1.0.0"@
|
||||
--
|
||||
newConfig :: IO SwaggerPetstoreConfig
|
||||
newConfig = do
|
||||
logCxt <- initLogContext
|
||||
return $ SwaggerPetstoreConfig
|
||||
{ configHost = "http://petstore.swagger.io:80/v2"
|
||||
, configUserAgent = "swagger-haskell-http-client/1.0.0"
|
||||
, configLogExecWithContext = runDefaultLogExecWithContext
|
||||
, configLogContext = logCxt
|
||||
, configAuthMethods = []
|
||||
}
|
||||
|
||||
-- | updates config use AuthMethod on matching requests
|
||||
addAuthMethod :: AuthMethod auth => SwaggerPetstoreConfig -> auth -> SwaggerPetstoreConfig
|
||||
addAuthMethod config@SwaggerPetstoreConfig {configAuthMethods = as} a =
|
||||
config { configAuthMethods = AnyAuthMethod a : as}
|
||||
|
||||
-- | updates the config to use stdout logging
|
||||
withStdoutLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig
|
||||
withStdoutLogging p = do
|
||||
logCxt <- stdoutLoggingContext (configLogContext p)
|
||||
return $ p { configLogExecWithContext = stdoutLoggingExec, configLogContext = logCxt }
|
||||
|
||||
-- | updates the config to use stderr logging
|
||||
withStderrLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig
|
||||
withStderrLogging p = do
|
||||
logCxt <- stderrLoggingContext (configLogContext p)
|
||||
return $ p { configLogExecWithContext = stderrLoggingExec, configLogContext = logCxt }
|
||||
|
||||
-- | updates the config to disable logging
|
||||
withNoLogging :: SwaggerPetstoreConfig -> SwaggerPetstoreConfig
|
||||
withNoLogging p = p { configLogExecWithContext = runNullLogExec}
|
||||
|
||||
-- * Dispatch
|
||||
|
||||
@ -243,35 +171,28 @@ _toInitRequest
|
||||
-> SwaggerPetstoreRequest req contentType res -- ^ request
|
||||
-> accept -- ^ "accept" 'MimeType'
|
||||
-> IO (InitRequest req contentType res accept) -- ^ initialized request
|
||||
_toInitRequest config req0 accept = do
|
||||
parsedReq <- NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0))
|
||||
let req1 = _applyAuthMethods req0 config
|
||||
& _setContentTypeHeader
|
||||
& flip _setAcceptHeader accept
|
||||
reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (rParams req1)
|
||||
reqQuery = NH.renderQuery True (paramsQuery (rParams req1))
|
||||
pReq = parsedReq { NH.method = (rMethod req1)
|
||||
, NH.requestHeaders = reqHeaders
|
||||
, NH.queryString = reqQuery
|
||||
}
|
||||
outReq <- case paramsBody (rParams req1) of
|
||||
ParamBodyNone -> pure (pReq { NH.requestBody = mempty })
|
||||
ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs })
|
||||
ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl })
|
||||
ParamBodyFormUrlEncoded form -> pure (pReq { NH.requestBody = NH.RequestBodyLBS (WH.urlEncodeForm form) })
|
||||
ParamBodyMultipartFormData parts -> NH.formDataBody parts pReq
|
||||
_toInitRequest config req0 accept =
|
||||
runConfigLogWithExceptions "Client" config $ do
|
||||
parsedReq <- P.liftIO $ NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0))
|
||||
req1 <- P.liftIO $ _applyAuthMethods req0 config
|
||||
P.when
|
||||
(configValidateAuthMethods config && (not . null . rAuthTypes) req1)
|
||||
(E.throwString $ "AuthMethod not configured: " <> (show . head . rAuthTypes) req1)
|
||||
let req2 = req1 & _setContentTypeHeader & flip _setAcceptHeader accept
|
||||
reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (rParams req2)
|
||||
reqQuery = NH.renderQuery True (paramsQuery (rParams req2))
|
||||
pReq = parsedReq { NH.method = (rMethod req2)
|
||||
, NH.requestHeaders = reqHeaders
|
||||
, NH.queryString = reqQuery
|
||||
}
|
||||
outReq <- case paramsBody (rParams req2) of
|
||||
ParamBodyNone -> pure (pReq { NH.requestBody = mempty })
|
||||
ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs })
|
||||
ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl })
|
||||
ParamBodyFormUrlEncoded form -> pure (pReq { NH.requestBody = NH.RequestBodyLBS (WH.urlEncodeForm form) })
|
||||
ParamBodyMultipartFormData parts -> NH.formDataBody parts pReq
|
||||
|
||||
pure (InitRequest outReq)
|
||||
|
||||
-- | apply all matching AuthMethods in config to request
|
||||
_applyAuthMethods
|
||||
:: SwaggerPetstoreRequest req contentType res
|
||||
-> SwaggerPetstoreConfig
|
||||
-> SwaggerPetstoreRequest req contentType res
|
||||
_applyAuthMethods req SwaggerPetstoreConfig {configAuthMethods = as} =
|
||||
foldl go req as
|
||||
where
|
||||
go r (AnyAuthMethod a) = r `applyAuthMethod` a
|
||||
pure (InitRequest outReq)
|
||||
|
||||
-- | modify the underlying Request
|
||||
modifyInitRequest :: InitRequest req contentType res accept -> (NH.Request -> NH.Request) -> InitRequest req contentType res accept
|
||||
|
||||
@ -0,0 +1,532 @@
|
||||
{-
|
||||
Swagger Petstore
|
||||
|
||||
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
|
||||
|
||||
OpenAPI spec version: 2.0
|
||||
Swagger Petstore API version: 1.0.0
|
||||
Contact: apiteam@swagger.io
|
||||
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
|
||||
-}
|
||||
|
||||
{-|
|
||||
Module : SwaggerPetstore.Core
|
||||
-}
|
||||
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
{-# LANGUAGE ExistentialQuantification #-}
|
||||
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
||||
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE RankNTypes #-}
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
{-# LANGUAGE TupleSections #-}
|
||||
{-# LANGUAGE TypeFamilies #-}
|
||||
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds #-}
|
||||
|
||||
module SwaggerPetstore.Core where
|
||||
|
||||
import SwaggerPetstore.MimeTypes
|
||||
import SwaggerPetstore.Logging
|
||||
|
||||
import qualified Control.Arrow as P (left)
|
||||
import qualified Control.DeepSeq as NF
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Base64.Lazy as BL64
|
||||
import qualified Data.ByteString.Builder as BB
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
import qualified Data.CaseInsensitive as CI
|
||||
import qualified Data.Data as P (Data, Typeable, TypeRep, typeRep)
|
||||
import qualified Data.Foldable as P
|
||||
import qualified Data.Ix as P
|
||||
import qualified Data.Maybe as P
|
||||
import qualified Data.Proxy as P (Proxy(..))
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Data.Time as TI
|
||||
import qualified Data.Time.ISO8601 as TI
|
||||
import qualified GHC.Base as P (Alternative)
|
||||
import qualified Lens.Micro as L
|
||||
import qualified Network.HTTP.Client.MultipartFormData as NH
|
||||
import qualified Network.HTTP.Types as NH
|
||||
import qualified Prelude as P
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
import qualified Text.Printf as T
|
||||
|
||||
import Control.Applicative ((<|>))
|
||||
import Control.Applicative (Alternative)
|
||||
import Data.Function ((&))
|
||||
import Data.Foldable(foldlM)
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Text (Text)
|
||||
import Prelude (($), (.), (<$>), (<*>), Maybe(..), Bool(..), Char, String, fmap, mempty, pure, return, show, IO, Monad, Functor)
|
||||
|
||||
-- * SwaggerPetstoreConfig
|
||||
|
||||
-- |
|
||||
data SwaggerPetstoreConfig = SwaggerPetstoreConfig
|
||||
{ configHost :: BCL.ByteString -- ^ host supplied in the Request
|
||||
, configUserAgent :: Text -- ^ user-agent supplied in the Request
|
||||
, configLogExecWithContext :: LogExecWithContext -- ^ Run a block using a Logger instance
|
||||
, configLogContext :: LogContext -- ^ Configures the logger
|
||||
, configAuthMethods :: [AnyAuthMethod] -- ^ List of configured auth methods
|
||||
, configValidateAuthMethods :: Bool -- ^ throw exceptions if auth methods are not configured
|
||||
}
|
||||
|
||||
-- | display the config
|
||||
instance P.Show SwaggerPetstoreConfig where
|
||||
show c =
|
||||
T.printf
|
||||
"{ configHost = %v, configUserAgent = %v, ..}"
|
||||
(show (configHost c))
|
||||
(show (configUserAgent c))
|
||||
|
||||
-- | constructs a default SwaggerPetstoreConfig
|
||||
--
|
||||
-- configHost:
|
||||
--
|
||||
-- @http://petstore.swagger.io:80/v2@
|
||||
--
|
||||
-- configUserAgent:
|
||||
--
|
||||
-- @"swagger-haskell-http-client/1.0.0"@
|
||||
--
|
||||
newConfig :: IO SwaggerPetstoreConfig
|
||||
newConfig = do
|
||||
logCxt <- initLogContext
|
||||
return $ SwaggerPetstoreConfig
|
||||
{ configHost = "http://petstore.swagger.io:80/v2"
|
||||
, configUserAgent = "swagger-haskell-http-client/1.0.0"
|
||||
, configLogExecWithContext = runDefaultLogExecWithContext
|
||||
, configLogContext = logCxt
|
||||
, configAuthMethods = []
|
||||
, configValidateAuthMethods = True
|
||||
}
|
||||
|
||||
-- | updates config use AuthMethod on matching requests
|
||||
addAuthMethod :: AuthMethod auth => SwaggerPetstoreConfig -> auth -> SwaggerPetstoreConfig
|
||||
addAuthMethod config@SwaggerPetstoreConfig {configAuthMethods = as} a =
|
||||
config { configAuthMethods = AnyAuthMethod a : as}
|
||||
|
||||
-- | updates the config to use stdout logging
|
||||
withStdoutLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig
|
||||
withStdoutLogging p = do
|
||||
logCxt <- stdoutLoggingContext (configLogContext p)
|
||||
return $ p { configLogExecWithContext = stdoutLoggingExec, configLogContext = logCxt }
|
||||
|
||||
-- | updates the config to use stderr logging
|
||||
withStderrLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig
|
||||
withStderrLogging p = do
|
||||
logCxt <- stderrLoggingContext (configLogContext p)
|
||||
return $ p { configLogExecWithContext = stderrLoggingExec, configLogContext = logCxt }
|
||||
|
||||
-- | updates the config to disable logging
|
||||
withNoLogging :: SwaggerPetstoreConfig -> SwaggerPetstoreConfig
|
||||
withNoLogging p = p { configLogExecWithContext = runNullLogExec}
|
||||
|
||||
-- * SwaggerPetstoreRequest
|
||||
|
||||
-- | Represents a request. The "req" type variable is the request type. The "res" type variable is the response type.
|
||||
data SwaggerPetstoreRequest req contentType res = SwaggerPetstoreRequest
|
||||
{ rMethod :: NH.Method -- ^ Method of SwaggerPetstoreRequest
|
||||
, rUrlPath :: [BCL.ByteString] -- ^ Endpoint of SwaggerPetstoreRequest
|
||||
, rParams :: Params -- ^ params of SwaggerPetstoreRequest
|
||||
, rAuthTypes :: [P.TypeRep] -- ^ types of auth methods
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'rMethod' Lens
|
||||
rMethodL :: Lens_' (SwaggerPetstoreRequest req contentType res) NH.Method
|
||||
rMethodL f SwaggerPetstoreRequest{..} = (\rMethod -> SwaggerPetstoreRequest { rMethod, ..} ) <$> f rMethod
|
||||
{-# INLINE rMethodL #-}
|
||||
|
||||
-- | 'rUrlPath' Lens
|
||||
rUrlPathL :: Lens_' (SwaggerPetstoreRequest req contentType res) [BCL.ByteString]
|
||||
rUrlPathL f SwaggerPetstoreRequest{..} = (\rUrlPath -> SwaggerPetstoreRequest { rUrlPath, ..} ) <$> f rUrlPath
|
||||
{-# INLINE rUrlPathL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rParamsL :: Lens_' (SwaggerPetstoreRequest req contentType res) Params
|
||||
rParamsL f SwaggerPetstoreRequest{..} = (\rParams -> SwaggerPetstoreRequest { rParams, ..} ) <$> f rParams
|
||||
{-# INLINE rParamsL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rAuthTypesL :: Lens_' (SwaggerPetstoreRequest req contentType res) [P.TypeRep]
|
||||
rAuthTypesL f SwaggerPetstoreRequest{..} = (\rAuthTypes -> SwaggerPetstoreRequest { rAuthTypes, ..} ) <$> f rAuthTypes
|
||||
{-# INLINE rAuthTypesL #-}
|
||||
|
||||
-- * HasBodyParam
|
||||
|
||||
-- | Designates the body parameter of a request
|
||||
class HasBodyParam req param where
|
||||
setBodyParam :: forall contentType res. (Consumes req contentType, MimeRender contentType param) => SwaggerPetstoreRequest req contentType res -> param -> SwaggerPetstoreRequest req contentType res
|
||||
setBodyParam req xs =
|
||||
req `_setBodyLBS` mimeRender (P.Proxy :: P.Proxy contentType) xs & _setContentTypeHeader
|
||||
|
||||
-- * HasOptionalParam
|
||||
|
||||
-- | Designates the optional parameters of a request
|
||||
class HasOptionalParam req param where
|
||||
{-# MINIMAL applyOptionalParam | (-&-) #-}
|
||||
|
||||
-- | Apply an optional parameter to a request
|
||||
applyOptionalParam :: SwaggerPetstoreRequest req contentType res -> param -> SwaggerPetstoreRequest req contentType res
|
||||
applyOptionalParam = (-&-)
|
||||
{-# INLINE applyOptionalParam #-}
|
||||
|
||||
-- | infix operator \/ alias for 'addOptionalParam'
|
||||
(-&-) :: SwaggerPetstoreRequest req contentType res -> param -> SwaggerPetstoreRequest req contentType res
|
||||
(-&-) = applyOptionalParam
|
||||
{-# INLINE (-&-) #-}
|
||||
|
||||
infixl 2 -&-
|
||||
|
||||
-- | Request Params
|
||||
data Params = Params
|
||||
{ paramsQuery :: NH.Query
|
||||
, paramsHeaders :: NH.RequestHeaders
|
||||
, paramsBody :: ParamBody
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'paramsQuery' Lens
|
||||
paramsQueryL :: Lens_' Params NH.Query
|
||||
paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery
|
||||
{-# INLINE paramsQueryL #-}
|
||||
|
||||
-- | 'paramsHeaders' Lens
|
||||
paramsHeadersL :: Lens_' Params NH.RequestHeaders
|
||||
paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders
|
||||
{-# INLINE paramsHeadersL #-}
|
||||
|
||||
-- | 'paramsBody' Lens
|
||||
paramsBodyL :: Lens_' Params ParamBody
|
||||
paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody
|
||||
{-# INLINE paramsBodyL #-}
|
||||
|
||||
-- | Request Body
|
||||
data ParamBody
|
||||
= ParamBodyNone
|
||||
| ParamBodyB B.ByteString
|
||||
| ParamBodyBL BL.ByteString
|
||||
| ParamBodyFormUrlEncoded WH.Form
|
||||
| ParamBodyMultipartFormData [NH.Part]
|
||||
deriving (P.Show)
|
||||
|
||||
-- ** SwaggerPetstoreRequest Utils
|
||||
|
||||
_mkRequest :: NH.Method -- ^ Method
|
||||
-> [BCL.ByteString] -- ^ Endpoint
|
||||
-> SwaggerPetstoreRequest req contentType res -- ^ req: Request Type, res: Response Type
|
||||
_mkRequest m u = SwaggerPetstoreRequest m u _mkParams []
|
||||
|
||||
_mkParams :: Params
|
||||
_mkParams = Params [] [] ParamBodyNone
|
||||
|
||||
setHeader :: SwaggerPetstoreRequest req contentType res -> [NH.Header] -> SwaggerPetstoreRequest req contentType res
|
||||
setHeader req header =
|
||||
req `removeHeader` P.fmap P.fst header &
|
||||
L.over (rParamsL . paramsHeadersL) (header P.++)
|
||||
|
||||
removeHeader :: SwaggerPetstoreRequest req contentType res -> [NH.HeaderName] -> SwaggerPetstoreRequest req contentType res
|
||||
removeHeader req header =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsHeadersL)
|
||||
(P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
|
||||
_setContentTypeHeader :: forall req contentType res. MimeType contentType => SwaggerPetstoreRequest req contentType res -> SwaggerPetstoreRequest req contentType res
|
||||
_setContentTypeHeader req =
|
||||
case mimeType (P.Proxy :: P.Proxy contentType) of
|
||||
Just m -> req `setHeader` [("content-type", BC.pack $ P.show m)]
|
||||
Nothing -> req `removeHeader` ["content-type"]
|
||||
|
||||
_setAcceptHeader :: forall req contentType res accept. MimeType accept => SwaggerPetstoreRequest req contentType res -> accept -> SwaggerPetstoreRequest req contentType res
|
||||
_setAcceptHeader req accept =
|
||||
case mimeType' accept of
|
||||
Just m -> req `setHeader` [("accept", BC.pack $ P.show m)]
|
||||
Nothing -> req `removeHeader` ["accept"]
|
||||
|
||||
setQuery :: SwaggerPetstoreRequest req contentType res -> [NH.QueryItem] -> SwaggerPetstoreRequest req contentType res
|
||||
setQuery req query =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsQueryL)
|
||||
((query P.++) . P.filter (\q -> cifst q `P.notElem` P.fmap cifst query))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
addForm :: SwaggerPetstoreRequest req contentType res -> WH.Form -> SwaggerPetstoreRequest req contentType res
|
||||
addForm req newform =
|
||||
let form = case paramsBody (rParams req) of
|
||||
ParamBodyFormUrlEncoded _form -> _form
|
||||
_ -> mempty
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form))
|
||||
|
||||
_addMultiFormPart :: SwaggerPetstoreRequest req contentType res -> NH.Part -> SwaggerPetstoreRequest req contentType res
|
||||
_addMultiFormPart req newpart =
|
||||
let parts = case paramsBody (rParams req) of
|
||||
ParamBodyMultipartFormData _parts -> _parts
|
||||
_ -> []
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts))
|
||||
|
||||
_setBodyBS :: SwaggerPetstoreRequest req contentType res -> B.ByteString -> SwaggerPetstoreRequest req contentType res
|
||||
_setBodyBS req body =
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyB body)
|
||||
|
||||
_setBodyLBS :: SwaggerPetstoreRequest req contentType res -> BL.ByteString -> SwaggerPetstoreRequest req contentType res
|
||||
_setBodyLBS req body =
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body)
|
||||
|
||||
_hasAuthType :: AuthMethod authMethod => SwaggerPetstoreRequest req contentType res -> P.Proxy authMethod -> SwaggerPetstoreRequest req contentType res
|
||||
_hasAuthType req proxy =
|
||||
req & L.over rAuthTypesL (P.typeRep proxy :)
|
||||
|
||||
-- ** Params Utils
|
||||
|
||||
toPath
|
||||
:: WH.ToHttpApiData a
|
||||
=> a -> BCL.ByteString
|
||||
toPath = BB.toLazyByteString . WH.toEncodedUrlPiece
|
||||
|
||||
toHeader :: WH.ToHttpApiData a => (NH.HeaderName, a) -> [NH.Header]
|
||||
toHeader x = [fmap WH.toHeader x]
|
||||
|
||||
toForm :: WH.ToHttpApiData v => (BC.ByteString, v) -> WH.Form
|
||||
toForm (k,v) = WH.toForm [(BC.unpack k,v)]
|
||||
|
||||
toQuery :: WH.ToHttpApiData a => (BC.ByteString, Maybe a) -> [NH.QueryItem]
|
||||
toQuery x = [(fmap . fmap) toQueryParam x]
|
||||
where toQueryParam = T.encodeUtf8 . WH.toQueryParam
|
||||
|
||||
-- *** Swagger `CollectionFormat` Utils
|
||||
|
||||
-- | Determines the format of the array if type array is used.
|
||||
data CollectionFormat
|
||||
= CommaSeparated -- ^ CSV format for multiple parameters.
|
||||
| SpaceSeparated -- ^ Also called "SSV"
|
||||
| TabSeparated -- ^ Also called "TSV"
|
||||
| PipeSeparated -- ^ `value1|value2|value2`
|
||||
| MultiParamArray -- ^ Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form')
|
||||
|
||||
toHeaderColl :: WH.ToHttpApiData a => CollectionFormat -> (NH.HeaderName, [a]) -> [NH.Header]
|
||||
toHeaderColl c xs = _toColl c toHeader xs
|
||||
|
||||
toFormColl :: WH.ToHttpApiData v => CollectionFormat -> (BC.ByteString, [v]) -> WH.Form
|
||||
toFormColl c xs = WH.toForm $ fmap unpack $ _toColl c toHeader $ pack xs
|
||||
where
|
||||
pack (k,v) = (CI.mk k, v)
|
||||
unpack (k,v) = (BC.unpack (CI.original k), BC.unpack v)
|
||||
|
||||
toQueryColl :: WH.ToHttpApiData a => CollectionFormat -> (BC.ByteString, Maybe [a]) -> NH.Query
|
||||
toQueryColl c xs = _toCollA c toQuery xs
|
||||
|
||||
_toColl :: P.Traversable f => CollectionFormat -> (f a -> [(b, BC.ByteString)]) -> f [a] -> [(b, BC.ByteString)]
|
||||
_toColl c encode xs = fmap (fmap P.fromJust) (_toCollA' c fencode BC.singleton (fmap Just xs))
|
||||
where fencode = fmap (fmap Just) . encode . fmap P.fromJust
|
||||
{-# INLINE fencode #-}
|
||||
|
||||
_toCollA :: (P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t BC.ByteString)]) -> f (t [a]) -> [(b, t BC.ByteString)]
|
||||
_toCollA c encode xs = _toCollA' c encode BC.singleton xs
|
||||
|
||||
_toCollA' :: (P.Monoid c, P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)]
|
||||
_toCollA' c encode one xs = case c of
|
||||
CommaSeparated -> go (one ',')
|
||||
SpaceSeparated -> go (one ' ')
|
||||
TabSeparated -> go (one '\t')
|
||||
PipeSeparated -> go (one '|')
|
||||
MultiParamArray -> expandList
|
||||
where
|
||||
go sep =
|
||||
[P.foldl1 (\(sk, sv) (_, v) -> (sk, (combine sep <$> sv <*> v) <|> sv <|> v)) expandList]
|
||||
combine sep x y = x <> sep <> y
|
||||
expandList = (P.concatMap encode . (P.traverse . P.traverse) P.toList) xs
|
||||
{-# INLINE go #-}
|
||||
{-# INLINE expandList #-}
|
||||
{-# INLINE combine #-}
|
||||
|
||||
-- * AuthMethods
|
||||
|
||||
-- | Provides a method to apply auth methods to requests
|
||||
class P.Typeable a =>
|
||||
AuthMethod a where
|
||||
applyAuthMethod
|
||||
:: SwaggerPetstoreConfig
|
||||
-> a
|
||||
-> SwaggerPetstoreRequest req contentType res
|
||||
-> IO (SwaggerPetstoreRequest req contentType res)
|
||||
|
||||
-- | An existential wrapper for any AuthMethod
|
||||
data AnyAuthMethod = forall a. AuthMethod a => AnyAuthMethod a deriving (P.Typeable)
|
||||
|
||||
instance AuthMethod AnyAuthMethod where applyAuthMethod config (AnyAuthMethod a) req = applyAuthMethod config a req
|
||||
|
||||
-- | apply all matching AuthMethods in config to request
|
||||
_applyAuthMethods
|
||||
:: SwaggerPetstoreRequest req contentType res
|
||||
-> SwaggerPetstoreConfig
|
||||
-> IO (SwaggerPetstoreRequest req contentType res)
|
||||
_applyAuthMethods req config@(SwaggerPetstoreConfig {configAuthMethods = as}) =
|
||||
foldlM go req as
|
||||
where
|
||||
go r (AnyAuthMethod a) = applyAuthMethod config a r
|
||||
|
||||
-- * Utils
|
||||
|
||||
-- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)
|
||||
_omitNulls :: [(Text, A.Value)] -> A.Value
|
||||
_omitNulls = A.object . P.filter notNull
|
||||
where
|
||||
notNull (_, A.Null) = False
|
||||
notNull _ = True
|
||||
|
||||
-- | Encodes fields using WH.toQueryParam
|
||||
_toFormItem :: (WH.ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text])
|
||||
_toFormItem name x = (name,) . (:[]) . WH.toQueryParam <$> x
|
||||
|
||||
-- | Collapse (Just "") to Nothing
|
||||
_emptyToNothing :: Maybe String -> Maybe String
|
||||
_emptyToNothing (Just "") = Nothing
|
||||
_emptyToNothing x = x
|
||||
{-# INLINE _emptyToNothing #-}
|
||||
|
||||
-- | Collapse (Just mempty) to Nothing
|
||||
_memptyToNothing :: (P.Monoid a, P.Eq a) => Maybe a -> Maybe a
|
||||
_memptyToNothing (Just x) | x P.== P.mempty = Nothing
|
||||
_memptyToNothing x = x
|
||||
{-# INLINE _memptyToNothing #-}
|
||||
|
||||
-- * DateTime Formatting
|
||||
|
||||
newtype DateTime = DateTime { unDateTime :: TI.UTCTime }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData,TI.ParseTime,TI.FormatTime)
|
||||
instance A.FromJSON DateTime where
|
||||
parseJSON = A.withText "DateTime" (_readDateTime . T.unpack)
|
||||
instance A.ToJSON DateTime where
|
||||
toJSON (DateTime t) = A.toJSON (_showDateTime t)
|
||||
instance WH.FromHttpApiData DateTime where
|
||||
parseUrlPiece = P.left T.pack . _readDateTime . T.unpack
|
||||
instance WH.ToHttpApiData DateTime where
|
||||
toUrlPiece (DateTime t) = T.pack (_showDateTime t)
|
||||
instance P.Show DateTime where
|
||||
show (DateTime t) = _showDateTime t
|
||||
instance MimeRender MimeMultipartFormData DateTime where
|
||||
mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
|
||||
-- | @_parseISO8601@
|
||||
_readDateTime :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
|
||||
_readDateTime =
|
||||
_parseISO8601
|
||||
{-# INLINE _readDateTime #-}
|
||||
|
||||
-- | @TI.formatISO8601Millis@
|
||||
_showDateTime :: (t ~ TI.UTCTime, TI.FormatTime t) => t -> String
|
||||
_showDateTime =
|
||||
TI.formatISO8601Millis
|
||||
{-# INLINE _showDateTime #-}
|
||||
|
||||
-- | parse an ISO8601 date-time string
|
||||
_parseISO8601 :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
|
||||
_parseISO8601 t =
|
||||
P.asum $
|
||||
P.flip (TI.parseTimeM True TI.defaultTimeLocale) t <$>
|
||||
["%FT%T%QZ", "%FT%T%Q%z", "%FT%T%Q%Z"]
|
||||
{-# INLINE _parseISO8601 #-}
|
||||
|
||||
-- * Date Formatting
|
||||
|
||||
newtype Date = Date { unDate :: TI.Day }
|
||||
deriving (P.Enum,P.Eq,P.Data,P.Ord,P.Ix,NF.NFData,TI.ParseTime,TI.FormatTime)
|
||||
instance A.FromJSON Date where
|
||||
parseJSON = A.withText "Date" (_readDate . T.unpack)
|
||||
instance A.ToJSON Date where
|
||||
toJSON (Date t) = A.toJSON (_showDate t)
|
||||
instance WH.FromHttpApiData Date where
|
||||
parseUrlPiece = P.left T.pack . _readDate . T.unpack
|
||||
instance WH.ToHttpApiData Date where
|
||||
toUrlPiece (Date t) = T.pack (_showDate t)
|
||||
instance P.Show Date where
|
||||
show (Date t) = _showDate t
|
||||
instance MimeRender MimeMultipartFormData Date where
|
||||
mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
|
||||
-- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@
|
||||
_readDate :: (TI.ParseTime t, Monad m) => String -> m t
|
||||
_readDate =
|
||||
TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"
|
||||
{-# INLINE _readDate #-}
|
||||
|
||||
-- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@
|
||||
_showDate :: TI.FormatTime t => t -> String
|
||||
_showDate =
|
||||
TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"
|
||||
{-# INLINE _showDate #-}
|
||||
|
||||
-- * Byte/Binary Formatting
|
||||
|
||||
|
||||
-- | base64 encoded characters
|
||||
newtype ByteArray = ByteArray { unByteArray :: BL.ByteString }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
|
||||
|
||||
instance A.FromJSON ByteArray where
|
||||
parseJSON = A.withText "ByteArray" _readByteArray
|
||||
instance A.ToJSON ByteArray where
|
||||
toJSON = A.toJSON . _showByteArray
|
||||
instance WH.FromHttpApiData ByteArray where
|
||||
parseUrlPiece = P.left T.pack . _readByteArray
|
||||
instance WH.ToHttpApiData ByteArray where
|
||||
toUrlPiece = _showByteArray
|
||||
instance P.Show ByteArray where
|
||||
show = T.unpack . _showByteArray
|
||||
instance MimeRender MimeMultipartFormData ByteArray where
|
||||
mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
|
||||
-- | read base64 encoded characters
|
||||
_readByteArray :: Monad m => Text -> m ByteArray
|
||||
_readByteArray = P.either P.fail (pure . ByteArray) . BL64.decode . BL.fromStrict . T.encodeUtf8
|
||||
{-# INLINE _readByteArray #-}
|
||||
|
||||
-- | show base64 encoded characters
|
||||
_showByteArray :: ByteArray -> Text
|
||||
_showByteArray = T.decodeUtf8 . BL.toStrict . BL64.encode . unByteArray
|
||||
{-# INLINE _showByteArray #-}
|
||||
|
||||
-- | any sequence of octets
|
||||
newtype Binary = Binary { unBinary :: BL.ByteString }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
|
||||
|
||||
instance A.FromJSON Binary where
|
||||
parseJSON = A.withText "Binary" _readBinaryBase64
|
||||
instance A.ToJSON Binary where
|
||||
toJSON = A.toJSON . _showBinaryBase64
|
||||
instance WH.FromHttpApiData Binary where
|
||||
parseUrlPiece = P.left T.pack . _readBinaryBase64
|
||||
instance WH.ToHttpApiData Binary where
|
||||
toUrlPiece = _showBinaryBase64
|
||||
instance P.Show Binary where
|
||||
show = T.unpack . _showBinaryBase64
|
||||
instance MimeRender MimeMultipartFormData Binary where
|
||||
mimeRender _ = unBinary
|
||||
|
||||
_readBinaryBase64 :: Monad m => Text -> m Binary
|
||||
_readBinaryBase64 = P.either P.fail (pure . Binary) . BL64.decode . BL.fromStrict . T.encodeUtf8
|
||||
{-# INLINE _readBinaryBase64 #-}
|
||||
|
||||
_showBinaryBase64 :: Binary -> Text
|
||||
_showBinaryBase64 = T.decodeUtf8 . BL.toStrict . BL64.encode . unBinary
|
||||
{-# INLINE _showBinaryBase64 #-}
|
||||
|
||||
-- * Lens Type Aliases
|
||||
|
||||
type Lens_' s a = Lens_ s s a a
|
||||
type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t
|
||||
@ -20,9 +20,6 @@ Katip Logging functions
|
||||
|
||||
module SwaggerPetstore.Logging where
|
||||
|
||||
import Data.Text (Text)
|
||||
import GHC.Exts (IsString(..))
|
||||
|
||||
import qualified Control.Exception.Safe as E
|
||||
import qualified Control.Monad.IO.Class as P
|
||||
import qualified Control.Monad.Trans.Reader as P
|
||||
@ -30,6 +27,9 @@ import qualified Data.Text as T
|
||||
import qualified Lens.Micro as L
|
||||
import qualified System.IO as IO
|
||||
|
||||
import Data.Text (Text)
|
||||
import GHC.Exts (IsString(..))
|
||||
|
||||
import qualified Katip as LG
|
||||
|
||||
-- * Type Aliases (for compatability)
|
||||
|
||||
@ -23,39 +23,35 @@ Module : SwaggerPetstore.MimeTypes
|
||||
|
||||
module SwaggerPetstore.MimeTypes where
|
||||
|
||||
import SwaggerPetstore.Model as M
|
||||
|
||||
import qualified Control.Arrow as P (left)
|
||||
import qualified Data.Aeson as A
|
||||
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Builder as BB
|
||||
import qualified Data.ByteString.Char8 as BC
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Lazy.Char8 as BCL
|
||||
|
||||
|
||||
import qualified Network.HTTP.Media as ME
|
||||
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import qualified Data.Data as P (Typeable)
|
||||
import qualified Data.Proxy as P (Proxy(..))
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.String as P
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Control.Arrow as P (left)
|
||||
import qualified Network.HTTP.Media as ME
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import Prelude (($), (.),(<$>),(<*>),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty)
|
||||
import qualified Prelude as P
|
||||
|
||||
-- * Content Negotiation
|
||||
|
||||
-- | A type for responses without content-body.
|
||||
data NoContent = NoContent
|
||||
deriving (P.Show, P.Eq)
|
||||
-- * Consumes Class
|
||||
|
||||
-- ** Mime Types
|
||||
class MimeType mtype => Consumes req mtype where
|
||||
|
||||
-- * Produces Class
|
||||
|
||||
class MimeType mtype => Produces req mtype where
|
||||
|
||||
-- * Default Mime Types
|
||||
|
||||
data MimeJSON = MimeJSON deriving (P.Typeable)
|
||||
data MimeXML = MimeXML deriving (P.Typeable)
|
||||
@ -66,10 +62,12 @@ data MimeOctetStream = MimeOctetStream deriving (P.Typeable)
|
||||
data MimeNoContent = MimeNoContent deriving (P.Typeable)
|
||||
data MimeAny = MimeAny deriving (P.Typeable)
|
||||
|
||||
data MimeJsonCharsetutf8 = MimeJsonCharsetutf8 deriving (P.Typeable)
|
||||
data MimeXmlCharsetutf8 = MimeXmlCharsetutf8 deriving (P.Typeable)
|
||||
-- | A type for responses without content-body.
|
||||
data NoContent = NoContent
|
||||
deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- ** MimeType Class
|
||||
|
||||
-- * MimeType Class
|
||||
|
||||
class P.Typeable mtype => MimeType mtype where
|
||||
{-# MINIMAL mimeType | mimeTypes #-}
|
||||
@ -91,7 +89,7 @@ class P.Typeable mtype => MimeType mtype where
|
||||
mimeTypes' :: mtype -> [ME.MediaType]
|
||||
mimeTypes' _ = mimeTypes (P.Proxy :: P.Proxy mtype)
|
||||
|
||||
-- ** MimeType Instances
|
||||
-- Default MimeType Instances
|
||||
|
||||
-- | @application/json; charset=utf-8@
|
||||
instance MimeType MimeJSON where
|
||||
@ -117,18 +115,7 @@ instance MimeType MimeAny where
|
||||
instance MimeType MimeNoContent where
|
||||
mimeType _ = Nothing
|
||||
|
||||
-- | @application/json; charset=utf-8@
|
||||
instance MimeType MimeJsonCharsetutf8 where
|
||||
mimeType _ = Just $ P.fromString "application/json; charset=utf-8"
|
||||
instance A.ToJSON a => MimeRender MimeJsonCharsetutf8 a where mimeRender _ = A.encode
|
||||
instance A.FromJSON a => MimeUnrender MimeJsonCharsetutf8 a where mimeUnrender _ = A.eitherDecode
|
||||
|
||||
-- | @application/xml; charset=utf-8@
|
||||
instance MimeType MimeXmlCharsetutf8 where
|
||||
mimeType _ = Just $ P.fromString "application/xml; charset=utf-8"
|
||||
|
||||
|
||||
-- ** MimeRender Class
|
||||
-- * MimeRender Class
|
||||
|
||||
class MimeType mtype => MimeRender mtype x where
|
||||
mimeRender :: P.Proxy mtype -> x -> BL.ByteString
|
||||
@ -136,7 +123,10 @@ class MimeType mtype => MimeRender mtype x where
|
||||
mimeRender' _ x = mimeRender (P.Proxy :: P.Proxy mtype) x
|
||||
|
||||
|
||||
-- ** MimeRender Instances
|
||||
mimeRenderDefaultMultipartFormData :: WH.ToHttpApiData a => a -> BL.ByteString
|
||||
mimeRenderDefaultMultipartFormData = BL.fromStrict . T.encodeUtf8 . WH.toQueryParam
|
||||
|
||||
-- Default MimeRender Instances
|
||||
|
||||
-- | `A.encode`
|
||||
instance A.ToJSON a => MimeRender MimeJSON a where mimeRender _ = A.encode
|
||||
@ -158,13 +148,9 @@ instance MimeRender MimeOctetStream T.Text where mimeRender _ = BL.fromStrict .
|
||||
instance MimeRender MimeOctetStream String where mimeRender _ = BCL.pack
|
||||
|
||||
instance MimeRender MimeMultipartFormData BL.ByteString where mimeRender _ = P.id
|
||||
instance MimeRender MimeMultipartFormData Binary where mimeRender _ = unBinary
|
||||
|
||||
instance MimeRender MimeMultipartFormData ByteArray where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Bool where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Char where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Date where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData DateTime where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Double where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Float where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData Int where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
@ -172,28 +158,18 @@ instance MimeRender MimeMultipartFormData Integer where mimeRender _ = mimeRende
|
||||
instance MimeRender MimeMultipartFormData String where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
instance MimeRender MimeMultipartFormData T.Text where mimeRender _ = mimeRenderDefaultMultipartFormData
|
||||
|
||||
mimeRenderDefaultMultipartFormData :: WH.ToHttpApiData a => a -> BL.ByteString
|
||||
mimeRenderDefaultMultipartFormData = BL.fromStrict . T.encodeUtf8 . WH.toQueryParam
|
||||
|
||||
-- | @P.Right . P.const NoContent@
|
||||
instance MimeRender MimeNoContent NoContent where mimeRender _ = P.const BCL.empty
|
||||
|
||||
-- instance MimeRender MimeOctetStream Double where mimeRender _ = BB.toLazyByteString . BB.doubleDec
|
||||
-- instance MimeRender MimeOctetStream Float where mimeRender _ = BB.toLazyByteString . BB.floatDec
|
||||
-- instance MimeRender MimeOctetStream Int where mimeRender _ = BB.toLazyByteString . BB.intDec
|
||||
-- instance MimeRender MimeOctetStream Integer where mimeRender _ = BB.toLazyByteString . BB.integerDec
|
||||
|
||||
-- instance MimeRender MimeJsonCharsetutf8 T.Text where mimeRender _ = undefined
|
||||
-- instance MimeRender MimeXmlCharsetutf8 T.Text where mimeRender _ = undefined
|
||||
|
||||
-- ** MimeUnrender Class
|
||||
-- * MimeUnrender Class
|
||||
|
||||
class MimeType mtype => MimeUnrender mtype o where
|
||||
mimeUnrender :: P.Proxy mtype -> BL.ByteString -> P.Either String o
|
||||
mimeUnrender' :: mtype -> BL.ByteString -> P.Either String o
|
||||
mimeUnrender' _ x = mimeUnrender (P.Proxy :: P.Proxy mtype) x
|
||||
|
||||
-- ** MimeUnrender Instances
|
||||
-- Default MimeUnrender Instances
|
||||
|
||||
-- | @A.eitherDecode@
|
||||
instance A.FromJSON a => MimeUnrender MimeJSON a where mimeUnrender _ = A.eitherDecode
|
||||
@ -215,15 +191,4 @@ instance MimeUnrender MimeOctetStream T.Text where mimeUnrender _ = P.left P.sho
|
||||
instance MimeUnrender MimeOctetStream String where mimeUnrender _ = P.Right . BCL.unpack
|
||||
|
||||
-- | @P.Right . P.const NoContent@
|
||||
instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent
|
||||
|
||||
-- instance MimeUnrender MimeJsonCharsetutf8 T.Text where mimeUnrender _ = undefined
|
||||
-- instance MimeUnrender MimeXmlCharsetutf8 T.Text where mimeUnrender _ = undefined
|
||||
|
||||
-- ** Request Consumes
|
||||
|
||||
class MimeType mtype => Consumes req mtype where
|
||||
|
||||
-- ** Request Produces
|
||||
|
||||
class MimeType mtype => Produces req mtype where
|
||||
instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent
|
||||
@ -27,33 +27,30 @@ Module : SwaggerPetstore.Model
|
||||
|
||||
module SwaggerPetstore.Model where
|
||||
|
||||
import SwaggerPetstore.Core
|
||||
|
||||
import Data.Aeson ((.:),(.:!),(.:?),(.=))
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Data.ByteString as B
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.ByteString.Base64.Lazy as BL64
|
||||
import qualified Data.Data as P (Data, Typeable)
|
||||
import qualified Data.Foldable as P
|
||||
import qualified Data.HashMap.Lazy as HM
|
||||
import qualified Data.Map as Map
|
||||
import qualified Data.Set as Set
|
||||
import qualified Data.Maybe as P
|
||||
import qualified Data.Foldable as P
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
import qualified Control.DeepSeq as NF
|
||||
import qualified Data.Ix as P
|
||||
import qualified Data.Set as Set
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as T
|
||||
import qualified Control.Arrow as P (left)
|
||||
import Data.Text (Text)
|
||||
|
||||
import qualified Data.Time as TI
|
||||
import qualified Data.Time.ISO8601 as TI
|
||||
import qualified Web.FormUrlEncoded as WH
|
||||
import qualified Web.HttpApiData as WH
|
||||
|
||||
import Control.Applicative ((<|>))
|
||||
import Control.Applicative (Alternative)
|
||||
import Data.Text (Text)
|
||||
import Prelude (($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
|
||||
|
||||
import qualified Prelude as P
|
||||
|
||||
|
||||
@ -66,8 +63,7 @@ import qualified Prelude as P
|
||||
data AdditionalPropertiesClass = AdditionalPropertiesClass
|
||||
{ additionalPropertiesClassMapProperty :: !(Maybe (Map.Map String Text)) -- ^ "map_property"
|
||||
, additionalPropertiesClassMapOfMapProperty :: !(Maybe (Map.Map String (Map.Map String Text))) -- ^ "map_of_map_property"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON AdditionalPropertiesClass
|
||||
instance A.FromJSON AdditionalPropertiesClass where
|
||||
@ -93,15 +89,14 @@ mkAdditionalPropertiesClass =
|
||||
{ additionalPropertiesClassMapProperty = Nothing
|
||||
, additionalPropertiesClassMapOfMapProperty = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Animal
|
||||
-- | Animal
|
||||
data Animal = Animal
|
||||
{ animalClassName :: !(Text) -- ^ /Required/ "className"
|
||||
, animalColor :: !(Maybe Text) -- ^ "color"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Animal
|
||||
instance A.FromJSON Animal where
|
||||
@ -128,14 +123,13 @@ mkAnimal animalClassName =
|
||||
{ animalClassName
|
||||
, animalColor = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** AnimalFarm
|
||||
-- | AnimalFarm
|
||||
data AnimalFarm = AnimalFarm
|
||||
{
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON AnimalFarm
|
||||
instance A.FromJSON AnimalFarm where
|
||||
@ -158,7 +152,7 @@ mkAnimalFarm =
|
||||
AnimalFarm
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** ApiResponse
|
||||
-- | ApiResponse
|
||||
@ -166,8 +160,7 @@ data ApiResponse = ApiResponse
|
||||
{ apiResponseCode :: !(Maybe Int) -- ^ "code"
|
||||
, apiResponseType :: !(Maybe Text) -- ^ "type"
|
||||
, apiResponseMessage :: !(Maybe Text) -- ^ "message"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON ApiResponse
|
||||
instance A.FromJSON ApiResponse where
|
||||
@ -196,14 +189,13 @@ mkApiResponse =
|
||||
, apiResponseType = Nothing
|
||||
, apiResponseMessage = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** ArrayOfArrayOfNumberOnly
|
||||
-- | ArrayOfArrayOfNumberOnly
|
||||
data ArrayOfArrayOfNumberOnly = ArrayOfArrayOfNumberOnly
|
||||
{ arrayOfArrayOfNumberOnlyArrayArrayNumber :: !(Maybe [[Double]]) -- ^ "ArrayArrayNumber"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON ArrayOfArrayOfNumberOnly
|
||||
instance A.FromJSON ArrayOfArrayOfNumberOnly where
|
||||
@ -226,14 +218,13 @@ mkArrayOfArrayOfNumberOnly =
|
||||
ArrayOfArrayOfNumberOnly
|
||||
{ arrayOfArrayOfNumberOnlyArrayArrayNumber = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** ArrayOfNumberOnly
|
||||
-- | ArrayOfNumberOnly
|
||||
data ArrayOfNumberOnly = ArrayOfNumberOnly
|
||||
{ arrayOfNumberOnlyArrayNumber :: !(Maybe [Double]) -- ^ "ArrayNumber"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON ArrayOfNumberOnly
|
||||
instance A.FromJSON ArrayOfNumberOnly where
|
||||
@ -256,7 +247,7 @@ mkArrayOfNumberOnly =
|
||||
ArrayOfNumberOnly
|
||||
{ arrayOfNumberOnlyArrayNumber = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** ArrayTest
|
||||
-- | ArrayTest
|
||||
@ -264,8 +255,7 @@ data ArrayTest = ArrayTest
|
||||
{ arrayTestArrayOfString :: !(Maybe [Text]) -- ^ "array_of_string"
|
||||
, arrayTestArrayArrayOfInteger :: !(Maybe [[Integer]]) -- ^ "array_array_of_integer"
|
||||
, arrayTestArrayArrayOfModel :: !(Maybe [[ReadOnlyFirst]]) -- ^ "array_array_of_model"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON ArrayTest
|
||||
instance A.FromJSON ArrayTest where
|
||||
@ -294,7 +284,7 @@ mkArrayTest =
|
||||
, arrayTestArrayArrayOfInteger = Nothing
|
||||
, arrayTestArrayArrayOfModel = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Capitalization
|
||||
-- | Capitalization
|
||||
@ -305,8 +295,7 @@ data Capitalization = Capitalization
|
||||
, capitalizationCapitalSnake :: !(Maybe Text) -- ^ "Capital_Snake"
|
||||
, capitalizationScaEthFlowPoints :: !(Maybe Text) -- ^ "SCA_ETH_Flow_Points"
|
||||
, capitalizationAttName :: !(Maybe Text) -- ^ "ATT_NAME" - Name of the pet
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Capitalization
|
||||
instance A.FromJSON Capitalization where
|
||||
@ -344,15 +333,14 @@ mkCapitalization =
|
||||
, capitalizationScaEthFlowPoints = Nothing
|
||||
, capitalizationAttName = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Category
|
||||
-- | Category
|
||||
data Category = Category
|
||||
{ categoryId :: !(Maybe Integer) -- ^ "id"
|
||||
, categoryName :: !(Maybe Text) -- ^ "name"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Category
|
||||
instance A.FromJSON Category where
|
||||
@ -378,15 +366,14 @@ mkCategory =
|
||||
{ categoryId = Nothing
|
||||
, categoryName = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** ClassModel
|
||||
-- | ClassModel
|
||||
-- Model for testing model with \"_class\" property
|
||||
data ClassModel = ClassModel
|
||||
{ classModelClass :: !(Maybe Text) -- ^ "_class"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON ClassModel
|
||||
instance A.FromJSON ClassModel where
|
||||
@ -409,14 +396,13 @@ mkClassModel =
|
||||
ClassModel
|
||||
{ classModelClass = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Client
|
||||
-- | Client
|
||||
data Client = Client
|
||||
{ clientClient :: !(Maybe Text) -- ^ "client"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Client
|
||||
instance A.FromJSON Client where
|
||||
@ -439,15 +425,14 @@ mkClient =
|
||||
Client
|
||||
{ clientClient = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** EnumArrays
|
||||
-- | EnumArrays
|
||||
data EnumArrays = EnumArrays
|
||||
{ enumArraysJustSymbol :: !(Maybe Text) -- ^ "just_symbol"
|
||||
, enumArraysArrayEnum :: !(Maybe [Text]) -- ^ "array_enum"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON EnumArrays
|
||||
instance A.FromJSON EnumArrays where
|
||||
@ -473,14 +458,13 @@ mkEnumArrays =
|
||||
{ enumArraysJustSymbol = Nothing
|
||||
, enumArraysArrayEnum = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** EnumClass
|
||||
-- | EnumClass
|
||||
data EnumClass = EnumClass
|
||||
{
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON EnumClass
|
||||
instance A.FromJSON EnumClass where
|
||||
@ -503,7 +487,7 @@ mkEnumClass =
|
||||
EnumClass
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** EnumTest
|
||||
-- | EnumTest
|
||||
@ -512,8 +496,7 @@ data EnumTest = EnumTest
|
||||
, enumTestEnumInteger :: !(Maybe Int) -- ^ "enum_integer"
|
||||
, enumTestEnumNumber :: !(Maybe Double) -- ^ "enum_number"
|
||||
, enumTestOuterEnum :: !(Maybe OuterEnum) -- ^ "outerEnum"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON EnumTest
|
||||
instance A.FromJSON EnumTest where
|
||||
@ -545,7 +528,7 @@ mkEnumTest =
|
||||
, enumTestEnumNumber = Nothing
|
||||
, enumTestOuterEnum = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** FormatTest
|
||||
-- | FormatTest
|
||||
@ -563,8 +546,7 @@ data FormatTest = FormatTest
|
||||
, formatTestDateTime :: !(Maybe DateTime) -- ^ "dateTime"
|
||||
, formatTestUuid :: !(Maybe Text) -- ^ "uuid"
|
||||
, formatTestPassword :: !(Text) -- ^ /Required/ "password"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON FormatTest
|
||||
instance A.FromJSON FormatTest where
|
||||
@ -627,15 +609,14 @@ mkFormatTest formatTestNumber formatTestByte formatTestDate formatTestPassword =
|
||||
, formatTestUuid = Nothing
|
||||
, formatTestPassword
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** HasOnlyReadOnly
|
||||
-- | HasOnlyReadOnly
|
||||
data HasOnlyReadOnly = HasOnlyReadOnly
|
||||
{ hasOnlyReadOnlyBar :: !(Maybe Text) -- ^ "bar"
|
||||
, hasOnlyReadOnlyFoo :: !(Maybe Text) -- ^ "foo"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON HasOnlyReadOnly
|
||||
instance A.FromJSON HasOnlyReadOnly where
|
||||
@ -661,15 +642,14 @@ mkHasOnlyReadOnly =
|
||||
{ hasOnlyReadOnlyBar = Nothing
|
||||
, hasOnlyReadOnlyFoo = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** MapTest
|
||||
-- | MapTest
|
||||
data MapTest = MapTest
|
||||
{ mapTestMapMapOfString :: !(Maybe (Map.Map String (Map.Map String Text))) -- ^ "map_map_of_string"
|
||||
, mapTestMapOfEnumString :: !(Maybe (Map.Map String Text)) -- ^ "map_of_enum_string"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON MapTest
|
||||
instance A.FromJSON MapTest where
|
||||
@ -695,7 +675,7 @@ mkMapTest =
|
||||
{ mapTestMapMapOfString = Nothing
|
||||
, mapTestMapOfEnumString = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** MixedPropertiesAndAdditionalPropertiesClass
|
||||
-- | MixedPropertiesAndAdditionalPropertiesClass
|
||||
@ -703,8 +683,7 @@ data MixedPropertiesAndAdditionalPropertiesClass = MixedPropertiesAndAdditionalP
|
||||
{ mixedPropertiesAndAdditionalPropertiesClassUuid :: !(Maybe Text) -- ^ "uuid"
|
||||
, mixedPropertiesAndAdditionalPropertiesClassDateTime :: !(Maybe DateTime) -- ^ "dateTime"
|
||||
, mixedPropertiesAndAdditionalPropertiesClassMap :: !(Maybe (Map.Map String Animal)) -- ^ "map"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON MixedPropertiesAndAdditionalPropertiesClass
|
||||
instance A.FromJSON MixedPropertiesAndAdditionalPropertiesClass where
|
||||
@ -733,7 +712,7 @@ mkMixedPropertiesAndAdditionalPropertiesClass =
|
||||
, mixedPropertiesAndAdditionalPropertiesClassDateTime = Nothing
|
||||
, mixedPropertiesAndAdditionalPropertiesClassMap = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Model200Response
|
||||
-- | Model200Response
|
||||
@ -741,8 +720,7 @@ mkMixedPropertiesAndAdditionalPropertiesClass =
|
||||
data Model200Response = Model200Response
|
||||
{ model200ResponseName :: !(Maybe Int) -- ^ "name"
|
||||
, model200ResponseClass :: !(Maybe Text) -- ^ "class"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Model200Response
|
||||
instance A.FromJSON Model200Response where
|
||||
@ -768,14 +746,13 @@ mkModel200Response =
|
||||
{ model200ResponseName = Nothing
|
||||
, model200ResponseClass = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** ModelList
|
||||
-- | ModelList
|
||||
data ModelList = ModelList
|
||||
{ modelList123List :: !(Maybe Text) -- ^ "123-list"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON ModelList
|
||||
instance A.FromJSON ModelList where
|
||||
@ -798,15 +775,14 @@ mkModelList =
|
||||
ModelList
|
||||
{ modelList123List = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** ModelReturn
|
||||
-- | ModelReturn
|
||||
-- Model for testing reserved words
|
||||
data ModelReturn = ModelReturn
|
||||
{ modelReturnReturn :: !(Maybe Int) -- ^ "return"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON ModelReturn
|
||||
instance A.FromJSON ModelReturn where
|
||||
@ -829,7 +805,7 @@ mkModelReturn =
|
||||
ModelReturn
|
||||
{ modelReturnReturn = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Name
|
||||
-- | Name
|
||||
@ -839,8 +815,7 @@ data Name = Name
|
||||
, nameSnakeCase :: !(Maybe Int) -- ^ "snake_case"
|
||||
, nameProperty :: !(Maybe Text) -- ^ "property"
|
||||
, name123Number :: !(Maybe Int) -- ^ "123Number"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Name
|
||||
instance A.FromJSON Name where
|
||||
@ -873,14 +848,13 @@ mkName nameName =
|
||||
, nameProperty = Nothing
|
||||
, name123Number = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** NumberOnly
|
||||
-- | NumberOnly
|
||||
data NumberOnly = NumberOnly
|
||||
{ numberOnlyJustNumber :: !(Maybe Double) -- ^ "JustNumber"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON NumberOnly
|
||||
instance A.FromJSON NumberOnly where
|
||||
@ -903,7 +877,7 @@ mkNumberOnly =
|
||||
NumberOnly
|
||||
{ numberOnlyJustNumber = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Order
|
||||
-- | Order
|
||||
@ -914,8 +888,7 @@ data Order = Order
|
||||
, orderShipDate :: !(Maybe DateTime) -- ^ "shipDate"
|
||||
, orderStatus :: !(Maybe Text) -- ^ "status" - Order Status
|
||||
, orderComplete :: !(Maybe Bool) -- ^ "complete"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Order
|
||||
instance A.FromJSON Order where
|
||||
@ -953,37 +926,15 @@ mkOrder =
|
||||
, orderStatus = Nothing
|
||||
, orderComplete = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** OuterBoolean
|
||||
-- | OuterBoolean
|
||||
data OuterBoolean = OuterBoolean
|
||||
{
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
newtype OuterBoolean = OuterBoolean
|
||||
{ unOuterBoolean :: Bool
|
||||
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON, WH.ToHttpApiData, WH.FromHttpApiData)
|
||||
|
||||
|
||||
-- | FromJSON OuterBoolean
|
||||
instance A.FromJSON OuterBoolean where
|
||||
parseJSON = A.withObject "OuterBoolean" $ \o ->
|
||||
pure OuterBoolean
|
||||
|
||||
|
||||
-- | ToJSON OuterBoolean
|
||||
instance A.ToJSON OuterBoolean where
|
||||
toJSON OuterBoolean =
|
||||
_omitNulls
|
||||
[
|
||||
]
|
||||
|
||||
|
||||
-- | Construct a value of type 'OuterBoolean' (by applying it's required fields, if any)
|
||||
mkOuterBoolean
|
||||
:: OuterBoolean
|
||||
mkOuterBoolean =
|
||||
OuterBoolean
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
-- ** OuterComposite
|
||||
-- | OuterComposite
|
||||
@ -991,8 +942,7 @@ data OuterComposite = OuterComposite
|
||||
{ outerCompositeMyNumber :: !(Maybe OuterNumber) -- ^ "my_number"
|
||||
, outerCompositeMyString :: !(Maybe OuterString) -- ^ "my_string"
|
||||
, outerCompositeMyBoolean :: !(Maybe OuterBoolean) -- ^ "my_boolean"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON OuterComposite
|
||||
instance A.FromJSON OuterComposite where
|
||||
@ -1021,14 +971,13 @@ mkOuterComposite =
|
||||
, outerCompositeMyString = Nothing
|
||||
, outerCompositeMyBoolean = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** OuterEnum
|
||||
-- | OuterEnum
|
||||
data OuterEnum = OuterEnum
|
||||
{
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON OuterEnum
|
||||
instance A.FromJSON OuterEnum where
|
||||
@ -1051,67 +1000,23 @@ mkOuterEnum =
|
||||
OuterEnum
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** OuterNumber
|
||||
-- | OuterNumber
|
||||
data OuterNumber = OuterNumber
|
||||
{
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
newtype OuterNumber = OuterNumber
|
||||
{ unOuterNumber :: Double
|
||||
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON, WH.ToHttpApiData, WH.FromHttpApiData)
|
||||
|
||||
|
||||
-- | FromJSON OuterNumber
|
||||
instance A.FromJSON OuterNumber where
|
||||
parseJSON = A.withObject "OuterNumber" $ \o ->
|
||||
pure OuterNumber
|
||||
|
||||
|
||||
-- | ToJSON OuterNumber
|
||||
instance A.ToJSON OuterNumber where
|
||||
toJSON OuterNumber =
|
||||
_omitNulls
|
||||
[
|
||||
]
|
||||
|
||||
|
||||
-- | Construct a value of type 'OuterNumber' (by applying it's required fields, if any)
|
||||
mkOuterNumber
|
||||
:: OuterNumber
|
||||
mkOuterNumber =
|
||||
OuterNumber
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
-- ** OuterString
|
||||
-- | OuterString
|
||||
data OuterString = OuterString
|
||||
{
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
newtype OuterString = OuterString
|
||||
{ unOuterString :: Text
|
||||
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON, WH.ToHttpApiData, WH.FromHttpApiData)
|
||||
|
||||
|
||||
-- | FromJSON OuterString
|
||||
instance A.FromJSON OuterString where
|
||||
parseJSON = A.withObject "OuterString" $ \o ->
|
||||
pure OuterString
|
||||
|
||||
|
||||
-- | ToJSON OuterString
|
||||
instance A.ToJSON OuterString where
|
||||
toJSON OuterString =
|
||||
_omitNulls
|
||||
[
|
||||
]
|
||||
|
||||
|
||||
-- | Construct a value of type 'OuterString' (by applying it's required fields, if any)
|
||||
mkOuterString
|
||||
:: OuterString
|
||||
mkOuterString =
|
||||
OuterString
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
-- ** Pet
|
||||
-- | Pet
|
||||
@ -1122,8 +1027,7 @@ data Pet = Pet
|
||||
, petPhotoUrls :: !([Text]) -- ^ /Required/ "photoUrls"
|
||||
, petTags :: !(Maybe [Tag]) -- ^ "tags"
|
||||
, petStatus :: !(Maybe Text) -- ^ "status" - pet status in the store
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Pet
|
||||
instance A.FromJSON Pet where
|
||||
@ -1163,15 +1067,14 @@ mkPet petName petPhotoUrls =
|
||||
, petTags = Nothing
|
||||
, petStatus = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** ReadOnlyFirst
|
||||
-- | ReadOnlyFirst
|
||||
data ReadOnlyFirst = ReadOnlyFirst
|
||||
{ readOnlyFirstBar :: !(Maybe Text) -- ^ "bar"
|
||||
, readOnlyFirstBaz :: !(Maybe Text) -- ^ "baz"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON ReadOnlyFirst
|
||||
instance A.FromJSON ReadOnlyFirst where
|
||||
@ -1197,14 +1100,13 @@ mkReadOnlyFirst =
|
||||
{ readOnlyFirstBar = Nothing
|
||||
, readOnlyFirstBaz = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** SpecialModelName
|
||||
-- | SpecialModelName
|
||||
data SpecialModelName = SpecialModelName
|
||||
{ specialModelNameSpecialPropertyName :: !(Maybe Integer) -- ^ "$special[property.name]"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON SpecialModelName
|
||||
instance A.FromJSON SpecialModelName where
|
||||
@ -1227,15 +1129,14 @@ mkSpecialModelName =
|
||||
SpecialModelName
|
||||
{ specialModelNameSpecialPropertyName = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Tag
|
||||
-- | Tag
|
||||
data Tag = Tag
|
||||
{ tagId :: !(Maybe Integer) -- ^ "id"
|
||||
, tagName :: !(Maybe Text) -- ^ "name"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Tag
|
||||
instance A.FromJSON Tag where
|
||||
@ -1261,7 +1162,7 @@ mkTag =
|
||||
{ tagId = Nothing
|
||||
, tagName = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** User
|
||||
-- | User
|
||||
@ -1274,8 +1175,7 @@ data User = User
|
||||
, userPassword :: !(Maybe Text) -- ^ "password"
|
||||
, userPhone :: !(Maybe Text) -- ^ "phone"
|
||||
, userUserStatus :: !(Maybe Int) -- ^ "userStatus" - User Status
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON User
|
||||
instance A.FromJSON User where
|
||||
@ -1319,7 +1219,7 @@ mkUser =
|
||||
, userPhone = Nothing
|
||||
, userUserStatus = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Cat
|
||||
-- | Cat
|
||||
@ -1327,8 +1227,7 @@ data Cat = Cat
|
||||
{ catClassName :: !(Text) -- ^ /Required/ "className"
|
||||
, catColor :: !(Maybe Text) -- ^ "color"
|
||||
, catDeclawed :: !(Maybe Bool) -- ^ "declawed"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Cat
|
||||
instance A.FromJSON Cat where
|
||||
@ -1358,7 +1257,7 @@ mkCat catClassName =
|
||||
, catColor = Nothing
|
||||
, catDeclawed = Nothing
|
||||
}
|
||||
|
||||
|
||||
|
||||
-- ** Dog
|
||||
-- | Dog
|
||||
@ -1366,8 +1265,7 @@ data Dog = Dog
|
||||
{ dogClassName :: !(Text) -- ^ /Required/ "className"
|
||||
, dogColor :: !(Maybe Text) -- ^ "color"
|
||||
, dogBreed :: !(Maybe Text) -- ^ "breed"
|
||||
} deriving (P.Show,P.Eq,P.Typeable)
|
||||
|
||||
} deriving (P.Show, P.Eq, P.Typeable)
|
||||
|
||||
-- | FromJSON Dog
|
||||
instance A.FromJSON Dog where
|
||||
@ -1397,181 +1295,6 @@ mkDog dogClassName =
|
||||
, dogColor = Nothing
|
||||
, dogBreed = Nothing
|
||||
}
|
||||
|
||||
|
||||
-- * Parameter newtypes
|
||||
|
||||
newtype AdditionalMetadata = AdditionalMetadata { unAdditionalMetadata :: Text } deriving (P.Eq, P.Show)
|
||||
newtype ApiKey = ApiKey { unApiKey :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Body = Body { unBody :: [User] } deriving (P.Eq, P.Show, A.ToJSON)
|
||||
newtype Byte = Byte { unByte :: ByteArray } deriving (P.Eq, P.Show)
|
||||
newtype Callback = Callback { unCallback :: Text } deriving (P.Eq, P.Show)
|
||||
newtype EnumFormString = EnumFormString { unEnumFormString :: Text } deriving (P.Eq, P.Show)
|
||||
newtype EnumFormStringArray = EnumFormStringArray { unEnumFormStringArray :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype EnumHeaderString = EnumHeaderString { unEnumHeaderString :: Text } deriving (P.Eq, P.Show)
|
||||
newtype EnumHeaderStringArray = EnumHeaderStringArray { unEnumHeaderStringArray :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype EnumQueryDouble = EnumQueryDouble { unEnumQueryDouble :: Double } deriving (P.Eq, P.Show)
|
||||
newtype EnumQueryInteger = EnumQueryInteger { unEnumQueryInteger :: Int } deriving (P.Eq, P.Show)
|
||||
newtype EnumQueryString = EnumQueryString { unEnumQueryString :: Text } deriving (P.Eq, P.Show)
|
||||
newtype EnumQueryStringArray = EnumQueryStringArray { unEnumQueryStringArray :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype File = File { unFile :: FilePath } deriving (P.Eq, P.Show)
|
||||
newtype Int32 = Int32 { unInt32 :: Int } deriving (P.Eq, P.Show)
|
||||
newtype Int64 = Int64 { unInt64 :: Integer } deriving (P.Eq, P.Show)
|
||||
newtype Name2 = Name2 { unName2 :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Number = Number { unNumber :: Double } deriving (P.Eq, P.Show)
|
||||
newtype OrderId = OrderId { unOrderId :: Integer } deriving (P.Eq, P.Show)
|
||||
newtype OrderIdText = OrderIdText { unOrderIdText :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Param = Param { unParam :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Param2 = Param2 { unParam2 :: Text } deriving (P.Eq, P.Show)
|
||||
newtype ParamBinary = ParamBinary { unParamBinary :: Binary } deriving (P.Eq, P.Show)
|
||||
newtype ParamDate = ParamDate { unParamDate :: Date } deriving (P.Eq, P.Show)
|
||||
newtype ParamDateTime = ParamDateTime { unParamDateTime :: DateTime } deriving (P.Eq, P.Show)
|
||||
newtype ParamDouble = ParamDouble { unParamDouble :: Double } deriving (P.Eq, P.Show)
|
||||
newtype ParamFloat = ParamFloat { unParamFloat :: Float } deriving (P.Eq, P.Show)
|
||||
newtype ParamInteger = ParamInteger { unParamInteger :: Int } deriving (P.Eq, P.Show)
|
||||
newtype ParamString = ParamString { unParamString :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Password = Password { unPassword :: Text } deriving (P.Eq, P.Show)
|
||||
newtype PatternWithoutDelimiter = PatternWithoutDelimiter { unPatternWithoutDelimiter :: Text } deriving (P.Eq, P.Show)
|
||||
newtype PetId = PetId { unPetId :: Integer } deriving (P.Eq, P.Show)
|
||||
newtype Status = Status { unStatus :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype StatusText = StatusText { unStatusText :: Text } deriving (P.Eq, P.Show)
|
||||
newtype Tags = Tags { unTags :: [Text] } deriving (P.Eq, P.Show)
|
||||
newtype Username = Username { unUsername :: Text } deriving (P.Eq, P.Show)
|
||||
|
||||
-- * Utils
|
||||
|
||||
-- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)
|
||||
_omitNulls :: [(Text, A.Value)] -> A.Value
|
||||
_omitNulls = A.object . P.filter notNull
|
||||
where
|
||||
notNull (_, A.Null) = False
|
||||
notNull _ = True
|
||||
|
||||
-- | Encodes fields using WH.toQueryParam
|
||||
_toFormItem :: (WH.ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text])
|
||||
_toFormItem name x = (name,) . (:[]) . WH.toQueryParam <$> x
|
||||
|
||||
-- | Collapse (Just "") to Nothing
|
||||
_emptyToNothing :: Maybe String -> Maybe String
|
||||
_emptyToNothing (Just "") = Nothing
|
||||
_emptyToNothing x = x
|
||||
{-# INLINE _emptyToNothing #-}
|
||||
|
||||
-- | Collapse (Just mempty) to Nothing
|
||||
_memptyToNothing :: (P.Monoid a, P.Eq a) => Maybe a -> Maybe a
|
||||
_memptyToNothing (Just x) | x P.== P.mempty = Nothing
|
||||
_memptyToNothing x = x
|
||||
{-# INLINE _memptyToNothing #-}
|
||||
|
||||
-- * DateTime Formatting
|
||||
|
||||
newtype DateTime = DateTime { unDateTime :: TI.UTCTime }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData,TI.ParseTime,TI.FormatTime)
|
||||
instance A.FromJSON DateTime where
|
||||
parseJSON = A.withText "DateTime" (_readDateTime . T.unpack)
|
||||
instance A.ToJSON DateTime where
|
||||
toJSON (DateTime t) = A.toJSON (_showDateTime t)
|
||||
instance WH.FromHttpApiData DateTime where
|
||||
parseUrlPiece = P.left T.pack . _readDateTime . T.unpack
|
||||
instance WH.ToHttpApiData DateTime where
|
||||
toUrlPiece (DateTime t) = T.pack (_showDateTime t)
|
||||
instance P.Show DateTime where
|
||||
show (DateTime t) = _showDateTime t
|
||||
|
||||
-- | @_parseISO8601@
|
||||
_readDateTime :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
|
||||
_readDateTime =
|
||||
_parseISO8601
|
||||
{-# INLINE _readDateTime #-}
|
||||
|
||||
-- | @TI.formatISO8601Millis@
|
||||
_showDateTime :: (t ~ TI.UTCTime, TI.FormatTime t) => t -> String
|
||||
_showDateTime =
|
||||
TI.formatISO8601Millis
|
||||
{-# INLINE _showDateTime #-}
|
||||
|
||||
-- | parse an ISO8601 date-time string
|
||||
_parseISO8601 :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
|
||||
_parseISO8601 t =
|
||||
P.asum $
|
||||
P.flip (TI.parseTimeM True TI.defaultTimeLocale) t <$>
|
||||
["%FT%T%QZ", "%FT%T%Q%z", "%FT%T%Q%Z"]
|
||||
{-# INLINE _parseISO8601 #-}
|
||||
|
||||
-- * Date Formatting
|
||||
|
||||
newtype Date = Date { unDate :: TI.Day }
|
||||
deriving (P.Enum,P.Eq,P.Data,P.Ord,P.Ix,NF.NFData,TI.ParseTime,TI.FormatTime)
|
||||
instance A.FromJSON Date where
|
||||
parseJSON = A.withText "Date" (_readDate . T.unpack)
|
||||
instance A.ToJSON Date where
|
||||
toJSON (Date t) = A.toJSON (_showDate t)
|
||||
instance WH.FromHttpApiData Date where
|
||||
parseUrlPiece = P.left T.pack . _readDate . T.unpack
|
||||
instance WH.ToHttpApiData Date where
|
||||
toUrlPiece (Date t) = T.pack (_showDate t)
|
||||
instance P.Show Date where
|
||||
show (Date t) = _showDate t
|
||||
|
||||
-- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@
|
||||
_readDate :: (TI.ParseTime t, Monad m) => String -> m t
|
||||
_readDate =
|
||||
TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"
|
||||
{-# INLINE _readDate #-}
|
||||
|
||||
-- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@
|
||||
_showDate :: TI.FormatTime t => t -> String
|
||||
_showDate =
|
||||
TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"
|
||||
{-# INLINE _showDate #-}
|
||||
|
||||
-- * Byte/Binary Formatting
|
||||
|
||||
|
||||
-- | base64 encoded characters
|
||||
newtype ByteArray = ByteArray { unByteArray :: BL.ByteString }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
|
||||
|
||||
instance A.FromJSON ByteArray where
|
||||
parseJSON = A.withText "ByteArray" _readByteArray
|
||||
instance A.ToJSON ByteArray where
|
||||
toJSON = A.toJSON . _showByteArray
|
||||
instance WH.FromHttpApiData ByteArray where
|
||||
parseUrlPiece = P.left T.pack . _readByteArray
|
||||
instance WH.ToHttpApiData ByteArray where
|
||||
toUrlPiece = _showByteArray
|
||||
instance P.Show ByteArray where
|
||||
show = T.unpack . _showByteArray
|
||||
|
||||
-- | read base64 encoded characters
|
||||
_readByteArray :: Monad m => Text -> m ByteArray
|
||||
_readByteArray = P.either P.fail (pure . ByteArray) . BL64.decode . BL.fromStrict . T.encodeUtf8
|
||||
{-# INLINE _readByteArray #-}
|
||||
|
||||
-- | show base64 encoded characters
|
||||
_showByteArray :: ByteArray -> Text
|
||||
_showByteArray = T.decodeUtf8 . BL.toStrict . BL64.encode . unByteArray
|
||||
{-# INLINE _showByteArray #-}
|
||||
|
||||
-- | any sequence of octets
|
||||
newtype Binary = Binary { unBinary :: BL.ByteString }
|
||||
deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
|
||||
|
||||
instance A.FromJSON Binary where
|
||||
parseJSON = A.withText "Binary" _readBinaryBase64
|
||||
instance A.ToJSON Binary where
|
||||
toJSON = A.toJSON . _showBinaryBase64
|
||||
instance WH.FromHttpApiData Binary where
|
||||
parseUrlPiece = P.left T.pack . _readBinaryBase64
|
||||
instance WH.ToHttpApiData Binary where
|
||||
toUrlPiece = _showBinaryBase64
|
||||
instance P.Show Binary where
|
||||
show = T.unpack . _showBinaryBase64
|
||||
|
||||
_readBinaryBase64 :: Monad m => Text -> m Binary
|
||||
_readBinaryBase64 = P.either P.fail (pure . Binary) . BL64.decode . BL.fromStrict . T.encodeUtf8
|
||||
{-# INLINE _readBinaryBase64 #-}
|
||||
|
||||
_showBinaryBase64 :: Binary -> Text
|
||||
_showBinaryBase64 = T.decodeUtf8 . BL.toStrict . BL64.encode . unBinary
|
||||
{-# INLINE _showBinaryBase64 #-}
|
||||
|
||||
@ -19,7 +19,7 @@ Module : SwaggerPetstore.Lens
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}
|
||||
|
||||
module SwaggerPetstore.Lens where
|
||||
module SwaggerPetstore.ModelLens where
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
@ -34,11 +34,7 @@ import Prelude (($), (.),(<$>),(<*>),(=<<),Maybe(..),Bool(..),Char,Double,FilePa
|
||||
import qualified Prelude as P
|
||||
|
||||
import SwaggerPetstore.Model
|
||||
|
||||
-- * Type Aliases
|
||||
|
||||
type Lens_' s a = Lens_ s s a a
|
||||
type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t
|
||||
import SwaggerPetstore.Core
|
||||
|
||||
|
||||
-- * AdditionalPropertiesClass
|
||||
@ -25,7 +25,7 @@ cabal-version: >= 1.10
|
||||
|
||||
extra-source-files:
|
||||
README.md
|
||||
swagger.json
|
||||
swagger.yaml
|
||||
|
||||
library
|
||||
hs-source-dirs:
|
||||
@ -61,10 +61,11 @@ library
|
||||
SwaggerPetstore
|
||||
SwaggerPetstore.API
|
||||
SwaggerPetstore.Client
|
||||
SwaggerPetstore.Model
|
||||
SwaggerPetstore.MimeTypes
|
||||
SwaggerPetstore.Lens
|
||||
SwaggerPetstore.Core
|
||||
SwaggerPetstore.Logging
|
||||
SwaggerPetstore.MimeTypes
|
||||
SwaggerPetstore.Model
|
||||
SwaggerPetstore.ModelLens
|
||||
other-modules:
|
||||
Paths_swagger_petstore
|
||||
default-language: Haskell2010
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
1471
samples/client/petstore/haskell-http-client/swagger.yaml
Normal file
1471
samples/client/petstore/haskell-http-client/swagger.yaml
Normal file
File diff suppressed because it is too large
Load Diff
@ -2,10 +2,9 @@
|
||||
|
||||
module Instances where
|
||||
|
||||
import Control.Monad
|
||||
import Data.Char (isSpace)
|
||||
import Data.List (sort)
|
||||
import Test.QuickCheck
|
||||
import SwaggerPetstore.Model
|
||||
import SwaggerPetstore.Core
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
import qualified Data.ByteString.Lazy as BL
|
||||
import qualified Data.HashMap.Strict as HM
|
||||
@ -14,8 +13,12 @@ import qualified Data.Text as T
|
||||
import qualified Data.Time as TI
|
||||
import qualified Data.Vector as V
|
||||
|
||||
import Control.Monad
|
||||
import Data.Char (isSpace)
|
||||
import Data.List (sort)
|
||||
import Test.QuickCheck
|
||||
|
||||
import ApproxEq
|
||||
import SwaggerPetstore.Model
|
||||
|
||||
instance Arbitrary T.Text where
|
||||
arbitrary = T.pack <$> arbitrary
|
||||
@ -102,6 +105,7 @@ instance Arbitrary Animal where
|
||||
|
||||
instance Arbitrary AnimalFarm where
|
||||
arbitrary =
|
||||
|
||||
pure AnimalFarm
|
||||
|
||||
|
||||
@ -172,6 +176,7 @@ instance Arbitrary EnumArrays where
|
||||
|
||||
instance Arbitrary EnumClass where
|
||||
arbitrary =
|
||||
|
||||
pure EnumClass
|
||||
|
||||
|
||||
@ -271,8 +276,7 @@ instance Arbitrary Order where
|
||||
|
||||
instance Arbitrary OuterBoolean where
|
||||
arbitrary =
|
||||
pure OuterBoolean
|
||||
|
||||
OuterBoolean <$> arbitrary
|
||||
|
||||
instance Arbitrary OuterComposite where
|
||||
arbitrary =
|
||||
@ -284,18 +288,17 @@ instance Arbitrary OuterComposite where
|
||||
|
||||
instance Arbitrary OuterEnum where
|
||||
arbitrary =
|
||||
|
||||
pure OuterEnum
|
||||
|
||||
|
||||
instance Arbitrary OuterNumber where
|
||||
arbitrary =
|
||||
pure OuterNumber
|
||||
|
||||
OuterNumber <$> arbitrary
|
||||
|
||||
instance Arbitrary OuterString where
|
||||
arbitrary =
|
||||
pure OuterString
|
||||
|
||||
OuterString <$> arbitrary
|
||||
|
||||
instance Arbitrary Pet where
|
||||
arbitrary =
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user