@@ -163,9 +163,9 @@ getCompletionsLSP ide plId
163
163
,_context= completionContext} = ExceptT $ do
164
164
contentsMaybe <-
165
165
liftIO $ runAction " Completion" ide $ getUriContents $ toNormalizedUri uri
166
- fmap Right $ case ( contentsMaybe, uriToFilePath' uri) of
167
- ( Just cnts, Just path) -> do
168
- let nuri = filePathToUri' $ toNormalizedFilePath' path
166
+ fmap Right $ case contentsMaybe of
167
+ Just cnts -> do
168
+ let nuri = toNormalizedUri uri
169
169
(ideOpts, compls, moduleExports, astres) <- liftIO $ runIdeAction " Completion" (shakeExtras ide) $ do
170
170
opts <- liftIO $ getIdeOptionsIO $ shakeExtras ide
171
171
localCompls <- useWithStaleFast LocalCompletions nuri
@@ -209,7 +209,7 @@ getCompletionsLSP ide plId
209
209
let allCompletions = getCompletions plugins ideOpts cci' parsedMod astres bindMap pfix clientCaps config moduleExports uri
210
210
pure $ InL (orderedCompletions allCompletions)
211
211
_ -> return (InL [] )
212
- _ -> return (InL [] )
212
+ Nothing -> return (InL [] )
213
213
214
214
getCompletionsConfig :: PluginId -> Action CompletionsConfig
215
215
getCompletionsConfig pId =
0 commit comments