diff options
| author | Joris | 2015-10-04 20:48:32 +0200 |
|---|---|---|
| committer | Joris | 2015-10-04 20:48:32 +0200 |
| commit | 8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a (patch) | |
| tree | cdd1bb79846b3d8865d833a122152528b03a4746 /src/client/View/LoggedIn/Add.elm | |
| parent | 303dfd66c6434e19ba226a133a35a74a557b3e93 (diff) | |
| download | budget-8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a.tar.gz budget-8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a.tar.bz2 budget-8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a.zip | |
Using incomes to compute a fair computation to designate the payer
Diffstat (limited to 'src/client/View/LoggedIn/Add.elm')
| -rw-r--r-- | src/client/View/LoggedIn/Add.elm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/client/View/LoggedIn/Add.elm b/src/client/View/LoggedIn/Add.elm index 2167a7f..52d931a 100644 --- a/src/client/View/LoggedIn/Add.elm +++ b/src/client/View/LoggedIn/Add.elm @@ -32,7 +32,7 @@ addPayment model loggedInView = (Ok name, Ok cost) -> let action = case loggedInView.add.frequency of - Punctual -> SC.AddPayment loggedInView.me name cost + Punctual -> SC.AddPayment loggedInView.account.me name cost Monthly -> SC.AddMonthlyPayment name cost in onSubmitPrevDefault serverCommunications.address action (resName, resCost) -> |