X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FPanic.lhs;fp=compiler%2Futils%2FPanic.lhs;h=97648b72de17c3cb8c0e5cf008976d20c847d76e;hb=268377f59589e6afec1048458c350011ebb74afe;hp=b8ab86af6813bcf597b308f81471cb53e07e8d94;hpb=bb7ffa1642e2110e26e1243c42a8a24adafa985d;p=ghc-hetmet.git diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index b8ab86a..97648b7 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -168,7 +168,7 @@ tryUser action = tryJust tc_errors action where tc_errors e@(Exception.IOException ioe) | isUserError ioe = Just e tc_errors _other = Nothing -\end{code} +\end{code} Standard signal handlers for catching ^C, which just throw an exception in the target thread. The current target thread is