From c0ea63f8c1a8c7123b78798cec99726b113fb1f3 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 17 Nov 2019 18:08:28 +0100
Subject: Optimize and refactor payments

---
 client/src/Util/Ajax.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'client/src/Util/Ajax.hs')

diff --git a/client/src/Util/Ajax.hs b/client/src/Util/Ajax.hs
index 47f4f3c..dc56701 100644
--- a/client/src/Util/Ajax.hs
+++ b/client/src/Util/Ajax.hs
@@ -16,6 +16,7 @@ import qualified Data.Map.Lazy        as LM
 import           Data.Text            (Text)
 import qualified Data.Text            as T
 import qualified Data.Text.Encoding   as T
+import           Data.Time.Clock      (NominalDiffTime)
 import           Reflex.Dom           (Dynamic, Event, IsXhrPayload,
                                        MonadWidget, XhrRequest,
                                        XhrRequestConfig (..), XhrResponse,
@@ -28,7 +29,9 @@ import qualified Loadable
 getNow :: forall t m a. (MonadWidget t m, FromJSON a) => Text -> m (Dynamic t (Loadable a))
 getNow url = do
   postBuild <- R.getPostBuild
-  get (R.tag (R.constant url) postBuild) >>= Loadable.fromEvent
+  get (url <$ postBuild)
+    >>= R.debounce (0 :: NominalDiffTime) -- Fired 2 times otherwise
+    >>= Loadable.fromEvent
 
 get
   :: forall t m a. (MonadWidget t m, FromJSON a)
-- 
cgit v1.2.3