Create an empty but reachable user page

1 files changed, 55 insertions, 0 deletions

diff --git a/src/client/elm/LoggedIn/Home/AddPayment/Update.elm b/src/client/elm/LoggedIn/Home/AddPayment/Update.elm
new file mode 100644
index 0000000..b8020f1
--- /dev/null
+++ b/src/client/elm/LoggedIn/Home/AddPayment/Update.elm
@@ -0,0 +1,55 @@
+module LoggedIn.Home.AddPayment.Update
+  ( update
+  , addPaymentError
+  ) where
+
+import Maybe
+import Json.Decode as Json exposing ((:=))
+
+import LoggedIn.Home.AddPayment.Action as AddPaymentAction
+import LoggedIn.Home.AddPayment.Model as AddPaymentModel
+
+import Model.Translations exposing (Translations, getMessage)
+import Model.Payment exposing (PaymentFrequency(..))
+
+update : AddPaymentAction.Action -> AddPaymentModel.Model -> AddPaymentModel.Model
+update action addPayment =
+  case action of
+
+    AddPaymentAction.NoOp ->
+      addPayment
+
+    AddPaymentAction.UpdateName name ->
+      { addPayment | name = name }
+
+    AddPaymentAction.UpdateCost cost ->
+      { addPayment | cost = cost }
+
+    AddPaymentAction.AddError nameError costError ->
+      { addPayment
+      | nameError = nameError
+      , costError = costError
+      , waitingServer = False
+      }
+
+    AddPaymentAction.ToggleFrequency ->
+      { addPayment
+      | frequency = if addPayment.frequency == Punctual then Monthly else Punctual
+      }
+
+    AddPaymentAction.WaitingServer ->
+      { addPayment | waitingServer = True }
+
+addPaymentError : Translations -> String -> Maybe AddPaymentAction.Action
+addPaymentError translations jsonErr =
+  let decoder =
+        Json.object2 (,)
+          (Json.maybe <| "name" := Json.string)
+          (Json.maybe <| "cost" := Json.string)
+  in  case Json.decodeString decoder jsonErr of
+        Err _ ->
+          Nothing
+        Ok (mbNameKey, mbCostKey) ->
+          Just <| AddPaymentAction.AddError
+            (Maybe.map (flip getMessage translations) mbNameKey)
+            (Maybe.map (flip getMessage translations) mbCostKey)