diff options
author | Joris | 2016-03-27 21:13:37 +0200 |
---|---|---|
committer | Joris | 2016-03-27 21:13:37 +0200 |
commit | 0c9d2b91e73f045067f7bcce6e4235fc9008f309 (patch) | |
tree | 6aa101db10b72408a9cfa256312cb34e7ec22dff /src/client/elm/LoggedIn/AddPayment/Model.elm | |
parent | 7c050fe2d2c3e8f190e019e1613d37b9d8ef22b9 (diff) | |
download | budget-0c9d2b91e73f045067f7bcce6e4235fc9008f309.tar.gz budget-0c9d2b91e73f045067f7bcce6e4235fc9008f309.tar.bz2 budget-0c9d2b91e73f045067f7bcce6e4235fc9008f309.zip |
Regroup add payment modules
Diffstat (limited to 'src/client/elm/LoggedIn/AddPayment/Model.elm')
-rw-r--r-- | src/client/elm/LoggedIn/AddPayment/Model.elm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/client/elm/LoggedIn/AddPayment/Model.elm b/src/client/elm/LoggedIn/AddPayment/Model.elm new file mode 100644 index 0000000..2aa32c2 --- /dev/null +++ b/src/client/elm/LoggedIn/AddPayment/Model.elm @@ -0,0 +1,29 @@ +module LoggedIn.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 + } |