diff options
| author | Joris | 2019-11-17 18:08:28 +0100 |
|---|---|---|
| committer | Joris | 2019-11-17 18:08:28 +0100 |
| commit | c0ea63f8c1a8c7123b78798cec99726b113fb1f3 (patch) | |
| tree | 0b92f7e0c125c067a5f1ccafe6a1f04f1edfae86 /client/src/Util/Ajax.hs | |
| parent | 4dc84dbda7ba3ea60d13e6f81eeec556974b7c72 (diff) | |
Optimize and refactor payments
Diffstat (limited to 'client/src/Util/Ajax.hs')
| -rw-r--r-- | client/src/Util/Ajax.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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) |