diff --git a/frontend/src/Frontend/Network/NodeInfo.hs b/frontend/src/Frontend/Network/NodeInfo.hs index 3725333df..d1b27c6c9 100644 --- a/frontend/src/Frontend/Network/NodeInfo.hs +++ b/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 diff --git a/mac/src/Mac.hs b/mac/src/Mac.hs index 587bd9308..7cf129591 100644 --- a/mac/src/Mac.hs +++ b/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