diff options
| author | Joris | 2019-11-25 08:17:59 +0100 |
|---|---|---|
| committer | Joris | 2019-11-25 08:17:59 +0100 |
| commit | e622e8fdd2e40b4306b5cc724d8dfb76bf976242 (patch) | |
| tree | ea679b1f701631c37601a1305b8df90e40cdc56e /client/src/View/Payment/Payment.hs | |
| parent | 54628c70cb33de5e4309c35b9f6b57bbe9f7a07b (diff) | |
| download | budget-e622e8fdd2e40b4306b5cc724d8dfb76bf976242.tar.gz budget-e622e8fdd2e40b4306b5cc724d8dfb76bf976242.tar.bz2 budget-e622e8fdd2e40b4306b5cc724d8dfb76bf976242.zip | |
Remove Loadable2
Diffstat (limited to 'client/src/View/Payment/Payment.hs')
| -rw-r--r-- | client/src/View/Payment/Payment.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/client/src/View/Payment/Payment.hs b/client/src/View/Payment/Payment.hs index a97c3df..8d0fee1 100644 --- a/client/src/View/Payment/Payment.hs +++ b/client/src/View/Payment/Payment.hs @@ -38,7 +38,7 @@ view input = do categories <- AjaxUtil.getNow "api/categories" - R.dyn . R.ffor categories . Loadable.view $ \categories -> do + R.dyn . R.ffor categories . Loadable.viewHideValueWhileLoading $ \categories -> do rec paymentPage <- Reducer.reducer $ Reducer.In @@ -69,7 +69,7 @@ view input = do , HeaderForm._in_categories = categories } - result <- Loadable.view2 paymentPage $ + result <- Loadable.viewShowValueWhileLoading paymentPage $ \(PaymentPage page frequency header payments count) -> do HeaderInfos.view $ HeaderInfos.In |