From b3a84c8ba18a2f30da3bd8ee470a67c323b6abd2 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 23 Jan 2008 21:19:17 +0000 Subject: [PATCH] Use nilFS --- compiler/utils/StringBuffer.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -> -- 1.7.10.4