diff options
Diffstat (limited to 'compiler/utils/FastString.lhs')
| -rw-r--r-- | compiler/utils/FastString.lhs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs index 228b053446..67327d526d 100644 --- a/compiler/utils/FastString.lhs +++ b/compiler/utils/FastString.lhs @@ -28,8 +28,8 @@ module FastString ( -- * FastBytes FastBytes, - mkFastStringFastBytes, fastStringToFastBytes, + mkFastStringByteString, fastZStringToByteString, unsafeMkFastBytesString, hashByteString, @@ -131,9 +131,6 @@ import GHC.Base ( unpackCString# ) type FastBytes = ByteString -mkFastStringFastBytes :: FastBytes -> IO FastString -mkFastStringFastBytes bs = mkFastStringByteString bs - fastStringToFastBytes :: FastString -> FastBytes fastStringToFastBytes f = fs_fb f @@ -449,7 +446,7 @@ zEncodeFS fs@(FastString _ _ _ ref) = appendFS :: FastString -> FastString -> FastString appendFS fs1 fs2 = inlinePerformIO - $ mkFastStringFastBytes + $ mkFastStringByteString $ BS.append (fastStringToFastBytes fs1) (fastStringToFastBytes fs2) |