diff --git a/ghcide/src/Development/IDE/Main.hs b/ghcide/src/Development/IDE/Main.hs index 1ac148eca6a..07f33c135fd 100644 --- a/ghcide/src/Development/IDE/Main.hs +++ b/ghcide/src/Development/IDE/Main.hs @@ -321,6 +321,7 @@ defaultMain Arguments{..} = do server <- fmap join $ for argsMonitoringPort $ \p -> do store <- Monitoring.newStore + Monitoring.registerGcMetrics store let startServer = Monitoring.forkServerWith store "localhost" (fromIntegral p) -- this can fail if the port is busy, throwing an async exception back to us -- to handle that, wrap the server thread in an async