diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-12-14 00:42:54 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-12-14 00:42:54 +0000 |
| commit | 7085b8419033f74a985b824b63d85aae65b55882 (patch) | |
| tree | 85a8e86c95aa8bc9b1dc06404f7eed47948150dc /compiler/codeGen/StgCmmUtils.hs | |
| parent | c79f733460c17d66853c184ccd1782d0be21b4dc (diff) | |
| download | haskell-7085b8419033f74a985b824b63d85aae65b55882.tar.gz | |
Inline some FastBytes/ByteString wrappers
Working towards removing FastBytes
Diffstat (limited to 'compiler/codeGen/StgCmmUtils.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmUtils.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs index 138e00ee52..cc55ae2fbc 100644 --- a/compiler/codeGen/StgCmmUtils.hs +++ b/compiler/codeGen/StgCmmUtils.hs @@ -65,6 +65,7 @@ import DynFlags import FastString import Outputable +import qualified Data.ByteString as BS import Data.Char import Data.List import Data.Ord @@ -79,7 +80,7 @@ import Data.Maybe ------------------------------------------------------------------------- cgLit :: Literal -> FCode CmmLit -cgLit (MachStr s) = newByteStringCLit (bytesFB s) +cgLit (MachStr s) = newByteStringCLit (BS.unpack s) -- not unpackFS; we want the UTF-8 byte stream. cgLit other_lit = do dflags <- getDynFlags return (mkSimpleLit dflags other_lit) |