debug

Author: bitonic

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

@@ -228,6 +228,7 @@ performXHR getResp respType req@Request{..} = do
   let xhr = reqXHR
   DOM.setResponseType xhr respType
   uri <- requestToUri req
+  putStrLn ("SOLGA Requesting uri " ++ show uri)
   DOM.open xhr reqMethod uri True reqUser reqPassword
   for_ reqHeaders (uncurry (DOM.setRequestHeader xhr))
   result :: MVar (Either XHRError (Response a)) <- liftIO newEmptyMVar