fixup withNumCapabilities

Author: pepeiborra

ghcide/exe/Main.hs

@@ -71,6 +71,8 @@ main = do
             then Test.plugin
             else mempty
 
+        ,Main.argsThreads = case argsThreads of 0 -> Nothing ; i -> Just (fromIntegral i)
+
         ,Main.argsIdeOptions = \config  sessionLoader ->
             let defOptions = defaultIdeOptions sessionLoader
             in defOptions

src/Ide/Main.hs

@@ -98,6 +98,7 @@ runLspMode ghcideArgs@GhcideArguments{..} idePlugins = do
       { Main.argCommand = argsCommand
       , Main.argsHlsPlugins = idePlugins
       , Main.argsLogger = pure hlsLogger
+      , Main.argsThreads = if argsThreads == 0 then Nothing else Just $ fromIntegral argsThreads
       , Main.argsIdeOptions = \_config sessionLoader ->
         let defOptions = Ghcide.defaultIdeOptions sessionLoader
         in defOptions