diff options
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Binary.hs | 2 | ||||
| -rw-r--r-- | compiler/utils/FastString.lhs | 7 |
2 files changed, 3 insertions, 6 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 77f29a021f..e90addda26 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -720,7 +720,7 @@ putFS bh fs = putBS bh $ fastStringToFastBytes fs getFS :: BinHandle -> IO FastString getFS bh = do bs <- getBS bh - mkFastStringFastBytes bs + mkFastStringByteString bs putBS :: BinHandle -> ByteString -> IO () putBS bh bs = 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) |