Use the non-sane version of newXMLHttpRequest

This is because that version has been created to explicitly mask the
errors on the js side, making them surface on the haskell side instead,
see: reflex-frp/reflex-dom#369

While in this case the bug is not related to port numbers, I was
wondering if the core mechanism of not letting exceptions show up is the
same.

frontend/src/Frontend/Network/NodeInfo.hs

@@ -278,7 +278,7 @@ runReq
   -> m (Either XhrException XhrResponse)
 runReq (SafeXhrRequest req) = do
   resp <- newEmptyMVar
-  void $ newXMLHttpRequestWithErrorSane req (liftIO . putMVar resp)
+  void $ newXMLHttpRequestWithError req (liftIO . putMVar resp)
   takeMVar resp
 
 

mac/src/Mac.hs

@@ -71,7 +71,7 @@ redirectPipes ps m = bracket setup hClose $ \r -> Async.withAsync (go r) $ \_ ->
     go r = forever $ hGetLine r >>= logToSyslog LevelInfo . toLogStr
 
 main :: IO ()
-main = sysloggedMain "Kadena Chainweaver" . redirectPipes [stderr, stdout] $
+main = -- sysloggedMain "Kadena Chainweaver" . redirectPipes [stderr, stdout] $
   main' ffi mainBundleResourcePath runMac
 
 runMac