X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FConcurrent%2FMVar.hs;h=ea037baea324aca216d0de6a46e0074ee5392f13;hb=a458251c451c74752517d50253d8ea4cb8afe253;hp=4dfac5aaf735338f54b01155e759871117e16669;hpb=6bef10a5c04947569c7d2380daa726b3b90a2c99;p=ghc-base.git

diff --git a/Control/Concurrent/MVar.hs b/Control/Concurrent/MVar.hs
index 4dfac5a..ea037ba 100644
--- a/Control/Concurrent/MVar.hs
+++ b/Control/Concurrent/MVar.hs
@@ -37,7 +37,6 @@ module Control.Concurrent.MVar
 import Hugs.ConcBase ( MVar, newEmptyMVar, newMVar, takeMVar, putMVar,
 		  tryTakeMVar, tryPutMVar, isEmptyMVar,
 		)
-import Hugs.Exception ( throwIO )
 #endif
 
 #ifdef __GLASGOW_HASKELL__
@@ -49,12 +48,6 @@ import GHC.Conc	( MVar, newEmptyMVar, newMVar, takeMVar, putMVar,
 import Prelude
 import Control.Exception as Exception
 
-#ifdef __HUGS__
--- This is as close as Hugs gets to providing throw
-throw :: Exception -> IO a
-throw = throwIO
-#endif
-
 {-|
   This is a combination of 'takeMVar' and 'putMVar'; ie. it takes the value
   from the 'MVar', puts it back, and also returns it.