From 3c709aa79b9a887bf845eaaa0f99a51bdadf04fe Mon Sep 17 00:00:00 2001 From: umuta Date: Mon, 10 Mar 2003 10:30:26 +0000 Subject: [PATCH] [project @ 2003-03-10 10:30:26 by umuta] Fix compilation problem on mingw32 --- ghc/compiler/utils/Panic.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/utils/Panic.lhs b/ghc/compiler/utils/Panic.lhs index 72eefd4..170a7a7 100644 --- a/ghc/compiler/utils/Panic.lhs +++ b/ghc/compiler/utils/Panic.lhs @@ -33,13 +33,13 @@ import Posix ( Handler(Catch), installHandler, sigINT, sigQUIT ) # endif /* GHC > 504 */ import CONCURRENT ( myThreadId ) +#endif /* mingw32_HOST_OS */ # if __GLASGOW_HASKELL__ < 500 import EXCEPTION ( raiseInThread ) # else import EXCEPTION ( throwTo ) # endif /* GHC < 500 */ -#endif /* mingw32_HOST_OS */ #if __GLASGOW_HASKELL__ > 408 import EXCEPTION ( catchJust, tryJust, ioErrors ) -- 1.7.10.4