diff options
author | Ian Lynagh <ian@well-typed.com> | 2013-02-17 21:24:37 +0000 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2013-02-17 21:24:37 +0000 |
commit | fd24920df7ab2844c17bdb1bbd79d7b1043f2939 (patch) | |
tree | b5522fd55c180ed363a71ed62d3d0ab6e475ee6a /testsuite/tests/concurrent | |
parent | 68195030b54a25850b54478844e43de813b8f67b (diff) | |
download | haskell-fd24920df7ab2844c17bdb1bbd79d7b1043f2939.tar.gz |
Follow the unsafePerformIO change in base
Diffstat (limited to 'testsuite/tests/concurrent')
-rw-r--r-- | testsuite/tests/concurrent/should_run/conc039.hs | 1 | ||||
-rw-r--r-- | testsuite/tests/concurrent/should_run/conc040.hs | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc039.hs b/testsuite/tests/concurrent/should_run/conc039.hs index dc5d181a31..dc493d4acc 100644 --- a/testsuite/tests/concurrent/should_run/conc039.hs +++ b/testsuite/tests/concurrent/should_run/conc039.hs @@ -1,6 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} import Foreign +import System.IO.Unsafe import System.Mem import Control.Concurrent diff --git a/testsuite/tests/concurrent/should_run/conc040.hs b/testsuite/tests/concurrent/should_run/conc040.hs index be3bfdb915..e4acd84eef 100644 --- a/testsuite/tests/concurrent/should_run/conc040.hs +++ b/testsuite/tests/concurrent/should_run/conc040.hs @@ -4,6 +4,7 @@ import Foreign import Data.IORef import Control.Concurrent import Control.Exception +import System.IO.Unsafe foreign import ccall "wrapper" wrap :: IO () -> IO (FunPtr (IO ())) |