blob: f046f7c7fc3b4e2df7282668b8dc2088d986aa7b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
import System.Mem.StableName
import System.Mem
-- Test that we get the same StableName even after a GC. This is easy
-- to get wrong, by not following indirections properly.
main = do
let x = [1..10]
seq x (return ())
n1 <- makeStableName x
performGC
n2 <- makeStableName x
print (n1 == n2)
|
