diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-12-14 18:14:51 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-12-14 18:14:51 +0000 |
| commit | ca56668af97f534b3cff8717fc35d795a0bcb47d (patch) | |
| tree | 5f0d0b7190bd83f60d15e7dc1815ed10fad418aa /compiler/utils/FastString.lhs | |
| parent | a243fa7985b482434bd5bcf5573210f3eb87f57c (diff) | |
| download | haskell-ca56668af97f534b3cff8717fc35d795a0bcb47d.tar.gz | |
Remove the trivial mkFastStringFastBytes wrapper
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) |