use the Haskell 98 module Control.Exception.Base in the Concurrent modules

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index a0faad0..8b90e70 100644 (file)
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -92,7 +92,7 @@ module Control.Concurrent (
 
 import Prelude
 
-import Control.Exception as Exception
+import Control.Exception.Base as Exception
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Exception

diff --git a/Control/Concurrent/MVar.hs b/Control/Concurrent/MVar.hs
index d4a1a48..3513bbd 100644 (file)
--- a/Control/Concurrent/MVar.hs
+++ b/Control/Concurrent/MVar.hs
@@ -46,7 +46,7 @@ import GHC.Conc ( MVar, newEmptyMVar, newMVar, takeMVar, putMVar,
 #endif
 
 import Prelude
-import Control.Exception
+import Control.Exception.Base
 
 {-|
   This is a combination of 'takeMVar' and 'putMVar'; ie. it takes the value