We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 4173871 + c914c35 commit 228a05bCopy full SHA for 228a05b
ghcide/test/exe/Main.hs
@@ -79,6 +79,7 @@ import System.FilePath
79
import System.IO.Extra hiding (withTempDir)
80
import qualified System.IO.Extra
81
import System.Info.Extra (isWindows)
82
+import System.Mem (performGC)
83
import System.Process.Extra (CreateProcess (cwd),
84
createPipe, proc,
85
readCreateProcessWithExitCode)
@@ -5767,6 +5768,7 @@ unitTests = do
5767
5768
findResolution_us :: Int -> IO Int
5769
findResolution_us delay_us | delay_us >= 1000000 = error "Unable to compute timestamp resolution"
5770
findResolution_us delay_us = withTempFile $ \f -> withTempFile $ \f' -> do
5771
+ performGC
5772
writeFile f ""
5773
threadDelay delay_us
5774
writeFile f' ""
0 commit comments