[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 6b795be..661b89e 100644 (file)
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -443,7 +443,7 @@ cmpFS (FastString u1# l1# b1#) (FastString u2# l2# b2#) =
     ))
 
 #ifndef __HADDOCK__
-foreign import ccall "ghc_memcmp" unsafe 
+foreign import ccall unsafe "ghc_memcmp" 
   memcmp :: ByteArray# -> ByteArray# -> Int# -> IO Int
 #endif