diff options
Diffstat (limited to 'compiler/deSugar/DsMonad.hs')
| -rw-r--r-- | compiler/deSugar/DsMonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsMonad.hs b/compiler/deSugar/DsMonad.hs index 921276e4d8..e93b2c30d6 100644 --- a/compiler/deSugar/DsMonad.hs +++ b/compiler/deSugar/DsMonad.hs @@ -82,7 +82,7 @@ import ErrUtils import FastString import Var (EvVar) import UniqFM ( lookupWithDefaultUFM ) -import Literal ( mkMachString ) +import Literal ( mkLitString ) import CostCentreState import Data.IORef @@ -609,5 +609,5 @@ pprRuntimeTrace str doc expr = do dflags <- getDynFlags let message :: CoreExpr message = App (Var unpackCStringId) $ - Lit $ mkMachString $ showSDoc dflags (hang (text str) 4 doc) + Lit $ mkLitString $ showSDoc dflags (hang (text str) 4 doc) return $ mkApps (Var traceId) [Type (exprType expr), message, expr] |