Use nilFS

diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs
index 0b0874a..cbf7d61 100644 (file)
--- a/compiler/utils/StringBuffer.lhs
+++ b/compiler/utils/StringBuffer.lhs
@@ -46,7 +46,7 @@ module StringBuffer
 #include "HsVersions.h"
 
 import Encoding
 #include "HsVersions.h"
 
 import Encoding

-import FastString              ( FastString,mkFastString,mkFastStringBytes )
+import FastString hiding ( buf )

 import FastTypes
 import FastFunctions
 
 import FastTypes
 import FastFunctions
 

@@ -208,7 +208,7 @@ lexemeToString (StringBuffer buf _ cur) bytes =
       utf8DecodeString (ptr `plusPtr` cur) bytes
 
 lexemeToFastString :: StringBuffer -> Int {-bytes-} -> FastString
       utf8DecodeString (ptr `plusPtr` cur) bytes
 
 lexemeToFastString :: StringBuffer -> Int {-bytes-} -> FastString

-lexemeToFastString _ 0 = mkFastString ""
+lexemeToFastString _ 0 = nilFS

 lexemeToFastString (StringBuffer buf _ cur) len =
    inlinePerformIO $
      withForeignPtr buf $ \ptr ->
 lexemeToFastString (StringBuffer buf _ cur) len =
    inlinePerformIO $
      withForeignPtr buf $ \ptr ->