[project @ 2005-12-02 14:29:28 by simonmar]

avoid recursive module trap with Haddock

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index 2f969da..6c21cf4 100644 (file)
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -82,7 +82,9 @@ import System.Posix.Internals
 import Foreign
 import Foreign.C
 
+#ifndef __HADDOCK__
 import {-# SOURCE #-} GHC.TopHandler ( reportError, reportStackOverflow )
+#endif
 
 import Data.Maybe