diff options
author | Joris Guyonvarch | 2015-07-20 21:55:52 +0200 |
---|---|---|
committer | Joris Guyonvarch | 2015-07-20 21:55:52 +0200 |
commit | a271d6034bc4cc631a64476d25d21c83a701fa39 (patch) | |
tree | 89ffa3df69999c5c9ed3cda9f4e4ec04f7a6ae1d /src/client/View/Payments.elm | |
parent | a40c4825996c90d107901b0d71162f9356f1395a (diff) | |
download | budget-a271d6034bc4cc631a64476d25d21c83a701fa39.tar.gz budget-a271d6034bc4cc631a64476d25d21c83a701fa39.tar.bz2 budget-a271d6034bc4cc631a64476d25d21c83a701fa39.zip |
Add a payment from the UI, it needs polishing however
Diffstat (limited to 'src/client/View/Payments.elm')
-rw-r--r-- | src/client/View/Payments.elm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/client/View/Payments.elm b/src/client/View/Payments.elm new file mode 100644 index 0000000..dfc0905 --- /dev/null +++ b/src/client/View/Payments.elm @@ -0,0 +1,20 @@ +module View.Payments + ( renderPayments + ) where + +import Html exposing (..) +import Html.Attributes exposing (..) + +import Model.Payment exposing (Payments) +import Model.View.PaymentView exposing (PaymentView) + +import View.Payments.Add exposing (addPayment) +import View.Payments.Table exposing (paymentsTable) + +renderPayments : PaymentView -> Html +renderPayments paymentView = + div + [ class "payments" ] + [ addPayment paymentView.name paymentView.cost + , paymentsTable paymentView.payments + ] |