diff options
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index acd2aee5f4..ff63b555ac 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -50,7 +50,6 @@ import VarSet ( isEmptyDVarSet ) import OrdList import MkGraph -import qualified Data.ByteString as BS import Data.IORef import Control.Monad (when,void) import Util @@ -141,7 +140,7 @@ cgTopBinding dflags (StgTopLifted (StgRec pairs)) cgTopBinding dflags (StgTopStringLit id str) = do { id' <- maybeExternaliseId dflags id ; let label = mkBytesLabel (idName id') - ; let (lit, decl) = mkByteStringCLit label (BS.unpack str) + ; let (lit, decl) = mkByteStringCLit label str ; emitDecl decl ; addBindC (litIdInfo dflags id' mkLFStringLit lit) } |