wait for cancel

Author: soulomoon

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

@@ -766,8 +766,8 @@ shakeRestart recorder IdeState{..} vfs reason acts ioActionBetweenShakeSession =
         withMVar'
             shakeSession
             (\runner -> do
-                signalBarrier barrier ()
                 (stopTime,()) <- duration $ logErrorAfter 10 $ cancelShakeSession runner
+                signalBarrier barrier ()
                 keys <- ioActionBetweenShakeSession
                 atomically $ modifyTVar' (dirtyKeys shakeExtras) $ \x -> foldl' (flip insertKeySet) x keys
                 res <- shakeDatabaseProfile shakeDb