Only show progress messages if the computation takes > 0.1s (#392)

haskell · Feb 4, 2020 · 3d60ddc · 3d60ddc
1 parent f06cae0
commit 3d60ddc
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Development/IDE/Core/Shake.hs b/src/Development/IDE/Core/Shake.hs
@@ -325,6 +325,9 @@ shakeOpen getLspId eventer logger shakeProfileDir (IdeReportProgress reportProgr
 
 lspShakeProgress :: Show a => IO LSP.LspId -> (LSP.FromServerMessage -> IO ()) -> Var (Map a Int) -> IO ()
 lspShakeProgress getLspId sendMsg inProgress = do
+    -- first sleep a bit, so we only show progress messages if it's going to take
+    -- a "noticable amount of time" (we often expect a thread kill to arrive before the sleep finishes)
+    sleep 0.1
     lspId <- getLspId
     u <- ProgressTextToken . T.pack . show . hashUnique <$> newUnique
     sendMsg $ LSP.ReqWorkDoneProgressCreate $ LSP.fmServerWorkDoneProgressCreateRequest