diff options
| author | Joris | 2019-08-07 21:27:59 +0200 |
|---|---|---|
| committer | Joris | 2019-08-07 21:27:59 +0200 |
| commit | fc8be14dd0089eb12b78af7aaaecd8ed57896677 (patch) | |
| tree | 22bcd64c7ef3f21aa067ca81824f0e0a2ce6b631 /client/src/View/Payment/Delete.hs | |
| parent | bc81084933f8ec1bfe6c2834defd12243117fdd9 (diff) | |
Update category according to payment in add overlay
Diffstat (limited to 'client/src/View/Payment/Delete.hs')
| -rw-r--r-- | client/src/View/Payment/Delete.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/client/src/View/Payment/Delete.hs b/client/src/View/Payment/Delete.hs index 81c7c57..4aa10f3 100644 --- a/client/src/View/Payment/Delete.hs +++ b/client/src/View/Payment/Delete.hs @@ -34,6 +34,11 @@ view deleteIn = R.divClass "deleteContent" $ do (deletedPayment, cancel) <- R.divClass "buttons" $ do + + cancel <- Component._buttonOut_clic <$> (Component.button $ + (Component.defaultButtonIn (R.text $ Msg.get Msg.Dialog_Undo)) + { _buttonIn_class = R.constDyn "undo" }) + rec confirm <- Component._buttonOut_clic <$> (Component.button $ (Component.defaultButtonIn (R.text $ Msg.get Msg.Dialog_Confirm)) @@ -50,10 +55,6 @@ view deleteIn = (Ajax.delete url) confirm - cancel <- Component._buttonOut_clic <$> (Component.button $ - (Component.defaultButtonIn (R.text $ Msg.get Msg.Dialog_Undo)) - { _buttonIn_class = R.constDyn "undo" }) - return (R.fmapMaybe EitherUtil.eitherToMaybe result, cancel) return DeleteOut |