From 9ec84e3a20c767f6525639f58cd22715e302b88d Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Jun 2016 12:31:24 +0200
Subject: Add an editable date field for punctual payment creation

---
 src/client/elm/Utils/Form.elm | 10 ++++++++++
 1 file changed, 10 insertions(+)

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

diff --git a/src/client/elm/Utils/Form.elm b/src/client/elm/Utils/Form.elm
index 6793222..482db5f 100644
--- a/src/client/elm/Utils/Form.elm
+++ b/src/client/elm/Utils/Form.elm
@@ -1,11 +1,21 @@
 module Utils.Form exposing
   ( fieldAsText
+  , frequency
   )
 
 import Form exposing (Form)
 
+import Model.Payment exposing (Frequency(..))
+
 fieldAsText : Form a b -> String -> String
 fieldAsText form field =
   Form.getFieldAsString field form
     |> .value
     |> Maybe.withDefault ""
+
+frequency : Form a b -> Frequency
+frequency form =
+  let field = Form.getFieldAsString "frequency" form
+  in  if field.value == Just (toString Monthly)
+        then Monthly
+        else Punctual
-- 
cgit v1.2.3