From e10531ba4e60c8709088798763ae3bae6608f9c9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 12:39:03 +0200
Subject: Show montly payments with an expandable mechanism

---
 src/client/View/Payments/Add.elm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/client/View/Payments/Add.elm')

diff --git a/src/client/View/Payments/Add.elm b/src/client/View/Payments/Add.elm
index a22c1f1..21406b2 100644
--- a/src/client/View/Payments/Add.elm
+++ b/src/client/View/Payments/Add.elm
@@ -11,8 +11,8 @@ import Result exposing (..)
 import ServerCommunication as SC exposing (serverCommunications)
 
 import Update exposing (..)
-import Update.Payment exposing (..)
-import Update.Payment.Add exposing (..)
+import Update.LoggedView exposing (..)
+import Update.LoggedView.Add exposing (..)
 
 import Model exposing (Model)
 import Model.View.Payment.Add exposing (..)
@@ -33,7 +33,7 @@ addPayment model loggedView =
         (Ok name, Ok cost) ->
           onSubmitPrevDefault serverCommunications.address (SC.AddPayment loggedView.me name cost loggedView.add.frequency)
         (resName, resCost) ->
-          onSubmitPrevDefault actions.address (UpdatePayment <| UpdateAdd <| AddError (toMaybeError resName) (toMaybeError resCost))
+          onSubmitPrevDefault actions.address (UpdateLoggedView <| UpdateAdd <| AddError (toMaybeError resName) (toMaybeError resCost))
     ]
     [ addPaymentName loggedView.add
     , addPaymentCost model loggedView.add
@@ -50,7 +50,7 @@ addPaymentName addPayment =
     [ input
         [ id "nameInput"
         , value addPayment.name
-        , on "input" targetValue (Signal.message actions.address << UpdatePayment << UpdateAdd << UpdateName)
+        , on "input" targetValue (Signal.message actions.address << UpdateLoggedView << UpdateAdd << UpdateName)
         , maxlength 20
         ]
         []
@@ -71,7 +71,7 @@ addPaymentCost model addPayment =
     [ input
         [ id "costInput"
         , value addPayment.cost
-        , on "input" targetValue (Signal.message actions.address << UpdatePayment << UpdateAdd << UpdateCost)
+        , on "input" targetValue (Signal.message actions.address << UpdateLoggedView << UpdateAdd << UpdateCost)
         , maxlength 7
         ]
         []
@@ -89,7 +89,7 @@ paymentFrequency : Model -> AddPayment -> Html
 paymentFrequency model addPayment =
   div
     [ class "frequency"
-    , onClick actions.address (UpdatePayment << UpdateAdd <| ToggleFrequency)
+    , onClick actions.address (UpdateLoggedView << UpdateAdd <| ToggleFrequency)
     ]
     [ div
         [ class ("punctual" ++ if addPayment.frequency == Punctual then " selected" else "") ]
-- 
cgit v1.2.3