[project @ 2005-08-10 11:05:06 by simonpj]

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

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 6b795be..7a7d5f0 100644 (file)
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -127,6 +127,9 @@ instance Ord FastString where
             | otherwise        =  y
     compare a b = cmpFS a b
 
+instance Show FastString where
+   show fs = show (unpackFS fs)
+
 lengthFS :: FastString -> Int
 lengthFS (FastString _ l# _) = I# l#
 lengthFS (UnicodeStr _ s) = length s
@@ -443,7 +446,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