diff options
author | Joris | 2019-08-10 21:31:27 +0200 |
---|---|---|
committer | Joris | 2019-08-10 21:31:27 +0200 |
commit | c542424b7b41c78a170763f6996c12f56b359860 (patch) | |
tree | 44830a524c592b53e93190c0461676edbfa6fdb8 /client/src/View/Payment/Add.hs | |
parent | c5c54722f4736108c8418c9865f81f05a6db560d (diff) | |
download | budget-c542424b7b41c78a170763f6996c12f56b359860.tar.gz budget-c542424b7b41c78a170763f6996c12f56b359860.tar.bz2 budget-c542424b7b41c78a170763f6996c12f56b359860.zip |
Add smooth transitions to modal show and hide
Diffstat (limited to 'client/src/View/Payment/Add.hs')
-rw-r--r-- | client/src/View/Payment/Add.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/client/src/View/Payment/Add.hs b/client/src/View/Payment/Add.hs index d2d2dc4..69e29a7 100644 --- a/client/src/View/Payment/Add.hs +++ b/client/src/View/Payment/Add.hs @@ -55,9 +55,9 @@ view addIn = do R.divClass "addContent" $ do rec let reset = R.leftmost - [ const "" <$> cancel - , const "" <$> addPayment - , const "" <$> _addIn_cancel addIn + [ "" <$ cancel + , "" <$ addPayment + , "" <$ _addIn_cancel addIn ] name <- Component.input @@ -90,7 +90,7 @@ view addIn = do , _inputIn_hasResetButton = False , _inputIn_validation = PaymentValidation.date }) - (const currentDay <$> reset) + (currentDay <$ reset) confirm) let setCategory = |