Commit 5372ff5d authored by Simon Marlow's avatar Simon Marlow
Browse files

Adapt to removal of catch from Prelude

parent 6bda8726
{-# LANGUAGE CPP #-}
module Main where
import Control.Exception
import Control.Concurrent
#if __GLASGOW_HASKELL__ < 705
import Prelude hiding (catch)
#endif
import System.Mem
-- illustrates the BlockOnDeadMVar exception
......
{-# LANGUAGE CPP #-}
module Main where
import Control.Exception
import Control.Concurrent
#if __GLASGOW_HASKELL__ < 705
import Prelude hiding (catch)
#endif
-- the BlockOnDeadMVar exception doesn't cause any output by default
......
{-# LANGUAGE CPP #-}
module Main where
import Control.Exception
import Control.Concurrent
#if __GLASGOW_HASKELL__ < 705
import Prelude hiding (catch)
#endif
-- the ThreadKilled exception doesn't cause any output by default
......
{-# LANGUAGE CPP #-}
import Control.Concurrent
import Control.Exception
import Foreign
import System.IO (hFlush,stdout)
#if __GLASGOW_HASKELL__ < 705
import Prelude hiding (catch)
#endif
-- !!! Try to get two threads into a knot depending on each other.
......
{-# LANGUAGE ForeignFunctionInterface,InterruptibleFFI #-}
{-# OPTIONS -cpp #-}
{-# LANGUAGE CPP,ForeignFunctionInterface,InterruptibleFFI #-}
module Main where
import Control.Concurrent
import Control.Exception
#if __GLASGOW_HASKELL__ < 705
import Prelude hiding (catch)
#endif
import Foreign
import System.IO
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment