@@ -99,7 +99,7 @@ makeCodeAction cas lf ideState (CodeActionParams docId range context _) = do
99
99
if pluginEnabled pluginConfig plcCodeActionsOn
100
100
then otTracedProvider pid " codeAction" $ provider lf ideState pid docId range context
101
101
else return $ Right (List [] )
102
- r <- mapM makeAction cas
102
+ r <- mapConcurrently makeAction cas
103
103
let actions = filter wasRequested . foldMap unL $ rights r
104
104
res <- send caps actions
105
105
return $ Right res
@@ -173,7 +173,7 @@ makeCodeLens cas lf ideState params = do
173
173
doOneRight (pid, Right a) = [(pid,a)]
174
174
doOneRight (_, Left _) = []
175
175
176
- r <- mapM makeLens cas
176
+ r <- mapConcurrently makeLens cas
177
177
case breakdown r of
178
178
([] ,[] ) -> return $ Right $ List []
179
179
(es,[] ) -> return $ Left $ ResponseError InternalError (T. pack $ " codeLens failed:" ++ show es) Nothing
@@ -308,7 +308,7 @@ makeHover hps lf ideState params
308
308
if pluginEnabled pluginConfig plcHoverOn
309
309
then otTracedProvider pid " hover" $ p ideState params
310
310
else return $ Right Nothing
311
- mhs <- mapM makeHover hps
311
+ mhs <- mapConcurrently makeHover hps
312
312
-- TODO: We should support ServerCapabilities and declare that
313
313
-- we don't support hover requests during initialization if we
314
314
-- don't have any hover providers
@@ -363,7 +363,7 @@ makeSymbols sps lf ideState params
363
363
if pluginEnabled pluginConfig plcSymbolsOn
364
364
then otTracedProvider pid " symbols" $ p lf ideState params
365
365
else return $ Right []
366
- mhs <- mapM makeSymbols sps
366
+ mhs <- mapConcurrently makeSymbols sps
367
367
case rights mhs of
368
368
[] -> return $ Left $ responseError $ T. pack $ show $ lefts mhs
369
369
hs -> return $ Right $ convertSymbols $ concat hs
@@ -393,7 +393,7 @@ renameWith providers lspFuncs state params = do
393
393
then otTracedProvider pid " rename" $ p lspFuncs state params
394
394
else return $ Right $ WorkspaceEdit Nothing Nothing
395
395
-- TODO:AZ: we need to consider the right way to combine possible renamers
396
- results <- mapM makeAction providers
396
+ results <- mapConcurrently makeAction providers
397
397
case partitionEithers results of
398
398
(errors, [] ) -> return $ Left $ responseError $ T. pack $ show errors
399
399
(_, edits) -> return $ Right $ mconcat edits
0 commit comments