Add support for UUIDs (#1516)

And fix naming for `decode` functions.

modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/ElmClientCodegen.java

@@ -130,7 +130,8 @@ public class ElmClientCodegen extends DefaultCodegen implements CodegenConfig {
                 Arrays.asList(
                         "Byte",
                         "DateOnly",
-                        "DateTime")
+                        "DateTime",
+                        "Uuid")
         );
 
         instantiationTypes.clear();
@@ -153,6 +154,7 @@ public class ElmClientCodegen extends DefaultCodegen implements CodegenConfig {
         typeMapping.put("ByteArray", "Byte");
         typeMapping.put("file", "String");
         typeMapping.put("binary", "String");
+        typeMapping.put("UUID", "Uuid");
 
         importMapping.clear();
 
@@ -675,31 +677,31 @@ public class ElmClientCodegen extends DefaultCodegen implements CodegenConfig {
 
     private void addEncoderAndDecoder(final Map<String, Object> vendorExtensions, final String dataType, final DataTypeExposure dataTypeExposure) {
         final String baseName = org.openapitools.codegen.utils.StringUtils.camelize(dataType, true);
-        String encoderName;
+        String encodeName;
         String decoderName;
         switch (dataTypeExposure) {
             case EXPOSED:
                 decoderName = "decoder";
-                encoderName = "encoder";
+                encodeName = "encode";
                 break;
             case INTERNAL:
-                encoderName = baseName + "Encoder";
+                encodeName = "encode" + StringUtils.capitalize(baseName);
                 decoderName = baseName + "Decoder";
                 break;
             case EXTERNAL:
-                encoderName = dataType + ".encoder";
+                encodeName = dataType + ".encode";
                 decoderName = dataType + ".decoder";
                 break;
             case PRIMITIVE:
-                encoderName = "Encode." + baseName;
+                encodeName = "Encode." + baseName;
                 decoderName = "Decode." + baseName;
                 break;
             default:
-                encoderName = "";
+                encodeName = "";
                 decoderName = "";
         }
         if (!vendorExtensions.containsKey(ENCODER)) {
-            vendorExtensions.put(ENCODER, encoderName);
+            vendorExtensions.put(ENCODER, encodeName);
         }
         if (!vendorExtensions.containsKey(DECODER)) {
             vendorExtensions.put(DECODER, decoderName);

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

@@ -1,4 +1,4 @@
-module Byte exposing (Byte, decoder, encoder)
+module Byte exposing (Byte, decoder, encode)
 
 import Json.Decode as Decode exposing (Decoder)
 import Json.Encode as Encode
@@ -13,6 +13,6 @@ decoder =
     Decode.string
 
 
-encoder : Byte -> Encode.Value
+encode : Byte -> Encode.Value
-encoder model =
+encode model =
     Encode.string model

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

@@ -1,4 +1,4 @@
-module DateOnly exposing (DateOnly, decoder, encoder, toString)
+module DateOnly exposing (DateOnly, decoder, encode, toString)
 
 import Iso8601
 import Json.Decode as Decode exposing (Decoder)
@@ -17,8 +17,8 @@ decoder =
         |> Decode.andThen decodeIsoString
 
 
-encoder : DateOnly -> Encode.Value
+encode : DateOnly -> Encode.Value
-encoder =
+encode =
     Encode.string << toString
 
 

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

@@ -1,4 +1,4 @@
-module DateOnly exposing (DateOnly, decoder, encoder, toString)
+module DateOnly exposing (DateOnly, decoder, encode, toString)
 
 import Date
 import Date.Extra exposing (fromIsoString, toFormattedString)
@@ -17,8 +17,8 @@ decoder =
         |> Decode.andThen decodeIsoString
 
 
-encoder : DateOnly -> Encode.Value
+encode : DateOnly -> Encode.Value
-encoder =
+encode =
     Encode.string << toString
 
 

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

@@ -1,4 +1,4 @@
-module DateTime exposing (DateTime, decoder, encoder, toString)
+module DateTime exposing (DateTime, decoder, encode, toString)
 
 import Iso8601
 import Json.Decode as Decode exposing (Decoder)
@@ -17,8 +17,8 @@ decoder =
         |> Decode.andThen decodeIsoString
 
 
-encoder : DateTime -> Encode.Value
+encode : DateTime -> Encode.Value
-encoder =
+encode =
     Encode.string << toString
 
 

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

@@ -1,4 +1,4 @@
-module DateTime exposing (DateTime, decoder, encoder, toString)
+module DateTime exposing (DateTime, decoder, encode, toString)
 
 import Date
 import Date.Extra exposing (fromIsoString, toIsoString)
@@ -17,8 +17,8 @@ decoder =
         |> Decode.andThen decodeIsoString
 
 
-encoder : DateTime -> Encode.Value
+encode : DateTime -> Encode.Value
-encoder =
+encode =
     Encode.string << toString
 
 

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

@@ -9,6 +9,7 @@
     "exposed-modules": [],
     "dependencies": {
         "NoRedInk/elm-decode-pipeline": "3.0.0 <= v < 4.0.0",
+        "danyx23/elm-uuid": "2.0.2 <= v < 2.1.1",
         "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",

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

@@ -7,6 +7,7 @@
     "dependencies": {
         "direct": {
             "NoRedInk/elm-json-decode-pipeline": "1.0.0",
+            "danyx23/elm-uuid": "2.1.2",
             "elm/browser": "1.0.1",
             "elm/core": "1.0.2",
             "elm/html": "1.0.0",
@@ -20,6 +21,8 @@
             "elm/bytes": "1.0.5",
             "elm/file": "1.0.1",
             "elm/parser": "1.1.0",
+            "elm/random": "1.0.0",
+            "elm/regex": "1.0.0",
             "elm/virtual-dom": "1.0.2"
         }
     },

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

@@ -1,6 +1,6 @@
 {{>licenseInfo}}
 
-module Data.{{classname}} exposing ({{#models}}{{#model}}{{classname}}{{#hasChildren}}(..){{/hasChildren}}{{#isEnum}}(..){{/isEnum}}{{^isEnum}}{{#vars}}{{#isEnum}}, {{vendorExtensions.elmCustomType}}(..){{/isEnum}}{{/vars}}{{/isEnum}}, decoder, encoder{{/model}}{{/models}})
+module Data.{{classname}} exposing ({{#models}}{{#model}}{{classname}}{{#hasChildren}}(..){{/hasChildren}}{{#isEnum}}(..){{/isEnum}}{{^isEnum}}{{#vars}}{{#isEnum}}, {{vendorExtensions.elmCustomType}}(..){{/isEnum}}{{/vars}}{{/isEnum}}, decoder, encode{{/model}}{{/models}})
 
 {{>imports}}import Dict exposing (Dict)
 import Json.Decode as Decode exposing (Decoder)

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

@@ -7,6 +7,6 @@ decoder =
     Decode.list {{vendorExtensions.elmDecoder}}
 
 
-encoder : {{classname}} -> Encode.Value
+encode : {{classname}} -> Encode.Value
-encoder items =
+encode items =
     Encode.list {{#isElm018}}(List.map {{/isElm018}}{{vendorExtensions.elmEncoder}} items{{#isElm018}}){{/isElm018}}

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

@@ -22,8 +22,8 @@ decoder =
             Decode.fail <| "Trying to decode {{classname}}, but {{{discriminatorName}}} " ++ tag ++ " is not supported."
 
 
-encoder : {{classname}} -> Encode.Value
+encode : {{classname}} -> Encode.Value
-encoder model =
+encode model =
     case model of
 {{#mappedModels}}
         {{modelName}}Type subModel ->

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

@@ -7,6 +7,6 @@ decoder =
     {{vendorExtensions.elmDecoder}}
 
 
-encoder : {{classname}} -> Encode.Value
+encode : {{classname}} -> Encode.Value
-encoder =
+encode =
     {{vendorExtensions.elmEncoder}}

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

@@ -1,5 +1,5 @@
-encoder : {{#vendorExtensions.discriminatorName}}String -> {{/vendorExtensions.discriminatorName}}{{classname}} -> Encode.Value
+encode : {{#vendorExtensions.discriminatorName}}String -> {{/vendorExtensions.discriminatorName}}{{classname}} -> Encode.Value
-encoder {{#vendorExtensions.discriminatorName}}tag {{/vendorExtensions.discriminatorName}}model =
+encode {{#vendorExtensions.discriminatorName}}tag {{/vendorExtensions.discriminatorName}}model =
     Encode.object
 {{#allVars}}
         {{#-first}}[{{/-first}}{{^-first}},{{/-first}} {{>recordFieldEncoder}}

samples/client/petstore/elm-0.18/elm-package.json

@@ -9,6 +9,7 @@
     "exposed-modules": [],
     "dependencies": {
         "NoRedInk/elm-decode-pipeline": "3.0.0 <= v < 4.0.0",
+        "danyx23/elm-uuid": "2.0.2 <= v < 2.1.1",
         "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",

samples/client/petstore/elm-0.18/src/Byte.elm

@@ -1,4 +1,4 @@
-module Byte exposing (Byte, decoder, encoder)
+module Byte exposing (Byte, decoder, encode)
 
 import Json.Decode as Decode exposing (Decoder)
 import Json.Encode as Encode
@@ -13,6 +13,6 @@ decoder =
     Decode.string
 
 
-encoder : Byte -> Encode.Value
+encode : Byte -> Encode.Value
-encoder model =
+encode model =
     Encode.string model

samples/client/petstore/elm-0.18/src/Data/ApiResponse.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.ApiResponse exposing (ApiResponse, decoder, encoder)
+module Data.ApiResponse exposing (ApiResponse, decoder, encode)
 
 import Dict exposing (Dict)
 import Json.Decode as Decode exposing (Decoder)
@@ -21,9 +21,9 @@ import Json.Encode as Encode
 {-| Describes the result of uploading an image resource
 -}
 type alias ApiResponse =
-    { code : Maybe (Int)
+    { code : Maybe Int
-    , type_ : Maybe (String)
+    , type_ : Maybe String
-    , message : Maybe (String)
+    , message : Maybe String
     }
 
 
@@ -35,14 +35,10 @@ decoder =
         |> optional "message" (Decode.nullable Decode.string) Nothing
 
 
-
+encode : ApiResponse -> Encode.Value
-encoder : ApiResponse -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "code", Maybe.withDefault Encode.null (Maybe.map Encode.int model.code) )
         , ( "type", Maybe.withDefault Encode.null (Maybe.map Encode.string model.type_) )
         , ( "message", Maybe.withDefault Encode.null (Maybe.map Encode.string model.message) )
-
         ]
-
-

samples/client/petstore/elm-0.18/src/Data/Category.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.Category exposing (Category, decoder, encoder)
+module Data.Category exposing (Category, decoder, encode)
 
 import Dict exposing (Dict)
 import Json.Decode as Decode exposing (Decoder)
@@ -21,8 +21,8 @@ import Json.Encode as Encode
 {-| A category for a pet
 -}
 type alias Category =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , name : Maybe (String)
+    , name : Maybe String
     }
 
 
@@ -33,13 +33,9 @@ decoder =
         |> optional "name" (Decode.nullable Decode.string) Nothing
 
 
-
+encode : Category -> Encode.Value
-encoder : Category -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
         , ( "name", Maybe.withDefault Encode.null (Maybe.map Encode.string model.name) )
-
         ]
-
-

samples/client/petstore/elm-0.18/src/Data/Order_.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.Order_ exposing (Order_, Status(..), decoder, encoder)
+module Data.Order_ exposing (Order_, Status(..), decoder, encode)
 
 import DateTime exposing (DateTime)
 import Dict exposing (Dict)
@@ -22,12 +22,12 @@ import Json.Encode as Encode
 {-| An order for a pets from the pet store
 -}
 type alias Order_ =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , petId : Maybe (Int)
+    , petId : Maybe Int
-    , quantity : Maybe (Int)
+    , quantity : Maybe Int
-    , shipDate : Maybe (DateTime)
+    , shipDate : Maybe DateTime
-    , status : Maybe (Status)
+    , status : Maybe Status
-    , complete : Maybe (Bool)
+    , complete : Maybe Bool
     }
 
 
@@ -37,7 +37,6 @@ type Status
     | Delivered
 
 
-
 decoder : Decoder Order_
 decoder =
     decode Order_
@@ -49,21 +48,18 @@ decoder =
         |> optional "complete" (Decode.nullable Decode.bool) (Just False)
 
 
-
+encode : Order_ -> Encode.Value
-encoder : Order_ -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
         , ( "petId", Maybe.withDefault Encode.null (Maybe.map Encode.int model.petId) )
         , ( "quantity", Maybe.withDefault Encode.null (Maybe.map Encode.int model.quantity) )
-        , ( "shipDate", Maybe.withDefault Encode.null (Maybe.map DateTime.encoder model.shipDate) )
+        , ( "shipDate", Maybe.withDefault Encode.null (Maybe.map DateTime.encode model.shipDate) )
-        , ( "status", Maybe.withDefault Encode.null (Maybe.map statusEncoder model.status) )
+        , ( "status", Maybe.withDefault Encode.null (Maybe.map encodeStatus model.status) )
         , ( "complete", Maybe.withDefault Encode.null (Maybe.map Encode.bool model.complete) )
-
         ]
 
 
-
 statusDecoder : Decoder Status
 statusDecoder =
     Decode.string
@@ -84,9 +80,8 @@ statusDecoder =
             )
 
 
-
+encodeStatus : Status -> Encode.Value
-statusEncoder : Status -> Encode.Value
+encodeStatus model =
-statusEncoder model =
     case model of
         Placed ->
             Encode.string "placed"
@@ -96,6 +91,3 @@ statusEncoder model =
 
         Delivered ->
             Encode.string "delivered"
-
-
-

samples/client/petstore/elm-0.18/src/Data/Pet.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.Pet exposing (Pet, Status(..), decoder, encoder)
+module Data.Pet exposing (Pet, Status(..), decoder, encode)
 
 import Data.Category as Category exposing (Category)
 import Data.Tag as Tag exposing (Tag)
@@ -23,12 +23,12 @@ import Json.Encode as Encode
 {-| A pet for sale in the pet store
 -}
 type alias Pet =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , category : Maybe (Category)
+    , category : Maybe Category
     , name : String
-    , photoUrls : (List String)
+    , photoUrls : List String
-    , tags : Maybe ((List Tag))
+    , tags : Maybe (List Tag)
-    , status : Maybe (Status)
+    , status : Maybe Status
     }
 
 
@@ -38,7 +38,6 @@ type Status
     | Sold
 
 
-
 decoder : Decoder Pet
 decoder =
     decode Pet
@@ -50,21 +49,18 @@ decoder =
         |> optional "status" (Decode.nullable statusDecoder) Nothing
 
 
-
+encode : Pet -> Encode.Value
-encoder : Pet -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
-        , ( "category", Maybe.withDefault Encode.null (Maybe.map Category.encoder model.category) )
+        , ( "category", Maybe.withDefault Encode.null (Maybe.map Category.encode model.category) )
         , ( "name", Encode.string model.name )
         , ( "photoUrls", (Encode.list << List.map Encode.string) model.photoUrls )
-        , ( "tags", Maybe.withDefault Encode.null (Maybe.map (Encode.list << List.map Tag.encoder) model.tags) )
+        , ( "tags", Maybe.withDefault Encode.null (Maybe.map (Encode.list << List.map Tag.encode) model.tags) )
-        , ( "status", Maybe.withDefault Encode.null (Maybe.map statusEncoder model.status) )
+        , ( "status", Maybe.withDefault Encode.null (Maybe.map encodeStatus model.status) )
-
         ]
 
 
-
 statusDecoder : Decoder Status
 statusDecoder =
     Decode.string
@@ -85,9 +81,8 @@ statusDecoder =
             )
 
 
-
+encodeStatus : Status -> Encode.Value
-statusEncoder : Status -> Encode.Value
+encodeStatus model =
-statusEncoder model =
     case model of
         Available ->
             Encode.string "available"
@@ -97,6 +92,3 @@ statusEncoder model =
 
         Sold ->
             Encode.string "sold"
-
-
-

samples/client/petstore/elm-0.18/src/Data/Tag.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.Tag exposing (Tag, decoder, encoder)
+module Data.Tag exposing (Tag, decoder, encode)
 
 import Dict exposing (Dict)
 import Json.Decode as Decode exposing (Decoder)
@@ -21,8 +21,8 @@ import Json.Encode as Encode
 {-| A tag for a pet
 -}
 type alias Tag =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , name : Maybe (String)
+    , name : Maybe String
     }
 
 
@@ -33,13 +33,9 @@ decoder =
         |> optional "name" (Decode.nullable Decode.string) Nothing
 
 
-
+encode : Tag -> Encode.Value
-encoder : Tag -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
         , ( "name", Maybe.withDefault Encode.null (Maybe.map Encode.string model.name) )
-
         ]
-
-

samples/client/petstore/elm-0.18/src/Data/User.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.User exposing (User, decoder, encoder)
+module Data.User exposing (User, decoder, encode)
 
 import Dict exposing (Dict)
 import Json.Decode as Decode exposing (Decoder)
@@ -21,14 +21,14 @@ import Json.Encode as Encode
 {-| A User who is purchasing from the pet store
 -}
 type alias User =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , username : Maybe (String)
+    , username : Maybe String
-    , firstName : Maybe (String)
+    , firstName : Maybe String
-    , lastName : Maybe (String)
+    , lastName : Maybe String
-    , email : Maybe (String)
+    , email : Maybe String
-    , password : Maybe (String)
+    , password : Maybe String
-    , phone : Maybe (String)
+    , phone : Maybe String
-    , userStatus : Maybe (Int)
+    , userStatus : Maybe Int
     }
 
 
@@ -45,9 +45,8 @@ decoder =
         |> optional "userStatus" (Decode.nullable Decode.int) Nothing
 
 
-
+encode : User -> Encode.Value
-encoder : User -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
         , ( "username", Maybe.withDefault Encode.null (Maybe.map Encode.string model.username) )
@@ -57,7 +56,4 @@ encoder model =
         , ( "password", Maybe.withDefault Encode.null (Maybe.map Encode.string model.password) )
         , ( "phone", Maybe.withDefault Encode.null (Maybe.map Encode.string model.phone) )
         , ( "userStatus", Maybe.withDefault Encode.null (Maybe.map Encode.int model.userStatus) )
-
         ]
-
-

samples/client/petstore/elm-0.18/src/DateOnly.elm

@@ -1,4 +1,4 @@
-module DateOnly exposing (DateOnly, decoder, encoder, toString)
+module DateOnly exposing (DateOnly, decoder, encode, toString)
 
 import Date
 import Date.Extra exposing (fromIsoString, toFormattedString)
@@ -17,8 +17,8 @@ decoder =
         |> Decode.andThen decodeIsoString
 
 
-encoder : DateOnly -> Encode.Value
+encode : DateOnly -> Encode.Value
-encoder =
+encode =
     Encode.string << toString
 
 

samples/client/petstore/elm-0.18/src/DateTime.elm

@@ -1,4 +1,4 @@
-module DateTime exposing (DateTime, decoder, encoder, toString)
+module DateTime exposing (DateTime, decoder, encode, toString)
 
 import Date
 import Date.Extra exposing (fromIsoString, toIsoString)
@@ -17,8 +17,8 @@ decoder =
         |> Decode.andThen decodeIsoString
 
 
-encoder : DateTime -> Encode.Value
+encode : DateTime -> Encode.Value
-encoder =
+encode =
     Encode.string << toString
 
 

samples/client/petstore/elm-0.18/src/Request/Pet.elm

@@ -12,8 +12,8 @@
 
 module Request.Pet exposing (addPet, deletePet, findPetsByStatus, findPetsByTags, getPetById, updatePet, updatePetWithForm, uploadFile)
 
-import Data.Pet as Pet exposing (Pet)
 import Data.ApiResponse as ApiResponse exposing (ApiResponse)
+import Data.Pet as Pet exposing (Pet)
 import Dict
 import Http
 import Json.Decode as Decode
@@ -29,7 +29,7 @@ addPet model =
     { method = "POST"
     , url = basePath ++ "/pet"
     , headers = []
-    , body = Http.jsonBody <| Pet.encoder model
+    , body = Http.jsonBody <| Pet.encode model
     , expect = Http.expectStringResponse (\_ -> Ok ())
     , timeout = Just 30000
     , withCredentials = False
@@ -100,7 +100,7 @@ updatePet model =
     { method = "PUT"
     , url = basePath ++ "/pet"
     , headers = []
-    , body = Http.jsonBody <| Pet.encoder model
+    , body = Http.jsonBody <| Pet.encode model
     , expect = Http.expectStringResponse (\_ -> Ok ())
     , timeout = Just 30000
     , withCredentials = False

samples/client/petstore/elm-0.18/src/Request/Store.elm

@@ -73,7 +73,7 @@ placeOrder model =
     { method = "POST"
     , url = basePath ++ "/store/order"
     , headers = []
-    , body = Http.jsonBody <| Order_.encoder model
+    , body = Http.jsonBody <| Order_.encode model
     , expect = Http.expectJson Order_.decoder
     , timeout = Just 30000
     , withCredentials = False

samples/client/petstore/elm-0.18/src/Request/User.elm

@@ -30,7 +30,7 @@ createUser model =
     { method = "POST"
     , url = basePath ++ "/user"
     , headers = []
-    , body = Http.jsonBody <| User.encoder model
+    , body = Http.jsonBody <| User.encode model
     , expect = Http.expectStringResponse (\_ -> Ok ())
     , timeout = Just 30000
     , withCredentials = False
@@ -43,7 +43,7 @@ createUsersWithArrayInput model =
     { method = "POST"
     , url = basePath ++ "/user/createWithArray"
     , headers = []
-    , body = Http.jsonBody <| User.encoder model
+    , body = Http.jsonBody <| User.encode model
     , expect = Http.expectStringResponse (\_ -> Ok ())
     , timeout = Just 30000
     , withCredentials = False
@@ -56,7 +56,7 @@ createUsersWithListInput model =
     { method = "POST"
     , url = basePath ++ "/user/createWithList"
     , headers = []
-    , body = Http.jsonBody <| User.encoder model
+    , body = Http.jsonBody <| User.encode model
     , expect = Http.expectStringResponse (\_ -> Ok ())
     , timeout = Just 30000
     , withCredentials = False
@@ -125,7 +125,7 @@ updateUser username model =
     { method = "PUT"
     , url = basePath ++ "/user/" ++ username
     , headers = []
-    , body = Http.jsonBody <| User.encoder model
+    , body = Http.jsonBody <| User.encode model
     , expect = Http.expectStringResponse (\_ -> Ok ())
     , timeout = Just 30000
     , withCredentials = False

samples/client/petstore/elm/elm.json

@@ -7,6 +7,7 @@
     "dependencies": {
         "direct": {
             "NoRedInk/elm-json-decode-pipeline": "1.0.0",
+            "danyx23/elm-uuid": "2.1.2",
             "elm/browser": "1.0.1",
             "elm/core": "1.0.2",
             "elm/html": "1.0.0",
@@ -20,6 +21,8 @@
             "elm/bytes": "1.0.5",
             "elm/file": "1.0.1",
             "elm/parser": "1.1.0",
+            "elm/random": "1.0.0",
+            "elm/regex": "1.0.0",
             "elm/virtual-dom": "1.0.2"
         }
     },

samples/client/petstore/elm/src/Byte.elm

@@ -1,4 +1,4 @@
-module Byte exposing (Byte, decoder, encoder)
+module Byte exposing (Byte, decoder, encode)
 
 import Json.Decode as Decode exposing (Decoder)
 import Json.Encode as Encode
@@ -13,6 +13,6 @@ decoder =
     Decode.string
 
 
-encoder : Byte -> Encode.Value
+encode : Byte -> Encode.Value
-encoder model =
+encode model =
     Encode.string model

samples/client/petstore/elm/src/Data/ApiResponse.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.ApiResponse exposing (ApiResponse, decoder, encoder)
+module Data.ApiResponse exposing (ApiResponse, decoder, encode)
 
 import Dict exposing (Dict)
 import Json.Decode as Decode exposing (Decoder)
@@ -21,9 +21,9 @@ import Json.Encode as Encode
 {-| Describes the result of uploading an image resource
 -}
 type alias ApiResponse =
-    { code : Maybe (Int)
+    { code : Maybe Int
-    , type_ : Maybe (String)
+    , type_ : Maybe String
-    , message : Maybe (String)
+    , message : Maybe String
     }
 
 
@@ -35,14 +35,10 @@ decoder =
         |> optional "message" (Decode.nullable Decode.string) Nothing
 
 
-
+encode : ApiResponse -> Encode.Value
-encoder : ApiResponse -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "code", Maybe.withDefault Encode.null (Maybe.map Encode.int model.code) )
         , ( "type", Maybe.withDefault Encode.null (Maybe.map Encode.string model.type_) )
         , ( "message", Maybe.withDefault Encode.null (Maybe.map Encode.string model.message) )
-
         ]
-
-

samples/client/petstore/elm/src/Data/Category.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.Category exposing (Category, decoder, encoder)
+module Data.Category exposing (Category, decoder, encode)
 
 import Dict exposing (Dict)
 import Json.Decode as Decode exposing (Decoder)
@@ -21,8 +21,8 @@ import Json.Encode as Encode
 {-| A category for a pet
 -}
 type alias Category =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , name : Maybe (String)
+    , name : Maybe String
     }
 
 
@@ -33,13 +33,9 @@ decoder =
         |> optional "name" (Decode.nullable Decode.string) Nothing
 
 
-
+encode : Category -> Encode.Value
-encoder : Category -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
         , ( "name", Maybe.withDefault Encode.null (Maybe.map Encode.string model.name) )
-
         ]
-
-

samples/client/petstore/elm/src/Data/Order_.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.Order_ exposing (Order_, Status(..), decoder, encoder)
+module Data.Order_ exposing (Order_, Status(..), decoder, encode)
 
 import DateTime exposing (DateTime)
 import Dict exposing (Dict)
@@ -22,12 +22,12 @@ import Json.Encode as Encode
 {-| An order for a pets from the pet store
 -}
 type alias Order_ =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , petId : Maybe (Int)
+    , petId : Maybe Int
-    , quantity : Maybe (Int)
+    , quantity : Maybe Int
-    , shipDate : Maybe (DateTime)
+    , shipDate : Maybe DateTime
-    , status : Maybe (Status)
+    , status : Maybe Status
-    , complete : Maybe (Bool)
+    , complete : Maybe Bool
     }
 
 
@@ -37,7 +37,6 @@ type Status
     | Delivered
 
 
-
 decoder : Decoder Order_
 decoder =
     Decode.succeed Order_
@@ -49,21 +48,18 @@ decoder =
         |> optional "complete" (Decode.nullable Decode.bool) (Just False)
 
 
-
+encode : Order_ -> Encode.Value
-encoder : Order_ -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
         , ( "petId", Maybe.withDefault Encode.null (Maybe.map Encode.int model.petId) )
         , ( "quantity", Maybe.withDefault Encode.null (Maybe.map Encode.int model.quantity) )
-        , ( "shipDate", Maybe.withDefault Encode.null (Maybe.map DateTime.encoder model.shipDate) )
+        , ( "shipDate", Maybe.withDefault Encode.null (Maybe.map DateTime.encode model.shipDate) )
-        , ( "status", Maybe.withDefault Encode.null (Maybe.map statusEncoder model.status) )
+        , ( "status", Maybe.withDefault Encode.null (Maybe.map encodeStatus model.status) )
         , ( "complete", Maybe.withDefault Encode.null (Maybe.map Encode.bool model.complete) )
-
         ]
 
 
-
 statusDecoder : Decoder Status
 statusDecoder =
     Decode.string
@@ -84,9 +80,8 @@ statusDecoder =
             )
 
 
-
+encodeStatus : Status -> Encode.Value
-statusEncoder : Status -> Encode.Value
+encodeStatus model =
-statusEncoder model =
     case model of
         Placed ->
             Encode.string "placed"
@@ -96,6 +91,3 @@ statusEncoder model =
 
         Delivered ->
             Encode.string "delivered"
-
-
-

samples/client/petstore/elm/src/Data/Pet.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.Pet exposing (Pet, Status(..), decoder, encoder)
+module Data.Pet exposing (Pet, Status(..), decoder, encode)
 
 import Data.Category as Category exposing (Category)
 import Data.Tag as Tag exposing (Tag)
@@ -23,12 +23,12 @@ import Json.Encode as Encode
 {-| A pet for sale in the pet store
 -}
 type alias Pet =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , category : Maybe (Category)
+    , category : Maybe Category
     , name : String
-    , photoUrls : (List String)
+    , photoUrls : List String
-    , tags : Maybe ((List Tag))
+    , tags : Maybe (List Tag)
-    , status : Maybe (Status)
+    , status : Maybe Status
     }
 
 
@@ -38,7 +38,6 @@ type Status
     | Sold
 
 
-
 decoder : Decoder Pet
 decoder =
     Decode.succeed Pet
@@ -50,21 +49,18 @@ decoder =
         |> optional "status" (Decode.nullable statusDecoder) Nothing
 
 
-
+encode : Pet -> Encode.Value
-encoder : Pet -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
-        , ( "category", Maybe.withDefault Encode.null (Maybe.map Category.encoder model.category) )
+        , ( "category", Maybe.withDefault Encode.null (Maybe.map Category.encode model.category) )
         , ( "name", Encode.string model.name )
-        , ( "photoUrls", (Encode.list Encode.string) model.photoUrls )
+        , ( "photoUrls", Encode.list Encode.string model.photoUrls )
-        , ( "tags", Maybe.withDefault Encode.null (Maybe.map (Encode.list Tag.encoder) model.tags) )
+        , ( "tags", Maybe.withDefault Encode.null (Maybe.map (Encode.list Tag.encode) model.tags) )
-        , ( "status", Maybe.withDefault Encode.null (Maybe.map statusEncoder model.status) )
+        , ( "status", Maybe.withDefault Encode.null (Maybe.map encodeStatus model.status) )
-
         ]
 
 
-
 statusDecoder : Decoder Status
 statusDecoder =
     Decode.string
@@ -85,9 +81,8 @@ statusDecoder =
             )
 
 
-
+encodeStatus : Status -> Encode.Value
-statusEncoder : Status -> Encode.Value
+encodeStatus model =
-statusEncoder model =
     case model of
         Available ->
             Encode.string "available"
@@ -97,6 +92,3 @@ statusEncoder model =
 
         Sold ->
             Encode.string "sold"
-
-
-

samples/client/petstore/elm/src/Data/Tag.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.Tag exposing (Tag, decoder, encoder)
+module Data.Tag exposing (Tag, decoder, encode)
 
 import Dict exposing (Dict)
 import Json.Decode as Decode exposing (Decoder)
@@ -21,8 +21,8 @@ import Json.Encode as Encode
 {-| A tag for a pet
 -}
 type alias Tag =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , name : Maybe (String)
+    , name : Maybe String
     }
 
 
@@ -33,13 +33,9 @@ decoder =
         |> optional "name" (Decode.nullable Decode.string) Nothing
 
 
-
+encode : Tag -> Encode.Value
-encoder : Tag -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
         , ( "name", Maybe.withDefault Encode.null (Maybe.map Encode.string model.name) )
-
         ]
-
-

samples/client/petstore/elm/src/Data/User.elm

@@ -10,7 +10,7 @@
 -}
 
 
-module Data.User exposing (User, decoder, encoder)
+module Data.User exposing (User, decoder, encode)
 
 import Dict exposing (Dict)
 import Json.Decode as Decode exposing (Decoder)
@@ -21,14 +21,14 @@ import Json.Encode as Encode
 {-| A User who is purchasing from the pet store
 -}
 type alias User =
-    { id : Maybe (Int)
+    { id : Maybe Int
-    , username : Maybe (String)
+    , username : Maybe String
-    , firstName : Maybe (String)
+    , firstName : Maybe String
-    , lastName : Maybe (String)
+    , lastName : Maybe String
-    , email : Maybe (String)
+    , email : Maybe String
-    , password : Maybe (String)
+    , password : Maybe String
-    , phone : Maybe (String)
+    , phone : Maybe String
-    , userStatus : Maybe (Int)
+    , userStatus : Maybe Int
     }
 
 
@@ -45,9 +45,8 @@ decoder =
         |> optional "userStatus" (Decode.nullable Decode.int) Nothing
 
 
-
+encode : User -> Encode.Value
-encoder : User -> Encode.Value
+encode model =
-encoder model =
     Encode.object
         [ ( "id", Maybe.withDefault Encode.null (Maybe.map Encode.int model.id) )
         , ( "username", Maybe.withDefault Encode.null (Maybe.map Encode.string model.username) )
@@ -57,7 +56,4 @@ encoder model =
         , ( "password", Maybe.withDefault Encode.null (Maybe.map Encode.string model.password) )
         , ( "phone", Maybe.withDefault Encode.null (Maybe.map Encode.string model.phone) )
         , ( "userStatus", Maybe.withDefault Encode.null (Maybe.map Encode.int model.userStatus) )
-
         ]
-
-

samples/client/petstore/elm/src/DateOnly.elm

@@ -1,4 +1,4 @@
-module DateOnly exposing (DateOnly, decoder, encoder, toString)
+module DateOnly exposing (DateOnly, decoder, encode, toString)
 
 import Iso8601
 import Json.Decode as Decode exposing (Decoder)
@@ -17,8 +17,8 @@ decoder =
         |> Decode.andThen decodeIsoString
 
 
-encoder : DateOnly -> Encode.Value
+encode : DateOnly -> Encode.Value
-encoder =
+encode =
     Encode.string << toString
 
 

samples/client/petstore/elm/src/DateTime.elm

@@ -1,4 +1,4 @@
-module DateTime exposing (DateTime, decoder, encoder, toString)
+module DateTime exposing (DateTime, decoder, encode, toString)
 
 import Iso8601
 import Json.Decode as Decode exposing (Decoder)
@@ -17,8 +17,8 @@ decoder =
         |> Decode.andThen decodeIsoString
 
 
-encoder : DateTime -> Encode.Value
+encode : DateTime -> Encode.Value
-encoder =
+encode =
     Encode.string << toString
 
 

samples/client/petstore/elm/src/Request/Pet.elm

@@ -12,8 +12,8 @@
 
 module Request.Pet exposing (addPet, deletePet, findPetsByStatus, findPetsByTags, getPetById, updatePet, updatePetWithForm, uploadFile)
 
-import Data.Pet as Pet exposing (Pet)
 import Data.ApiResponse as ApiResponse exposing (ApiResponse)
+import Data.Pet as Pet exposing (Pet)
 import Dict
 import Http
 import Json.Decode as Decode
@@ -28,18 +28,17 @@ basePath =
 addPet :
     { onSend : Result Http.Error () -> msg
     , body : Pet
-
-
     }
     -> Cmd msg
 addPet params =
     Http.request
         { method = "POST"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "pet" ]
                 (List.filterMap identity [])
-        , body = Http.jsonBody <| Pet.encoder params.body
+        , body = Http.jsonBody <| Pet.encode params.body
         , expect = Http.expectWhatever params.onSend
         , timeout = Just 30000
         , tracker = Nothing
@@ -48,16 +47,15 @@ addPet params =
 
 deletePet :
     { onSend : Result Http.Error () -> msg
-
     , petId : Int
-
     }
     -> Cmd msg
 deletePet params =
     Http.request
         { method = "DELETE"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "pet", String.fromInt params.petId ]
                 (List.filterMap identity [])
         , body = Http.emptyBody
@@ -71,8 +69,6 @@ deletePet params =
 -}
 findPetsByStatus :
     { onSend : Result Http.Error (List Pet) -> msg
-
-
     , status : List String
     }
     -> Cmd msg
@@ -80,7 +76,8 @@ findPetsByStatus params =
     Http.request
         { method = "GET"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "pet", "findByStatus" ]
                 (List.filterMap identity [ Just (Url.string "status" <| String.join "," params.status) ])
         , body = Http.emptyBody
@@ -94,8 +91,6 @@ findPetsByStatus params =
 -}
 findPetsByTags :
     { onSend : Result Http.Error (List Pet) -> msg
-
-
     , tags : List String
     }
     -> Cmd msg
@@ -103,7 +98,8 @@ findPetsByTags params =
     Http.request
         { method = "GET"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "pet", "findByTags" ]
                 (List.filterMap identity [ Just (Url.string "tags" <| String.join "," params.tags) ])
         , body = Http.emptyBody
@@ -117,16 +113,15 @@ findPetsByTags params =
 -}
 getPetById :
     { onSend : Result Http.Error Pet -> msg
-
     , petId : Int
-
     }
     -> Cmd msg
 getPetById params =
     Http.request
         { method = "GET"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "pet", String.fromInt params.petId ]
                 (List.filterMap identity [])
         , body = Http.emptyBody
@@ -139,18 +134,17 @@ getPetById params =
 updatePet :
     { onSend : Result Http.Error () -> msg
     , body : Pet
-
-
     }
     -> Cmd msg
 updatePet params =
     Http.request
         { method = "PUT"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "pet" ]
                 (List.filterMap identity [])
-        , body = Http.jsonBody <| Pet.encoder params.body
+        , body = Http.jsonBody <| Pet.encode params.body
         , expect = Http.expectWhatever params.onSend
         , timeout = Just 30000
         , tracker = Nothing
@@ -159,16 +153,15 @@ updatePet params =
 
 updatePetWithForm :
     { onSend : Result Http.Error () -> msg
-
     , petId : Int
-
     }
     -> Cmd msg
 updatePetWithForm params =
     Http.request
         { method = "POST"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "pet", String.fromInt params.petId ]
                 (List.filterMap identity [])
         , body = Http.emptyBody
@@ -180,16 +173,15 @@ updatePetWithForm params =
 
 uploadFile :
     { onSend : Result Http.Error ApiResponse -> msg
-
     , petId : Int
-
     }
     -> Cmd msg
 uploadFile params =
     Http.request
         { method = "POST"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "pet", String.fromInt params.petId, "uploadImage" ]
                 (List.filterMap identity [])
         , body = Http.emptyBody

samples/client/petstore/elm/src/Request/Store.elm

@@ -28,16 +28,15 @@ basePath =
 -}
 deleteOrder :
     { onSend : Result Http.Error () -> msg
-
     , orderId : String
-
     }
     -> Cmd msg
 deleteOrder params =
     Http.request
         { method = "DELETE"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "store", "order", params.orderId ]
                 (List.filterMap identity [])
         , body = Http.emptyBody
@@ -51,16 +50,14 @@ deleteOrder params =
 -}
 getInventory :
     { onSend : Result Http.Error (Dict.Dict String Int) -> msg
-
-
-
     }
     -> Cmd msg
 getInventory params =
     Http.request
         { method = "GET"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "store", "inventory" ]
                 (List.filterMap identity [])
         , body = Http.emptyBody
@@ -74,16 +71,15 @@ getInventory params =
 -}
 getOrderById :
     { onSend : Result Http.Error Order_ -> msg
-
     , orderId : Int
-
     }
     -> Cmd msg
 getOrderById params =
     Http.request
         { method = "GET"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "store", "order", String.fromInt params.orderId ]
                 (List.filterMap identity [])
         , body = Http.emptyBody
@@ -96,18 +92,17 @@ getOrderById params =
 placeOrder :
     { onSend : Result Http.Error Order_ -> msg
     , body : Order_
-
-
     }
     -> Cmd msg
 placeOrder params =
     Http.request
         { method = "POST"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "store", "order" ]
                 (List.filterMap identity [])
-        , body = Http.jsonBody <| Order_.encoder params.body
+        , body = Http.jsonBody <| Order_.encode params.body
         , expect = Http.expectJson params.onSend Order_.decoder
         , timeout = Just 30000
         , tracker = Nothing

samples/client/petstore/elm/src/Request/User.elm

@@ -29,18 +29,17 @@ basePath =
 createUser :
     { onSend : Result Http.Error () -> msg
     , body : User
-
-
     }
     -> Cmd msg
 createUser params =
     Http.request
         { method = "POST"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "user" ]
                 (List.filterMap identity [])
-        , body = Http.jsonBody <| User.encoder params.body
+        , body = Http.jsonBody <| User.encode params.body
         , expect = Http.expectWhatever params.onSend
         , timeout = Just 30000
         , tracker = Nothing
@@ -50,18 +49,17 @@ createUser params =
 createUsersWithArrayInput :
     { onSend : Result Http.Error () -> msg
     , body : User
-
-
     }
     -> Cmd msg
 createUsersWithArrayInput params =
     Http.request
         { method = "POST"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "user", "createWithArray" ]
                 (List.filterMap identity [])
-        , body = Http.jsonBody <| User.encoder params.body
+        , body = Http.jsonBody <| User.encode params.body
         , expect = Http.expectWhatever params.onSend
         , timeout = Just 30000
         , tracker = Nothing
@@ -71,18 +69,17 @@ createUsersWithArrayInput params =
 createUsersWithListInput :
     { onSend : Result Http.Error () -> msg
     , body : User
-
-
     }
     -> Cmd msg
 createUsersWithListInput params =
     Http.request
         { method = "POST"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "user", "createWithList" ]
                 (List.filterMap identity [])
-        , body = Http.jsonBody <| User.encoder params.body
+        , body = Http.jsonBody <| User.encode params.body
         , expect = Http.expectWhatever params.onSend
         , timeout = Just 30000
         , tracker = Nothing
@@ -93,16 +90,15 @@ createUsersWithListInput params =
 -}
 deleteUser :
     { onSend : Result Http.Error () -> msg
-
     , username : String
-
     }
     -> Cmd msg
 deleteUser params =
     Http.request
         { method = "DELETE"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "user", params.username ]
                 (List.filterMap identity [])
         , body = Http.emptyBody
@@ -114,16 +110,15 @@ deleteUser params =
 
 getUserByName :
     { onSend : Result Http.Error User -> msg
-
     , username : String
-
     }
     -> Cmd msg
 getUserByName params =
     Http.request
         { method = "GET"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "user", params.username ]
                 (List.filterMap identity [])
         , body = Http.emptyBody
@@ -135,16 +130,16 @@ getUserByName params =
 
 loginUser :
     { onSend : Result Http.Error String -> msg
-
+    , username : String
-
+    , password : String
-    , username : String    , password : String
     }
     -> Cmd msg
 loginUser params =
     Http.request
         { method = "GET"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "user", "login" ]
                 (List.filterMap identity [ Just (Url.string "username" <| params.username), Just (Url.string "password" <| params.password) ])
         , body = Http.emptyBody
@@ -156,16 +151,14 @@ loginUser params =
 
 logoutUser :
     { onSend : Result Http.Error () -> msg
-
-
-
     }
     -> Cmd msg
 logoutUser params =
     Http.request
         { method = "GET"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "user", "logout" ]
                 (List.filterMap identity [])
         , body = Http.emptyBody
@@ -181,17 +174,17 @@ updateUser :
     { onSend : Result Http.Error () -> msg
     , body : User
     , username : String
-
     }
     -> Cmd msg
 updateUser params =
     Http.request
         { method = "PUT"
         , headers = []
-        , url = Url.crossOrigin basePath
+        , url =
+            Url.crossOrigin basePath
                 [ "user", params.username ]
                 (List.filterMap identity [])
-        , body = Http.jsonBody <| User.encoder params.body
+        , body = Http.jsonBody <| User.encode params.body
         , expect = Http.expectWhatever params.onSend
         , timeout = Just 30000
         , tracker = Nothing