X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FFastString.lhs;h=661b89eaf9b35ac459171f692fdc0b3850a95896;hb=22cf766063c99241e5f5fc2175a60fc63f7a36f3;hp=6b795bea8cf92b74ee4b1395fd392e74457dcbf9;hpb=1504b0c40d63dc0b2e838deabac081bb0c2f2506;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 6b795be..661b89e 100644
--- 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