X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FPanic.lhs;fp=compiler%2Futils%2FPanic.lhs;h=71c484e59dfb6b9bb4b89b1c59fc355bef644ce9;hb=aa9a4f1053d3c554629a2ec25955e7530c95b892;hp=97648b72de17c3cb8c0e5cf008976d20c847d76e;hpb=179a3a7bd67ccc816e3b934eff770fb49c4cc456;p=ghc-hetmet.git diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index 97648b7..71c484e 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -35,10 +35,9 @@ import System.Posix.Signals import GHC.ConsoleHandler #endif -import Control.Exception +import Exception import Control.Concurrent ( MVar, ThreadId, withMVar, newMVar ) import Data.Dynamic -import qualified Control.Exception as Exception import Debug.Trace ( trace ) import System.IO.Unsafe ( unsafePerformIO ) import System.IO.Error ( isUserError )