From 75804df1cb231033f94183e41cdf79d36d8f6710 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 21 Aug 2016 14:30:40 +0200
Subject: Show a message if there is an error during a server request

---
 src/client/elm/Dialog/AddIncome/View.elm  | 10 +++++-----
 src/client/elm/Dialog/AddPayment/View.elm | 10 +++++-----
 2 files changed, 10 insertions(+), 10 deletions(-)

(limited to 'src/client/elm/Dialog')

diff --git a/src/client/elm/Dialog/AddIncome/View.elm b/src/client/elm/Dialog/AddIncome/View.elm
index cc1ac13..c628d37 100644
--- a/src/client/elm/Dialog/AddIncome/View.elm
+++ b/src/client/elm/Dialog/AddIncome/View.elm
@@ -35,11 +35,11 @@ button : String -> LoggedData -> List (String, Field) -> String -> Html Msg -> M
 button className loggedData initialForm title buttonContent tooltip =
   let dialogConfig =
         { className = "incomeDialog"
-        , title = getMessage title loggedData.translations
+        , title = getMessage loggedData.translations title
         , body = \model -> addIncomeForm loggedData model.addIncome
-        , confirm = getMessage "Confirm" loggedData.translations
+        , confirm = getMessage loggedData.translations "Confirm"
         , confirmMsg = submitForm << .addIncome
-        , undo = getMessage "Undo" loggedData.translations
+        , undo = getMessage loggedData.translations "Undo"
         }
   in  Html.button
         (  ( case tooltip of
@@ -68,8 +68,8 @@ submitForm addIncome =
     Just data ->
       case data.id of
         Just incomeId ->
-          Msg.Dialog <| Dialog.UpdateAndClose <| Msg.UpdateLoggedIn <| LoggedInMsg.EditIncome incomeId data.amount data.date
+          Msg.Dialog <| Dialog.UpdateAndClose <| Msg.EditIncome incomeId data.amount data.date
         Nothing ->
-          Msg.Dialog <| Dialog.UpdateAndClose <| Msg.UpdateLoggedIn <| LoggedInMsg.CreateIncome data.amount data.date
+          Msg.Dialog <| Dialog.UpdateAndClose <| Msg.CreateIncome data.amount data.date
     Nothing ->
       Msg.Dialog <| Dialog.Update <| DialogMsg.AddIncomeMsg <| Form.Submit
diff --git a/src/client/elm/Dialog/AddPayment/View.elm b/src/client/elm/Dialog/AddPayment/View.elm
index 3ffe200..df1ad3b 100644
--- a/src/client/elm/Dialog/AddPayment/View.elm
+++ b/src/client/elm/Dialog/AddPayment/View.elm
@@ -36,11 +36,11 @@ button : LoggedData -> List (String, Field) -> String -> Html Msg -> Maybe Strin
 button loggedData initialForm title buttonContent tooltip =
   let dialogConfig =
         { className = "paymentDialog"
-        , title = getMessage title loggedData.translations
+        , title = getMessage loggedData.translations title
         , body = \model -> addPaymentForm loggedData model.addPayment
-        , confirm = getMessage "Confirm" loggedData.translations
+        , confirm = getMessage loggedData.translations "Confirm"
         , confirmMsg = submitForm << .addPayment
-        , undo = getMessage "Undo" loggedData.translations
+        , undo = getMessage loggedData.translations "Undo"
         }
   in  Html.button
         (  ( case tooltip of
@@ -75,8 +75,8 @@ submitForm addPayment =
     Just data ->
       case data.id of
         Just paymentId ->
-          Msg.Dialog <| Dialog.UpdateAndClose <| Msg.UpdateLoggedIn <| LoggedInMsg.EditPayment paymentId data.name data.cost data.date data.frequency
+          Msg.Dialog <| Dialog.UpdateAndClose <| Msg.EditPayment paymentId data.name data.cost data.date data.frequency
         Nothing ->
-          Msg.Dialog <| Dialog.UpdateAndClose <| Msg.UpdateLoggedIn <| LoggedInMsg.CreatePayment data.name data.cost data.date data.frequency
+          Msg.Dialog <| Dialog.UpdateAndClose <| Msg.CreatePayment data.name data.cost data.date data.frequency
     Nothing ->
       Msg.Dialog <| Dialog.Update <| DialogMsg.AddPaymentMsg <| Form.Submit
-- 
cgit v1.2.3