diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-18 11:53:55 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-03-03 19:11:08 +0000 |
commit | f121ffe4be7dd156701d856fbc9afeaf50e7038e (patch) | |
tree | 1c2f89f47a79d339cd8677c3f4a427054a9ac30a /compiler/GHC/Data | |
parent | 91d09039a8d6665097c1aa12f6fb3e6e45d4acca (diff) | |
download | haskell-f121ffe4be7dd156701d856fbc9afeaf50e7038e.tar.gz |
Don't use FastString to convert string to UTF8
Diffstat (limited to 'compiler/GHC/Data')
-rw-r--r-- | compiler/GHC/Data/StringBuffer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Data/StringBuffer.hs b/compiler/GHC/Data/StringBuffer.hs index 891598d683..1f01451971 100644 --- a/compiler/GHC/Data/StringBuffer.hs +++ b/compiler/GHC/Data/StringBuffer.hs @@ -191,7 +191,7 @@ stringToStringBuffer str = let size = utf8EncodedLength str buf <- mallocForeignPtrArray (size+3) unsafeWithForeignPtr buf $ \ptr -> do - utf8EncodeString ptr str + utf8EncodeStringPtr ptr str pokeArray (ptr `plusPtr` size :: Ptr Word8) [0,0,0] -- sentinels for UTF-8 decoding return (StringBuffer buf size 0) |