diff options
author | Joris | 2017-03-27 10:18:40 +0200 |
---|---|---|
committer | Joris | 2017-03-27 10:18:40 +0200 |
commit | 64ff4707fdcd81c27c6be9903c3c82bc543ef016 (patch) | |
tree | fa0c3a9112f4f7c8bd383ad3e597041ab7d5a503 /src/client/Dialog/AddPayment | |
parent | 40273c30166877b3341125ad5248793b2f2fcc64 (diff) |
Modelize punctual and monthly payment pages
Diffstat (limited to 'src/client/Dialog/AddPayment')
-rw-r--r-- | src/client/Dialog/AddPayment/Model.elm | 8 | ||||
-rw-r--r-- | src/client/Dialog/AddPayment/View.elm | 2 |
2 files changed, 6 insertions, 4 deletions
diff --git a/src/client/Dialog/AddPayment/Model.elm b/src/client/Dialog/AddPayment/Model.elm index 11d59b1..8a94bc7 100644 --- a/src/client/Dialog/AddPayment/Model.elm +++ b/src/client/Dialog/AddPayment/Model.elm @@ -15,9 +15,11 @@ import Form.Field as Field exposing (Field) import Form.Validate as Validate exposing (Validation) import Validation -import Model.Payment as Payment exposing (Payment, Frequency, PaymentId) -import Model.Translations exposing (Translations) import Model.Category as Category exposing (Categories, CategoryId) +import Model.Frequency as Frequency +import Model.Payment as Payment exposing (Payment, PaymentId) +import Model.Frequency exposing (Frequency) +import Model.Translations exposing (Translations) import Utils.Maybe as Maybe @@ -67,4 +69,4 @@ validation categories = (Validate.field "cost" Validation.cost) (Validate.field "date" Validation.date) (Validate.field "category" (Validation.category categories)) - (Validate.field "frequency" Payment.validateFrequency) + (Validate.field "frequency" Frequency.validate) diff --git a/src/client/Dialog/AddPayment/View.elm b/src/client/Dialog/AddPayment/View.elm index 66c9f00..584adcd 100644 --- a/src/client/Dialog/AddPayment/View.elm +++ b/src/client/Dialog/AddPayment/View.elm @@ -26,7 +26,7 @@ import LoggedIn.Msg as LoggedInMsg import Msg exposing (Msg) import Model.Category exposing (Categories) -import Model.Payment as Payment exposing (Frequency(..)) +import Model.Frequency exposing (Frequency(..)) import Model.PaymentCategory exposing (PaymentCategories) import Model.Translations exposing (getMessage) import Model.View exposing (View(LoggedInView)) |