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/Msg.elm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/client/elm/Msg.elm')

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