Create an empty but reachable user page

1 files changed, 29 insertions, 0 deletions

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
+  }