From 64ff4707fdcd81c27c6be9903c3c82bc543ef016 Mon Sep 17 00:00:00 2001 From: Joris Date: Mon, 27 Mar 2017 10:18:40 +0200 Subject: Modelize punctual and monthly payment pages --- src/client/Dialog/AddPayment/Model.elm | 8 +++++--- src/client/Dialog/AddPayment/View.elm | 2 +- 2 files changed, 6 insertions(+), 4 deletions(-) (limited to 'src/client/Dialog') 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)) -- cgit v1.2.3