fixup withNumCapabilities fix

Author: pepeiborra

ghcide/src/Development/IDE/Main.hs

@@ -227,13 +227,14 @@ defaultMain Arguments{..} = do
     outH <- argsHandleOut
 
     numProcessors <- getNumProcessors
+    let numCapabilities = max 1 (maybe (numProcessors `div` 2) fromIntegral argsThreads)
 
     case argCommand of
         PrintExtensionSchema ->
             LT.putStrLn $ decodeUtf8 $ A.encodePretty $ pluginsToVSCodeExtensionSchema argsHlsPlugins
         PrintDefaultConfig ->
             LT.putStrLn $ decodeUtf8 $ A.encodePretty $ pluginsToDefaultConfig argsHlsPlugins
-        LSP -> withNumCapabilities (maybe (numProcessors `div` 2) fromIntegral argsThreads) $ do
+        LSP -> withNumCapabilities numCapabilities $ do
             t <- offsetTime
             hPutStrLn stderr "Starting LSP server..."
             hPutStrLn stderr "If you are seeing this in a terminal, you probably should have run WITHOUT the --lsp option!"