X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FPArr.hs;h=cd2f03b297ae79bbd6b8df8cb5745fe6a5f7b3f9;hb=5aa48cdf0852c15f6bedd8ffc74a1f7d39c7518c;hp=0b5154ec6d16ba2451d0469aed5042b5a1522c7f;hpb=176a386c7803f560e70a5d0467c58f29b9664d75;p=ghc-base.git

diff --git a/GHC/PArr.hs b/GHC/PArr.hs
index 0b5154e..cd2f03b 100644
--- a/GHC/PArr.hs
+++ b/GHC/PArr.hs
@@ -141,6 +141,8 @@ module GHC.PArr (
   indexOfP		-- :: (a -> Bool) -> [:a:] -> [:Int:]
 ) where
 
+#ifndef __HADDOCK__
+
 import Prelude
 
 import GHC.ST   ( ST(..), STRep, runST )
@@ -712,3 +714,6 @@ writeMPArr (MPArr n# marr#) (I# i#) e
   | otherwise = error $ "writeMPArr: out of bounds parallel array index; " ++
 			"idx = " ++ show (I# i#) ++ ", arr len = "
 			++ show (I# n#)
+
+#endif /* __HADDOCK__ */
+