From 166cd04e4b28770ede854dafc9ae30eae64102fe Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 28 Mar 2016 17:51:14 +0200
Subject: Create an empty but reachable user page

---
 src/client/elm/LoggedIn/Home/AddPayment/Model.elm | 29 +++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 src/client/elm/LoggedIn/Home/AddPayment/Model.elm

(limited to 'src/client/elm/LoggedIn/Home/AddPayment/Model.elm')

diff --git a/src/client/elm/LoggedIn/Home/AddPayment/Model.elm b/src/client/elm/LoggedIn/Home/AddPayment/Model.elm
new file mode 100644
index 0000000..22b6883
--- /dev/null
+++ b/src/client/elm/LoggedIn/Home/AddPayment/Model.elm
@@ -0,0 +1,29 @@
+module LoggedIn.Home.AddPayment.Model
+  ( Model
+  , init
+  ) where
+
+import Result as Result exposing (Result(..))
+import Json.Decode exposing ((:=))
+
+import Model.Translations exposing (..)
+import Model.Payment exposing (PaymentFrequency(..))
+
+type alias Model =
+  { name : String
+  , nameError : Maybe String
+  , cost : String
+  , costError : Maybe String
+  , frequency : PaymentFrequency
+  , waitingServer : Bool
+  }
+
+init : PaymentFrequency -> Model
+init frequency =
+  { name = ""
+  , nameError = Nothing
+  , cost = ""
+  , costError = Nothing
+  , frequency = frequency
+  , waitingServer = False
+  }
-- 
cgit v1.2.3