From eb5ecba59887a5d1e74bf6287fabdf8a2979f44c Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 5 Sep 2015 19:03:12 +0200
Subject: Payment frequence choice between either punctual or monthly, UI only

---
 src/client/Update/Payment/Add.elm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/client/Update/Payment/Add.elm')

diff --git a/src/client/Update/Payment/Add.elm b/src/client/Update/Payment/Add.elm
index 3ccce73..27f2af0 100644
--- a/src/client/Update/Payment/Add.elm
+++ b/src/client/Update/Payment/Add.elm
@@ -3,12 +3,13 @@ module Update.Payment.Add
   , updateAddPayment
   ) where
 
-import Model.View.Payment.Add exposing (AddPayment)
+import Model.View.Payment.Add exposing (..)
 
 type AddPaymentAction =
   UpdateName String
   | UpdateCost String
   | AddError (Maybe String) (Maybe String)
+  | ToggleFrequency
 
 updateAddPayment : AddPaymentAction -> AddPayment -> AddPayment
 updateAddPayment action addPayment =
@@ -22,3 +23,7 @@ updateAddPayment action addPayment =
       | nameError <- nameError
       , costError <- costError
       }
+    ToggleFrequency ->
+      { addPayment
+      | frequency <- if addPayment.frequency == Punctual then Monthly else Punctual
+      }
-- 
cgit v1.2.3