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/modules/swagger-codegen/src/main/resources/haskell-http-client/API.mustache
+++ b/modules/swagger-codegen/src/main/resources/haskell-http-client/API.mustache
@@ -1,3 +1,4 @@
+{{>partial_header}}
 {-|
 Module : {{title}}.API
 -}
--- a/modules/swagger-codegen/src/main/resources/haskell-http-client/Client.mustache
+++ b/modules/swagger-codegen/src/main/resources/haskell-http-client/Client.mustache
@@ -1,3 +1,4 @@
+{{>partial_header}}
 {-|
 Module : {{title}}.Client
 -}
--- a/modules/swagger-codegen/src/main/resources/haskell-http-client/Lens.mustache
+++ b/modules/swagger-codegen/src/main/resources/haskell-http-client/Lens.mustache
@@ -1,3 +1,4 @@
+{{>partial_header}}
 {-|
 Module : {{title}}.Lens
 -}
--- a/modules/swagger-codegen/src/main/resources/haskell-http-client/LoggingKatip.mustache
+++ b/modules/swagger-codegen/src/main/resources/haskell-http-client/LoggingKatip.mustache
@@ -1,3 +1,4 @@
+{{>partial_header}}
 {-|
 Module : {{title}}.Logging
 Katip Logging functions
--- a/modules/swagger-codegen/src/main/resources/haskell-http-client/LoggingMonadLogger.mustache
+++ b/modules/swagger-codegen/src/main/resources/haskell-http-client/LoggingMonadLogger.mustache
@@ -1,3 +1,4 @@
+{{>partial_header}}
 {-|
 Module : {{title}}.Logging
 monad-logger Logging functions
--- a/modules/swagger-codegen/src/main/resources/haskell-http-client/MimeTypes.mustache
+++ b/modules/swagger-codegen/src/main/resources/haskell-http-client/MimeTypes.mustache
@@ -1,4 +1,4 @@
-
+{{>partial_header}}
 {-|
 Module : {{title}}.MimeTypes
 -}
--- a/modules/swagger-codegen/src/main/resources/haskell-http-client/Model.mustache
+++ b/modules/swagger-codegen/src/main/resources/haskell-http-client/Model.mustache
@@ -1,3 +1,4 @@
+{{>partial_header}}
 {-|
 Module : {{title}}.Model
 -}
--- a/modules/swagger-codegen/src/main/resources/haskell-http-client/TopLevel.mustache
+++ b/modules/swagger-codegen/src/main/resources/haskell-http-client/TopLevel.mustache
@@ -1,3 +1,4 @@
+{{>partial_header}}
 {-|
 Module : {{title}}
 -}
--- a/modules/swagger-codegen/src/main/resources/haskell-http-client/partial_header.mustache
+++ b/modules/swagger-codegen/src/main/resources/haskell-http-client/partial_header.mustache
@@ -0,0 +1,17 @@
+{-
+   {{#appName}}
+   {{{appName}}}
+
+   {{/appName}}
+  {{#appDescription}}
+   {{{appDescription}}}
+
+   {{/appDescription}}
+   {{#version}}
+   OpenAPI spec version: {{{version}}}
+   {{/version}}
+   {{#infoEmail}}
+   Contact: {{{infoEmail}}}
+   {{/infoEmail}}
+   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+-}
--- 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
 -}
--- 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" : {