path: root/testsuite/tests/ghc-regress/concurrent/should_run/conc072.hs

module Main where

import Control.Concurrent

main = do
  t <- forkOn 0 (return ())
  threadCapability t >>= print
  t <- forkOn 1 (return ())
  threadCapability t >>= print