From: Ian Lynagh <igloo@earth.li>
Date: Wed, 23 Jan 2008 21:19:17 +0000 (+0000)
Subject: Use nilFS
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b3a84c8ba18a2f30da3bd8ee470a67c323b6abd2

Use nilFS
---

diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs
index 0b0874a..cbf7d61 100644
--- a/compiler/utils/StringBuffer.lhs
+++ b/compiler/utils/StringBuffer.lhs
@@ -46,7 +46,7 @@ module StringBuffer
 #include "HsVersions.h"
 
 import Encoding
-import FastString		( FastString,mkFastString,mkFastStringBytes )
+import FastString hiding ( buf )
 import FastTypes
 import FastFunctions
 
@@ -208,7 +208,7 @@ lexemeToString (StringBuffer buf _ cur) bytes =
       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 ->