We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent e1b6cf3 commit c914c35Copy full SHA for c914c35
ghcide/test/exe/Main.hs
@@ -78,6 +78,7 @@ import System.FilePath
78
import System.IO.Extra hiding (withTempDir)
79
import qualified System.IO.Extra
80
import System.Info.Extra (isWindows)
81
+import System.Mem (performGC)
82
import System.Process.Extra (CreateProcess (cwd),
83
createPipe, proc,
84
readCreateProcessWithExitCode)
@@ -5720,6 +5721,7 @@ unitTests = do
5720
5721
findResolution_us :: Int -> IO Int
5722
findResolution_us delay_us | delay_us >= 1000000 = error "Unable to compute timestamp resolution"
5723
findResolution_us delay_us = withTempFile $ \f -> withTempFile $ \f' -> do
5724
+ performGC
5725
writeFile f ""
5726
threadDelay delay_us
5727
writeFile f' ""
0 commit comments