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


1
2
3
4
5
6
7
8
9
10

module Main where

-- !!! test Eq and Ord instances over thread Ids.

import Control.Concurrent

main = do
  tso1 <- forkIO (return ())
  tso2 <- forkIO (return ())
  print [compare tso1 tso2, compare tso1 tso1, compare tso2 tso1]