add partial header to haskell http client (#6606)

2017-10-02 23:52:01 +08:00
parent 900aad6da4
commit 28a5b74dbf
17 changed files with 114 additions and 21 deletions
--- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore.hs
+++ b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore.hs
@@ -1,3 +1,13 @@
+{-
+   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: 1.0.0
+   Contact: apiteam@swagger.io
+   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+-}
+
 {-|
 Module : SwaggerPetstore
 -}
--- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API.hs
+++ b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API.hs
@@ -1,3 +1,13 @@
+{-
+   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: 1.0.0
+   Contact: apiteam@swagger.io
+   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+-}
+
 {-|
 Module : SwaggerPetstore.API
 -}
--- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Client.hs
+++ b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Client.hs
@@ -1,3 +1,13 @@
+{-
+   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: 1.0.0
+   Contact: apiteam@swagger.io
+   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+-}
+
 {-|
 Module : SwaggerPetstore.Client
 -}
--- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Lens.hs
+++ b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Lens.hs
@@ -1,3 +1,13 @@
+{-
+   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: 1.0.0
+   Contact: apiteam@swagger.io
+   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+-}
+
 {-|
 Module : SwaggerPetstore.Lens
 -}
--- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Logging.hs
+++ b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Logging.hs
@@ -1,3 +1,13 @@
+{-
+   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: 1.0.0
+   Contact: apiteam@swagger.io
+   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+-}
+
 {-|
 Module : SwaggerPetstore.Logging
 Katip Logging functions
--- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/MimeTypes.hs
+++ b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/MimeTypes.hs
@@ -1,3 +1,12 @@
+{-
+   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: 1.0.0
+   Contact: apiteam@swagger.io
+   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+-}

 {-|
 Module : SwaggerPetstore.MimeTypes
--- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Model.hs
+++ b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Model.hs
@@ -1,3 +1,13 @@
+{-
+   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: 1.0.0
+   Contact: apiteam@swagger.io
+   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+-}
+
 {-|
 Module : SwaggerPetstore.Model
 -}
@@ -1413,4 +1423,4 @@ _readBinaryBase64 = P.either P.fail (pure . Binary) . BL64.decode . BL.fromStric

 _showBinaryBase64 :: Binary -> Text
 _showBinaryBase64 = T.decodeUtf8 . BL.toStrict . BL64.encode . unBinary
-{-# INLINE _showBinaryBase64 #-}
+{-# INLINE _showBinaryBase64 #-}
--- a/samples/client/petstore/haskell-http-client/swagger.json
+++ b/samples/client/petstore/haskell-http-client/swagger.json
@@ -108,8 +108,8 @@
          "type" : "array",
          "items" : {
            "type" : "string",
-            "enum" : [ "available", "pending", "sold" ],
-            "default" : "available"
+            "default" : "available",
+            "enum" : [ "available", "pending", "sold" ]
          },
          "collectionFormat" : "csv"
        } ],
@@ -680,8 +680,8 @@
          "type" : "array",
          "items" : {
            "type" : "string",
-            "enum" : [ ">", "$" ],
-            "default" : "$"
+            "default" : "$",
+            "enum" : [ ">", "$" ]
          }
        }, {
          "name" : "enum_form_string",
@@ -699,8 +699,8 @@
          "type" : "array",
          "items" : {
            "type" : "string",
-            "enum" : [ ">", "$" ],
-            "default" : "$"
+            "default" : "$",
+            "enum" : [ ">", "$" ]
          }
        }, {
          "name" : "enum_header_string",
@@ -718,8 +718,8 @@
          "type" : "array",
          "items" : {
            "type" : "string",
-            "enum" : [ ">", "$" ],
-            "default" : "$"
+            "default" : "$",
+            "enum" : [ ">", "$" ]
          }
        }, {
          "name" : "enum_query_string",
@@ -1662,15 +1662,6 @@
      "type" : "string",
      "enum" : [ "placed", "approved", "delivered" ]
    },
-    "OuterNumber" : {
-      "type" : "number"
-    },
-    "OuterString" : {
-      "type" : "string"
-    },
-    "OuterBoolean" : {
-      "type" : "boolean"
-    },
    "OuterComposite" : {
      "type" : "object",
      "properties" : {
@@ -1684,6 +1675,15 @@
          "$ref" : "#/definitions/OuterBoolean"
        }
      }
+    },
+    "OuterNumber" : {
+      "type" : "number"
+    },
+    "OuterString" : {
+      "type" : "string"
+    },
+    "OuterBoolean" : {
+      "type" : "boolean"
    }
  },
  "externalDocs" : {