File tree 1 file changed +2
-3
lines changed
ghcide/src/Development/IDE/Core 1 file changed +2
-3
lines changed Original file line number Diff line number Diff line change @@ -21,14 +21,13 @@ import Data.Foldable (for_)
21
21
import Data.HashMap.Strict (HashMap )
22
22
import qualified Data.HashMap.Strict as HMap
23
23
import Data.IORef
24
+ import Data.IORef.Extra (atomicModifyIORef'_ )
24
25
import qualified Data.Text as T
25
26
import Data.Unique
26
27
import Development.IDE.GHC.Orphans ()
27
28
import Development.IDE.Graph hiding (ShakeValue )
28
29
import Development.IDE.Types.Location
29
30
import Development.IDE.Types.Options
30
- import GHC.IORef (atomicModifyIORef'_ ,
31
- atomicSwapIORef )
32
31
import qualified Language.LSP.Server as LSP
33
32
import Language.LSP.Types
34
33
import qualified Language.LSP.Types as LSP
@@ -68,7 +67,7 @@ directProgressReporting sample env style = do
68
67
writeIORef st (Just u)
69
68
mRunLspT env $ start u
70
69
progressUpdate KickCompleted = do
71
- mbToken <- atomicSwapIORef st Nothing
70
+ mbToken <- atomicModifyIORef st ( Nothing ,)
72
71
for_ mbToken $ \ u ->
73
72
mRunLspT env $ stop u
74
73
You can’t perform that action at this time.
0 commit comments