summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/concurrent
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2011-02-08 14:04:44 +0000
committerIan Lynagh <igloo@earth.li>2011-02-08 14:04:44 +0000
commitf334a97be09fc78c875369511b3ab729ed551dfa (patch)
tree15822d7d0e9a624fefbb5b48c0d0827fcc9305a6 /testsuite/tests/ghc-regress/concurrent
parent9afb4d7f4c19b820dc6380a3f18e340740db985b (diff)
downloadhaskell-f334a97be09fc78c875369511b3ab729ed551dfa.tar.gz
Remove concprog003's haskell98 dependency, and remove some unused imports
Diffstat (limited to 'testsuite/tests/ghc-regress/concurrent')
-rw-r--r--testsuite/tests/ghc-regress/concurrent/prog003/CASList.hs4
-rw-r--r--testsuite/tests/ghc-regress/concurrent/prog003/ImmList.hs1
-rw-r--r--testsuite/tests/ghc-regress/concurrent/prog003/MVarListLockCoupling.hs4
-rw-r--r--testsuite/tests/ghc-regress/concurrent/prog003/Main.lhs3
-rw-r--r--testsuite/tests/ghc-regress/concurrent/prog003/RefInterface.hs2
-rw-r--r--testsuite/tests/ghc-regress/concurrent/prog003/TestRun.hs3
6 files changed, 5 insertions, 12 deletions
diff --git a/testsuite/tests/ghc-regress/concurrent/prog003/CASList.hs b/testsuite/tests/ghc-regress/concurrent/prog003/CASList.hs
index 3632fb656e..445af790a3 100644
--- a/testsuite/tests/ghc-regress/concurrent/prog003/CASList.hs
+++ b/testsuite/tests/ghc-regress/concurrent/prog003/CASList.hs
@@ -1,9 +1,7 @@
{-# LANGUAGE BangPatterns,CPP #-}
module CASList where
-import IO
-import GHC.IOBase
-import Monad
+import Control.Monad
import Data.IORef
import Control.Concurrent
import Control.Concurrent.Chan
diff --git a/testsuite/tests/ghc-regress/concurrent/prog003/ImmList.hs b/testsuite/tests/ghc-regress/concurrent/prog003/ImmList.hs
index ac10dc92e6..70d81633d2 100644
--- a/testsuite/tests/ghc-regress/concurrent/prog003/ImmList.hs
+++ b/testsuite/tests/ghc-regress/concurrent/prog003/ImmList.hs
@@ -1,7 +1,6 @@
{-# LANGUAGE CPP,PatternGuards #-}
module ImmList where
-import IO
import Control.Concurrent
import Data.IORef
import qualified Data.Sequence as S
diff --git a/testsuite/tests/ghc-regress/concurrent/prog003/MVarListLockCoupling.hs b/testsuite/tests/ghc-regress/concurrent/prog003/MVarListLockCoupling.hs
index 9818afc7d9..0820ccd0d2 100644
--- a/testsuite/tests/ghc-regress/concurrent/prog003/MVarListLockCoupling.hs
+++ b/testsuite/tests/ghc-regress/concurrent/prog003/MVarListLockCoupling.hs
@@ -1,9 +1,7 @@
{-# LANGUAGE BangPatterns,CPP #-}
module MVarListLockCoupling where
-import IO
-import GHC.IOBase
-import Monad
+import Control.Monad
import Data.IORef
import Control.Concurrent
import Control.Concurrent.Chan
diff --git a/testsuite/tests/ghc-regress/concurrent/prog003/Main.lhs b/testsuite/tests/ghc-regress/concurrent/prog003/Main.lhs
index 7eb2d5a0c5..e4e8ad790e 100644
--- a/testsuite/tests/ghc-regress/concurrent/prog003/Main.lhs
+++ b/testsuite/tests/ghc-regress/concurrent/prog003/Main.lhs
@@ -8,10 +8,9 @@
> --import Control.Concurrent.STM
> import System.Environment
> import Data.Time
-> import System
> import System.Mem
-> import List
+> import Data.List
> import Collection
> import RefInterface
diff --git a/testsuite/tests/ghc-regress/concurrent/prog003/RefInterface.hs b/testsuite/tests/ghc-regress/concurrent/prog003/RefInterface.hs
index 10df1a1432..95ecbcdb49 100644
--- a/testsuite/tests/ghc-regress/concurrent/prog003/RefInterface.hs
+++ b/testsuite/tests/ghc-regress/concurrent/prog003/RefInterface.hs
@@ -3,7 +3,7 @@
module RefInterface where
-import Monad
+import Control.Monad
diff --git a/testsuite/tests/ghc-regress/concurrent/prog003/TestRun.hs b/testsuite/tests/ghc-regress/concurrent/prog003/TestRun.hs
index 1dcec6d4a7..fd6e19de1d 100644
--- a/testsuite/tests/ghc-regress/concurrent/prog003/TestRun.hs
+++ b/testsuite/tests/ghc-regress/concurrent/prog003/TestRun.hs
@@ -12,13 +12,12 @@ import Collection
import Control.Monad
import GHC.Conc
import Text.Printf
-import List
+import Data.List
import Data.IORef
import Control.Concurrent
--import Control.Concurrent.STM
import System.Environment
import Data.Time
-import System
import System.Mem
import System.Random
import Control.Exception