From a8309988518af5bddf62d6a326d990fde4069b40 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2016 19:41:31 +0100
Subject: Set focus properties to button elements

---
 src/client/elm/Model/Action.elm                |  4 ++--
 src/client/elm/Model/Action/LoggedInAction.elm |  4 +++-
 src/client/elm/Model/Communication.elm         | 15 ---------------
 3 files changed, 5 insertions(+), 18 deletions(-)
 delete mode 100644 src/client/elm/Model/Communication.elm

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

diff --git a/src/client/elm/Model/Action.elm b/src/client/elm/Model/Action.elm
index 033467d..ba47f2d 100644
--- a/src/client/elm/Model/Action.elm
+++ b/src/client/elm/Model/Action.elm
@@ -10,14 +10,14 @@ import Model.Payment exposing (Payments)
 import Model.Payer exposing (Payers)
 import Model.Action.SignInAction exposing (SignInAction)
 import Model.Action.LoggedInAction exposing (LoggedInAction)
-import Model.Communication exposing (Communication)
 
 type Action =
   NoOp
-  | ServerCommunication Communication
   | SignIn String
+  | SetIncome Time Int
   | UpdateTime Time
   | GoLoggedInView Users UserId Payments Payments Int Payers
   | UpdateSignIn SignInAction
   | UpdateLoggedIn LoggedInAction
   | GoSignInView
+  | SignOut
diff --git a/src/client/elm/Model/Action/LoggedInAction.elm b/src/client/elm/Model/Action/LoggedInAction.elm
index 18d2224..ef81b09 100644
--- a/src/client/elm/Model/Action/LoggedInAction.elm
+++ b/src/client/elm/Model/Action/LoggedInAction.elm
@@ -8,11 +8,13 @@ import Model.Action.AccountAction exposing (AccountAction)
 import Model.Action.AddPaymentAction exposing (AddPaymentAction)
 
 type LoggedInAction =
-  UpdateAdd AddPaymentAction
+  NoOp
+  | UpdateAdd AddPaymentAction
   | UpdatePayments Payments
   | AddPayment String Int PaymentFrequency
   | ValidateAddPayment PaymentId String Int PaymentFrequency
   | DeletePayment Payment PaymentFrequency
+  | ValidateDeletePayment Payment PaymentFrequency
   | ToggleEdit PaymentId
   | UpdatePage Int
   | UpdateMonthly MonthlyAction
diff --git a/src/client/elm/Model/Communication.elm b/src/client/elm/Model/Communication.elm
deleted file mode 100644
index b8da175..0000000
--- a/src/client/elm/Model/Communication.elm
+++ /dev/null
@@ -1,15 +0,0 @@
-module Model.Communication
-  ( Communication(..)
-  ) where
-
-import Time exposing (Time)
-
-import Model.User exposing (UserId)
-import Model.Payment exposing (..)
-
-type Communication =
-  SignIn String
-  | SetIncome Time Int
-  | AddPayment String Int PaymentFrequency
-  | DeletePayment Payment PaymentFrequency
-  | SignOut
-- 
cgit v1.2.3