testsuite/tests/ghc-regress/concurrent/should_run/numsparks001.hs


1
2
3
4
5
6
7
8
9
10
11


import GHC.Conc

main = do
  let x = length [1..100]
  numSparks >>= print
  x `par` numSparks >>= print
  x `par` numSparks >>= print
  x `par` numSparks >>= print
  x `par` numSparks >>= print