diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-01-23 21:19:17 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-01-23 21:19:17 +0000 |
| commit | b3a84c8ba18a2f30da3bd8ee470a67c323b6abd2 (patch) | |
| tree | 7198aab41674a498514e5b694033975cc9f561fd /compiler/utils/StringBuffer.lhs | |
| parent | 87e742a86053699acfca595f9500f9a2d890deaa (diff) | |
| download | haskell-b3a84c8ba18a2f30da3bd8ee470a67c323b6abd2.tar.gz | |
Use nilFS
Diffstat (limited to 'compiler/utils/StringBuffer.lhs')
| -rw-r--r-- | compiler/utils/StringBuffer.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs index 0b0874a9fc..cbf7d618b2 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 -> |