aboutsummaryrefslogtreecommitdiff
path: root/client/src/View/Payment
diff options
context:
space:
mode:
Diffstat (limited to 'client/src/View/Payment')
-rw-r--r--client/src/View/Payment/Clone.hs6
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