From 166cd04e4b28770ede854dafc9ae30eae64102fe Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 28 Mar 2016 17:51:14 +0200
Subject: Create an empty but reachable user page

---
 src/client/elm/LoggedIn/Home/AddPayment/Update.elm | 55 ++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 src/client/elm/LoggedIn/Home/AddPayment/Update.elm

(limited to 'src/client/elm/LoggedIn/Home/AddPayment/Update.elm')

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)
-- 
cgit v1.2.3