From: panne <unknown>
Date: Sat, 21 May 2005 15:12:00 +0000 (+0000)
Subject: [project @ 2005-05-21 15:12:00 by panne]
X-Git-Tag: Initial_conversion_from_CVS_complete~497
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=22cf766063c99241e5f5fc2175a60fc63f7a36f3

[project @ 2005-05-21 15:12:00 by panne]
Warning police: Use non-deprecated form of "foreign import"
---

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