Skip to content

Commit 8ac510e

Browse files
committed
compat with 8.6
1 parent 00a32ec commit 8ac510e

File tree

1 file changed

+2
-3
lines changed

1 file changed

+2
-3
lines changed

ghcide/src/Development/IDE/Core/ProgressReporting.hs

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -21,14 +21,13 @@ import Data.Foldable (for_)
2121
import Data.HashMap.Strict (HashMap)
2222
import qualified Data.HashMap.Strict as HMap
2323
import Data.IORef
24+
import Data.IORef.Extra (atomicModifyIORef'_)
2425
import qualified Data.Text as T
2526
import Data.Unique
2627
import Development.IDE.GHC.Orphans ()
2728
import Development.IDE.Graph hiding (ShakeValue)
2829
import Development.IDE.Types.Location
2930
import Development.IDE.Types.Options
30-
import GHC.IORef (atomicModifyIORef'_,
31-
atomicSwapIORef)
3231
import qualified Language.LSP.Server as LSP
3332
import Language.LSP.Types
3433
import qualified Language.LSP.Types as LSP
@@ -68,7 +67,7 @@ directProgressReporting sample env style = do
6867
writeIORef st (Just u)
6968
mRunLspT env $ start u
7069
progressUpdate KickCompleted = do
71-
mbToken <- atomicSwapIORef st Nothing
70+
mbToken <- atomicModifyIORef st (Nothing,)
7271
for_ mbToken $ \u ->
7372
mRunLspT env $ stop u
7473

0 commit comments

Comments
 (0)