From: Ross Paterson <ross@soi.city.ac.uk>
Date: Wed, 13 Aug 2008 00:02:19 +0000 (+0000)
Subject: use the Haskell 98 module Control.Exception.Base in the Concurrent modules
X-Git-Tag: 6_10_branch_has_been_forked~51
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=34816f6bb3aefacd77408c9da5a1c3e0b761270d;p=ghc-base.git

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
--- 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
--- 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