diff options
| author | Joris | 2019-10-22 23:25:05 +0200 |
|---|---|---|
| committer | Joris | 2019-10-22 23:25:05 +0200 |
| commit | 61ff1443c42def5a09f624e3df2e2520e97610d0 (patch) | |
| tree | a177b297b2c0728c8edaaf200f05c53e76f121f3 /client/src/View/Payment | |
| parent | 613ffccac4b3ab25c6d4c631fab757da0b35acf6 (diff) | |
| download | budget-61ff1443c42def5a09f624e3df2e2520e97610d0.tar.gz budget-61ff1443c42def5a09f624e3df2e2520e97610d0.tar.bz2 budget-61ff1443c42def5a09f624e3df2e2520e97610d0.zip | |
Clone incomes
Diffstat (limited to 'client/src/View/Payment')
| -rw-r--r-- | client/src/View/Payment/Clone.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/client/src/View/Payment/Clone.hs b/client/src/View/Payment/Clone.hs index 56a33d9..82b0c27 100644 --- a/client/src/View/Payment/Clone.hs +++ b/client/src/View/Payment/Clone.hs @@ -34,7 +34,7 @@ view input cancel = do currentDay <- liftIO $ Time.getCurrentTime >>= TimeUtil.timeToDay - formOutput <- R.dyn $ do + form <- R.dyn $ do paymentCategories <- _in_paymentCategories input payment <- _in_payment input category <- _in_category input @@ -52,8 +52,8 @@ view input cancel = do , Form._in_ajax = Ajax.post } - hide <- ReflexUtil.flatten (Form._output_hide <$> formOutput) - clonePayment <- ReflexUtil.flatten (Form._output_addPayment <$> formOutput) + hide <- ReflexUtil.flatten (Form._output_hide <$> form) + clonePayment <- ReflexUtil.flatten (Form._output_addPayment <$> form) return $ ( hide |