Show a message if there is an error during a server request

1 files changed, 10 insertions, 0 deletions

diff --git a/src/client/elm/Msg.elm b/src/client/elm/Msg.elm
index 93e7f80..49d13ca 100644
--- a/src/client/elm/Msg.elm
+++ b/src/client/elm/Msg.elm
@@ -2,11 +2,14 @@ module Msg exposing
   ( Msg(..)
   )
 
+import Date exposing (Date)
 import Time exposing (Time)
 
 import Page exposing (Page)
 
 import Model.Init exposing (Init)
+import Model.Payment exposing (PaymentId, Frequency)
+import Model.Income exposing (IncomeId)
 
 import Dialog
 import Dialog.Model as DialogModel
@@ -24,7 +27,14 @@ type Msg =
   | GoLoggedInView Init
   | UpdateSignIn SignInMsg.Msg
   | UpdateLoggedIn LoggedInMsg.Msg
+  | CreatePayment String Int Date Frequency
+  | EditPayment PaymentId String Int Date Frequency
+  | DeletePayment PaymentId
+  | CreateIncome Int Date
+  | EditIncome IncomeId Int Date
+  | DeleteIncome IncomeId
   | GoSignInView
   | SignOut
+  | Error String
   | Dialog (Dialog.Msg DialogModel.Model DialogMsg.Msg Msg)
   | Tooltip Tooltip.Msg