do async requests

Author: bitonic

solga-client-ghcjs/src/Solga/Client/GHCJS.hs

@@ -181,7 +181,7 @@ performXHR respType Request{..} = do
   let xhr = reqXHR
   DOM.setResponseType xhr respType
   uri <- js_encodeURI (reqHost <> JSS.intercalate "/" (DList.toList reqSegments) <> reqQueryString)
-  DOM.open xhr reqMethod uri False reqUser reqPassword
+  DOM.open xhr reqMethod uri True reqUser reqPassword
   for_ reqHeaders (uncurry (DOM.setRequestHeader xhr))
   r <- case reqBody of
     Nothing -> js_send0 xhr