diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-07-04 20:19:41 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-07-04 20:19:41 -0400 |
| commit | 6a317ee95b04e3fdb4b4be6f710221aeb20d4ee9 (patch) | |
| tree | c04e15bafc9cc7fa09c769b33f75c18f531d9247 /compiler/utils/FastString.hs | |
| parent | 33ff4c10a824c08657a94bd9841f1ef57eeef419 (diff) | |
| download | haskell-wip/T12357-unpack.tar.gz | |
Try fusing away unpackFSwip/T12357-unpack
Diffstat (limited to 'compiler/utils/FastString.hs')
| -rw-r--r-- | compiler/utils/FastString.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/utils/FastString.hs b/compiler/utils/FastString.hs index 21cbfebc3a..32330f2e18 100644 --- a/compiler/utils/FastString.hs +++ b/compiler/utils/FastString.hs @@ -482,7 +482,8 @@ nullFS f = BS.null (fs_bs f) -- | Unpacks and decodes the FastString unpackFS :: FastString -> String -unpackFS (FastString _ _ bs _) = inlinePerformIO $ utf8DecodeStringLazy bs +unpackFS (FastString _ _ bs _) = utf8DecodeStringLazy bs +{-# INLINEABLE unpackFS #-} -- | Gives the UTF-8 encoded bytes corresponding to a 'FastString' bytesFS :: FastString -> [Word8] |