[Elm] Template improvements (#661)

* Add elm template parameter to the samples testing script

* Update elm-date-extra package; fixes #458

* Update generated elm samples

* Use Elm doc comments; remove some unneccessary newlines

* Update generated Elm samples

* Remove unnecessary parenthesis around non-optional container type

Author: laughedelic

bin/elm-petstore.sh

@@ -27,6 +27,6 @@ fi
 
 # if you've executed sbt assembly previously it will use that instead.
 export JAVA_OPTS="${JAVA_OPTS} -XX:MaxPermSize=256M -Xmx1024M -DloggerPath=conf/log4j.properties"
-ags="generate -i modules/openapi-generator/src/test/resources/2_0/petstore.yaml -g elm -o samples/client/petstore/elm $@"
+ags="generate -i modules/openapi-generator/src/test/resources/2_0/petstore.yaml -g elm -t modules/openapi-generator/src/main/resources/elm -o samples/client/petstore/elm $@"
 
 java $JAVA_OPTS -jar $executable $ags

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

@@ -4,6 +4,7 @@ import Date
 import Date.Extra exposing (fromIsoString, toFormattedString)
 import Json.Decode as Decode exposing (Decoder)
 import Json.Encode as Encode
+import Result
 
 
 type alias DateOnly =
@@ -24,11 +25,8 @@ dateOnlyEncoder model =
 decodeIsoString : String -> Decoder DateOnly
 decodeIsoString str =
     case fromIsoString str of
-        Just date ->
+        Result.Ok date ->
             Decode.succeed date
 
-        Nothing ->
-            Decode.fail <|
-                "Cannot convert "
-                    ++ str
-                    ++ " to DateOnly"
+        Result.Err msg ->
+            Decode.fail msg

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

@@ -4,6 +4,7 @@ import Date
 import Date.Extra exposing (fromIsoString, toIsoString)
 import Json.Decode as Decode exposing (Decoder)
 import Json.Encode as Encode
+import Result
 
 
 type alias DateTime =
@@ -24,11 +25,8 @@ dateTimeEncoder model =
 decodeIsoString : String -> Decoder DateTime
 decodeIsoString str =
     case fromIsoString str of
-        Just date ->
+        Result.Ok date ->
             Decode.succeed date
 
-        Nothing ->
-            Decode.fail <|
-                "Cannot convert "
-                    ++ str
-                    ++ " to DateTime"
+        Result.Err msg ->
+            Decode.fail msg

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

@@ -1,5 +1,7 @@
 {{classVarName}}Decoder : Decoder {{classname}}
 {{classVarName}}Decoder =
     decode {{classname}}
-{{#allVars}}{{^discriminatorValue}}        |> {{>fieldDecoder}}
-{{/discriminatorValue}}{{/allVars}}
+{{#allVars}}
+{{^discriminatorValue}}        |> {{>fieldDecoder}}
+{{/discriminatorValue}}
+{{/allVars}}

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

@@ -10,13 +10,14 @@ import Json.Decode as Decode
 basePath : String
 basePath =
     "{{basePath}}"
-
-
 {{#operations}}
   {{#operation}}
-{-
-   {{notes}}
+
+
+{{#notes}}
+{-| {{{notes}}}
 -}
+{{/notes}}
 {{operationId}} : {{#pathParams}}{{dataType}} -> {{/pathParams}}{{#bodyParam}}{{dataType}} -> {{/bodyParam}}Http.Request {{^responses}}(){{/responses}}{{#responses}}{{#-first}}{{^dataType}}(){{/dataType}}{{#isMapContainer}}(Dict.Dict String {{/isMapContainer}}{{#isListContainer}}(List {{/isListContainer}}{{dataType}}{{#isListContainer}}){{/isListContainer}}{{#isMapContainer}}){{/isMapContainer}}{{/-first}}{{/responses}}
 {{operationId}} {{#pathParams}}{{paramName}} {{/pathParams}}{{#bodyParam}}model {{/bodyParam}}=
     { method = "{{httpMethod}}"
@@ -28,7 +29,5 @@ basePath =
     , withCredentials = False
     }
         |> Http.request
-
-
   {{/operation}}
 {{/operations}}

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

@@ -12,7 +12,7 @@
         "elm-lang/core": "5.1.1 <= v < 6.0.0",
         "elm-lang/html": "2.0.0 <= v < 3.0.0",
         "elm-lang/http": "1.0.0 <= v < 2.0.0",
-        "justinmimbs/elm-date-extra": "2.0.3 <= v < 3.0.0"
+        "justinmimbs/elm-date-extra": "3.0.0 <= v < 4.0.0"
     },
     "elm-version": "0.18.0 <= v < 0.19.0"
 }

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

@@ -2,8 +2,12 @@
    {{{appName}}}
    {{{appDescription}}}
 
-   {{#version}}OpenAPI spec version: {{{version}}}{{/version}}
-   {{#infoEmail}}Contact: {{{infoEmail}}}{{/infoEmail}}
+   {{#version}}
+   OpenAPI spec version: {{{version}}}
+   {{/version}}
+   {{#infoEmail}}
+   Contact: {{{infoEmail}}}
+   {{/infoEmail}}
 
    NOTE: This file is auto generated by the openapi-generator.
    https://github.com/openapitools/openapi-generator.git

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

@@ -6,19 +6,14 @@ module Data.{{classname}} exposing ({{#models}}{{#model}}{{classname}}{{#hasChil
 import Json.Decode.Pipeline exposing (decode, optional, required)
 import Json.Encode as Encode
 import Maybe exposing (map, withDefault)
-
-
 {{#models}}
 {{#model}}
+
+
 {{#description}}
-{-
-   {{{description}}}
+{-| {{{description}}}
 -}
 {{/description}}
 {{#isEnum}}{{>modelTypeUnion}}{{/isEnum}}{{^isEnum}}{{#hasChildren}}{{>modelTypeDiscriminator}}{{/hasChildren}}{{^hasChildren}}{{#isAlias}}{{>modelTypePrimitive}}{{/isAlias}}{{^isAlias}}{{#isArrayModel}}{{>modelTypeArray}}{{/isArrayModel}}{{^isArrayModel}}{{>modelTypeAlias}}{{/isArrayModel}}{{/isAlias}}{{/hasChildren}}{{/isEnum}}
 {{/model}}
-{{^-last}}
-
-
-{{/-last}}
 {{/models}}

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

@@ -1,7 +1,5 @@
-
-
 type alias {{classname}} =
-    { {{#vars}}{{^-first}}    , {{/-first}}{{name}} : {{^required}}Maybe {{/required}}{{#isContainer}}(List {{/isContainer}}{{#isEnum}}{{nameInCamelCase}}{{/isEnum}}{{^isEnum}}{{dataType}}{{/isEnum}}{{#isContainer}}){{/isContainer}}
+    { {{#vars}}{{^-first}}    , {{/-first}}{{name}} : {{^required}}Maybe {{#isContainer}}({{/isContainer}}{{/required}}{{#isContainer}}List {{/isContainer}}{{#isEnum}}{{nameInCamelCase}}{{/isEnum}}{{^isEnum}}{{dataType}}{{/isEnum}}{{^required}}{{#isContainer}}){{/isContainer}}{{/required}}
 {{/vars}}    }
 {{#vars}}
 {{#isEnum}}
@@ -25,4 +23,4 @@ type alias {{classname}} =
 
 {{>unionEncoder}}
 {{/isEnum}}
-{{/vars}}
+{{/vars}}

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

@@ -1,5 +1,3 @@
-
-
 type alias {{classname}}
     = {{dataType}}
 
@@ -11,4 +9,4 @@ type alias {{classname}}
 
 {{classVarName}}Encoder : {{classname}} -> Encode.Value
 {{classVarName}}Encoder =
-    {{vendorExtensions.x-encoder}}
+    {{vendorExtensions.x-encoder}}