ghc/tests/concurrent/should_run/conc013.hs

   1 module Main where
   2
   3 -- !!! test Eq and Ord instances over thread Ids.
   4
   5 import Concurrent
   6
   7 main = do
   8   tso1 <- forkIO (return ())
   9   tso2 <- forkIO (return ())
  10   print [compare tso1 tso2, compare tso1 tso1, compare tso2 tso1]