File tree 2 files changed +3
-1
lines changed
plugins/hls-retrie-plugin 2 files changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -30,6 +30,7 @@ library
30
30
, lsp-types
31
31
, retrie >= 0.1.1.0
32
32
, safe-exceptions
33
+ , stm
33
34
, text
34
35
, transformers
35
36
, unordered-containers
Original file line number Diff line number Diff line change 17
17
module Ide.Plugin.Retrie (descriptor ) where
18
18
19
19
import Control.Concurrent.Extra (readVar )
20
+ import Control.Concurrent.STM (readTVarIO )
20
21
import Control.Exception.Safe (Exception (.. ),
21
22
SomeException , catch ,
22
23
throwIO , try )
@@ -356,7 +357,7 @@ callRetrie ::
356
357
Bool ->
357
358
IO ([CallRetrieError ], WorkspaceEdit )
358
359
callRetrie state session rewrites origin restrictToOriginatingFile = do
359
- knownFiles <- toKnownFiles . unhashed <$> readIORef (knownTargetsVar $ shakeExtras state)
360
+ knownFiles <- toKnownFiles . unhashed <$> readTVarIO (knownTargetsVar $ shakeExtras state)
360
361
let reuseParsedModule f = do
361
362
pm <-
362
363
useOrFail " GetParsedModule" NoParse GetParsedModule f
You can’t perform that action at this time.
0 commit comments