[project @ 2005-05-21 15:12:00 by panne]

[ghc-hetmet.git] / ghc / compiler / utils / FastString.lhs

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 8dbfefa..661b89e 100644 (file)
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -442,8 +442,10 @@ cmpFS (FastString u1# l1# b1#) (FastString u2# l2# b2#) =
     else                   GT
     ))
 
-foreign import ccall "ghc_memcmp" unsafe 
+#ifndef __HADDOCK__
+foreign import ccall unsafe "ghc_memcmp" 
   memcmp :: ByteArray# -> ByteArray# -> Int# -> IO Int
+#endif
 
 -- -----------------------------------------------------------------------------
 -- Outputting 'FastString's