Refactor Input

elm-package.json

@@ -14,6 +14,7 @@
         "cuducos/elm-format-number": "2.0.0 <= v < 3.0.0",
         "elm-community/elm-test": "3.1.0 <= v < 4.0.0",
         "elm-community/json-extra": "2.1.0 <= v < 3.0.0",
+        "elm-community/list-extra": "5.0.1 <= v < 6.0.0",
         "elm-lang/core": "5.0.0 <= v < 6.0.0",
         "elm-lang/html": "2.0.0 <= v < 3.0.0",
         "elm-lang/http": "1.0.0 <= v < 2.0.0",

jarbas/frontend/elm/Internationalization.elm

@@ -1,4 +1,4 @@
-module Internationalization exposing (Language(..), TranslationId(..), translate)
+module Internationalization exposing (Language(..), TranslationId(..), TranslationSet, translate)
 
 
 type alias TranslationSet =
@@ -54,8 +54,8 @@ type TranslationId
     | FieldIssueDateStart
     | FieldIssueDateEnd
     | FieldIssueDateValidation
-    | FieldMonth
     | FieldClaimDate
+    | FieldMonth
     | FieldRemarkValue
     | FieldInstallment
     | FieldBatchNumber
@@ -64,6 +64,7 @@ type TranslationId
     | FieldLegOfTheTrip
     | FieldProbability
     | FieldSuspicions
+    | FieldEmpty
     | ReimbursementSource
     | ReimbursementChamberOfDeputies
     | ReceiptFetch
@@ -375,6 +376,11 @@ translate lang trans =
                         "Suspicions"
                         "Suspeitas"
 
+                FieldEmpty ->
+                    TranslationSet
+                        ""
+                        ""
+
                 ReimbursementSource ->
                     TranslationSet
                         "Source: "

jarbas/frontend/elm/Model.elm

@@ -17,9 +17,9 @@ type alias Model =
 
 model : Model
 model =
-    Model
-        Reimbursement.model
-        Layout.model
-        Nothing
-        English
-        Material.model
+    { reimbursements = Reimbursement.model
+    , layout = Layout.model
+    , googleStreetViewApiKey = Nothing
+    , lang = English
+    , mdl = Material.model
+    }

jarbas/frontend/elm/Reimbursement/Decoder.elm

@@ -7,8 +7,6 @@ import Json.Decode exposing (Decoder, array, bool, float, int, keyValuePairs, li
 import Json.Decode.Extra exposing (date)
 import Json.Decode.Pipeline exposing (decode, hardcoded, required)
 import Reimbursement.Company.Model as CompanyModel
-import Reimbursement.Inputs.Model as InputsModel
-import Reimbursement.Inputs.Update as InputsUpdate
 import Reimbursement.Model exposing (Model, Reimbursement, Results, results)
 import Reimbursement.Receipt.Decoder as ReceiptDecoder
 import Reimbursement.Receipt.Model as ReceiptModel
@@ -138,12 +136,8 @@ updateLanguage lang model =
         newResults : Results
         newResults =
             { results | reimbursements = newReimbursements }
-
-        newInputs : InputsModel.Model
-        newInputs =
-            InputsUpdate.updateLanguage lang model.inputs
     in
-        { model | lang = lang, inputs = newInputs, results = newResults }
+        { model | lang = lang, results = newResults }
 
 
 updateGoogleStreetViewApiKey : Maybe String -> Model -> Model