Merge pull request #399 from reflex-frp/ts-xhr-ping-pong

Use onSync for handling XHR onreadystatechange
reflex-frp · Jul 16, 2020 · dc8d55a · dc8d55a
2 parents 0261ab7 + 9f862f9
commit dc8d55a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/reflex-dom-core/src/Reflex/Dom/Xhr/Foreign.hs b/reflex-dom-core/src/Reflex/Dom/Xhr/Foreign.hs
@@ -15,7 +15,7 @@ import Data.Text (Text)
 import Data.ByteString (ByteString)
 import Foreign.JavaScript.Utils (bsFromMutableArrayBuffer, bsToArrayBuffer)
 import GHCJS.DOM.Enums
-import GHCJS.DOM.EventM (EventM, on)
+import GHCJS.DOM.EventM (EventM, on, onSync)
 import GHCJS.DOM.EventTarget (dispatchEvent)
 import GHCJS.DOM.Types (MonadJSM, ToJSString, FormData, Document, Blob (..), ArrayBuffer (..), JSVal, JSM, IsEvent, XMLHttpRequestProgressEvent, ProgressEvent, Event, XMLHttpRequestUpload, FromJSString, ArrayBufferView (..), liftJSM, castTo)
 import GHCJS.DOM.XMLHttpRequest
@@ -114,7 +114,7 @@ xmlHttpRequestOntimeout :: XMLHttpRequest -> EventM XMLHttpRequest ProgressEvent
 xmlHttpRequestOntimeout = (`on` timeout)
 
 xmlHttpRequestOnreadystatechange :: XMLHttpRequest -> EventM XMLHttpRequest Event () -> JSM (JSM ())
-xmlHttpRequestOnreadystatechange = (`on` readyStateChange)
+xmlHttpRequestOnreadystatechange = (`onSync` readyStateChange)
 
 xmlHttpRequestSetTimeout :: MonadJSM m => XMLHttpRequest -> Word -> m ()
 xmlHttpRequestSetTimeout = setTimeout