From: simonmar <unknown>
Date: Fri, 2 Dec 2005 14:29:28 +0000 (+0000)
Subject: [project @ 2005-12-02 14:29:28 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~12
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=36e4c46a8c11bdbb3a6c7bff3f6258b5c66e722c

[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
--- 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