[WIP] [Elm] Fix elm code generation for array type request param

modules/openapi-generator/src/main/resources/elm/Api.mustache

@@ -1,5 +1,5 @@
 module Api exposing
-    ( Request
+    ( Request(..)
     , request
     , send
     , sendWithCustomError

modules/openapi-generator/src/main/resources/elm/model.mustache

@@ -1,7 +1,7 @@
 {{>licenseInfo}}
 
 module Api.Data exposing
-{{#models}}{{#model}}    {{#-first}}( {{/-first}}{{^-first}}, {{/-first}}{{classname}}{{#discriminator}}(..){{/discriminator}}{{^discriminator}}{{#oneOf}}{{#-first}}(..){{/-first}}{{/oneOf}}{{/discriminator}}{{#isEnum}}(..), {{#lambda.camelcase}}{{classname}}{{/lambda.camelcase}}Variants{{/isEnum}}{{^isEnum}}{{#vars}}{{#isCircularReference}}, {{classname}}{{nameInCamelCase}}(..){{/isCircularReference}}{{#isEnum}}, {{classname}}{{nameInCamelCase}}(..), {{#lambda.camelcase}}{{classname}}{{nameInCamelCase}}{{/lambda.camelcase}}Variants{{/isEnum}}{{/vars}}{{/isEnum}}
+{{#models}}{{#model}}    {{#-first}}( {{/-first}}{{^-first}}, {{/-first}}{{classname}}{{#discriminator}}(..){{/discriminator}}{{^discriminator}}{{#oneOf}}{{#-first}}(..){{/-first}}{{/oneOf}}{{/discriminator}}{{#isEnum}}(..), stringFrom{{classname}}, {{#lambda.camelcase}}{{classname}}{{/lambda.camelcase}}Variants{{/isEnum}}{{^isEnum}}{{#vars}}{{#isCircularReference}}, {{classname}}{{nameInCamelCase}}(..){{/isCircularReference}}{{#isEnum}}, {{classname}}{{nameInCamelCase}}(..), {{#lambda.camelcase}}{{classname}}{{nameInCamelCase}}{{/lambda.camelcase}}Variants{{/isEnum}}{{/vars}}{{/isEnum}}
 {{/model}}{{/models}}{{#models}}{{#model}}    , {{#lambda.camelcase}}encode{{classname}}{{/lambda.camelcase}}
 {{/model}}{{/models}}{{#models}}{{#model}}    , {{#lambda.camelcase}}{{classname}}{{/lambda.camelcase}}Decoder
 {{/model}}{{/models}}    )
@@ -157,4 +157,4 @@ decodeChain =
 
 decodeChainLazy : (a -> c) -> Json.Decode.Decoder a -> Json.Decode.Decoder (c -> b) -> Json.Decode.Decoder b
 decodeChainLazy f =
-    decodeChain << Json.Decode.map f
+    decodeChain << Json.Decode.map f

modules/openapi-generator/src/main/resources/elm/operation.mustache

@@ -1,7 +1,7 @@
 {{>licenseInfo}}
 
 module Api.Request.{{classname}} exposing
-{{#operations}}{{#operation}}    {{#-first}}( {{/-first}}{{^-first}}, {{/-first}}{{operationId}}{{#allParams}}{{#isEnum}}, {{enumName}}(..), {{#lambda.camelcase}}{{enumName}}{{/lambda.camelcase}}Variants{{/isEnum}}{{/allParams}}
+{{#operations}}{{#operation}}    {{#-first}}( {{/-first}}{{^-first}}, {{/-first}}{{operationId}}{{#allParams}}{{#isEnum}}, {{enumName}}(..), stringFrom{{enumName}}, {{#lambda.camelcase}}{{enumName}}{{/lambda.camelcase}}Variants{{/isEnum}}{{/allParams}}
 {{/operation}}{{/operations}}    )
 
 import Api
@@ -33,7 +33,7 @@ import Uuid exposing (Uuid){{/includeUuid}}
 {-| {{{notes}}}
 -}
 {{/notes}}
-{{operationId}} : {{#allParams}}{{^required}}Maybe {{/required}}{{#isArray}}List {{/isArray}}{{#datatypeWithEnum}}{{.}}{{/datatypeWithEnum}}{{^datatypeWithEnum}}{{#isModel}}Api.Data.{{/isModel}}{{dataType}}{{/datatypeWithEnum}} -> {{/allParams}}{{#authMethods}}{{#isBasicBearer}}String -> {{/isBasicBearer}}{{/authMethods}}Api.Request {{^responses}}(){{/responses}}{{#responses}}{{#is2xx}}{{^dataType}}(){{/dataType}}{{#isMap}}(Dict.Dict String {{/isMap}}{{#isArray}}(List {{/isArray}}{{^primitiveType}}{{^isUuid}}Api.Data.{{/isUuid}}{{/primitiveType}}{{#items}}{{#isModel}}Api.Data.{{/isModel}}{{/items}}{{dataType}}{{#isArray}}){{/isArray}}{{#isMap}}){{/isMap}}{{/is2xx}}{{/responses}}
+{{operationId}} : {{#allParams}}{{^required}}Maybe {{/required}}{{#isArray}}(List {{/isArray}}{{#datatypeWithEnum}}{{.}}{{/datatypeWithEnum}}{{^datatypeWithEnum}}{{^isPrimitiveType}}{{^isUuid}}Api.Data.{{/isUuid}}{{/isPrimitiveType}}{{#items}}{{#isModel}}Api.Data.{{/isModel}}{{/items}}{{dataType}}{{#isArray}}){{/isArray}}{{/datatypeWithEnum}} -> {{/allParams}}{{#authMethods}}{{#isBasicBearer}}String -> {{/isBasicBearer}}{{/authMethods}}Api.Request {{^responses}}(){{/responses}}{{#responses}}{{#is2xx}}{{^dataType}}(){{/dataType}}{{#dataType}}{{#isMap}}(Dict.Dict String {{/isMap}}{{#isArray}}(List {{/isArray}}{{#isModel}}{{^isUuid}}Api.Data.{{/isUuid}}{{/isModel}}{{dataType}}{{#isArray}}){{/isArray}}{{#isMap}}){{/isMap}}{{/dataType}}{{/is2xx}}{{/responses}}
 {{operationId}}{{#allParams}} {{>paramName}}{{/allParams}}{{#authMethods}}{{#isBasicBearer}} auth_token{{/isBasicBearer}}{{/authMethods}} =
     Api.request
         "{{httpMethod}}"
@@ -44,4 +44,4 @@ import Uuid exposing (Uuid){{/includeUuid}}
         {{#bodyParam}}({{#required}}Just ({{/required}}{{^required}}Maybe.map {{/required}}{{#isModel}}Api.Data.{{/isModel}}{{>recordFieldValueEncoder}} {{>paramName}}{{#required}}){{/required}}){{/bodyParam}}{{^bodyParam}}Nothing{{/bodyParam}}
         {{^responses}}(Json.Decode.succeed ()){{/responses}}{{#responses}}{{#is2xx}}{{^dataType}}(Json.Decode.succeed ()){{/dataType}}{{#dataType}}{{>recordFieldValueDecoder}}{{/dataType}}{{/is2xx}}{{/responses}}{{#authMethods}}{{#isBasicBearer}}
         |> Api.withBearerToken auth_token{{/isBasicBearer}}{{/authMethods}}
-{{/operation}}{{/operations}}
+{{/operation}}{{/operations}}

modules/openapi-generator/src/main/resources/elm/paramToString.mustache

@@ -1 +1 @@
-{{#isArray}}String.join "," << List.map {{#items}}{{>paramToString}}{{/items}}{{/isArray}}{{^isArray}}{{^isEnum}}{{#isString}}identity{{/isString}}{{#isBinary}}identity{{/isBinary}}{{#isByteArray}}identity{{/isByteArray}}{{/isEnum}}{{#isBoolean}}(\val -> if val then "true" else "false"){{/isBoolean}}{{#isDateTime}}Api.Time.dateTimeToString{{/isDateTime}}{{#isDate}}Api.Time.dateToString{{/isDate}}{{#isInteger}}String.fromInt{{/isInteger}}{{#isLong}}String.fromInt{{/isLong}}{{#isNumber}}String.fromFloat{{/isNumber}}{{#isFloat}}String.fromFloat{{/isFloat}}{{#isDouble}}String.fromFloat{{/isDouble}}{{#isEnum}}stringFrom{{^paramName}}Api.Data.{{classname}}{{/paramName}}{{enumName}}{{/isEnum}}{{#isUuid}}Uuid.toString{{/isUuid}}{{/isArray}}
+{{#isArray}}(String.join "," << List.map {{#items}}{{>paramToString}}{{/items}}){{/isArray}}{{^isArray}}{{^isEnum}}{{#isString}}identity{{/isString}}{{#isBinary}}identity{{/isBinary}}{{#isByteArray}}identity{{/isByteArray}}{{/isEnum}}{{#isBoolean}}(\val -> if val then "true" else "false"){{/isBoolean}}{{#isDateTime}}Api.Time.dateTimeToString{{/isDateTime}}{{#isDate}}Api.Time.dateToString{{/isDate}}{{#isInteger}}String.fromInt{{/isInteger}}{{#isLong}}String.fromInt{{/isLong}}{{#isNumber}}String.fromFloat{{/isNumber}}{{#isFloat}}String.fromFloat{{/isFloat}}{{#isDouble}}String.fromFloat{{/isDouble}}{{#allowableValues}}stringFrom{{^paramName}}Api.Data.{{classname}}{{/paramName}}{{enumName}}{{/allowableValues}}{{#isUuid}}Uuid.toString{{/isUuid}}{{/isArray}}

samples/openapi3/client/elm/src/Api.elm

@@ -1,5 +1,5 @@
 module Api exposing
-    ( Request
+    ( Request(..)
     , request
     , send
     , sendWithCustomError

samples/openapi3/client/elm/src/Api/Data.elm

@@ -21,8 +21,8 @@ module Api.Data exposing
     , Discriminated(..)
     , DiscriminatedA
     , DiscriminatedB
-    , Enum(..), enumVariants
-    , Enumeric(..), enumericVariants
+    , Enum(..), stringFromEnum, enumVariants
+    , Enumeric(..), stringFromEnumeric, enumericVariants
     , Maybe_
     , OneOf(..)
     , OneOfA
@@ -918,4 +918,4 @@ decodeChain =
 
 decodeChainLazy : (a -> c) -> Json.Decode.Decoder a -> Json.Decode.Decoder (c -> b) -> Json.Decode.Decoder b
 decodeChainLazy f =
-    decodeChain << Json.Decode.map f
+    decodeChain << Json.Decode.map f

samples/openapi3/client/elm/src/Api/Request/Default.elm

@@ -14,10 +14,10 @@
 
 
 module Api.Request.Default exposing
-    ( headerPost, HeaderType(..), headerTypeVariants
+    ( headerPost, HeaderType(..), stringFromHeaderType, headerTypeVariants
     , maybeGet
-    , pathStringIntegerEnumerationGet, Enumeration(..), enumerationVariants
-    , queryGet, Enum(..), enumVariants
+    , pathStringIntegerEnumerationGet, Enumeration(..), stringFromEnumeration, enumerationVariants
+    , queryGet, Enum(..), stringFromEnum, enumVariants
     , securedPost
     , uuidGet
     )
@@ -190,3 +190,4 @@ uuidGet value_query =
         []
         Nothing
         Uuid.decoder
+

samples/openapi3/client/elm/src/Api/Request/Primitive.elm

@@ -36,3 +36,4 @@ update primitive_body =
         []
         (Just (Api.Data.encodePrimitive primitive_body))
         Api.Data.primitiveDecoder
+