X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDriverPipeline.hs;h=7822d6713e493b68cbe992c6740f5c48bc257ecb;hb=f5d4c3239e57b0396672ffc302961f84398d730e;hp=50b45017c41b686697df53197874969fe0ba2cc7;hpb=4a4554a5c38a30532ad77235ed8f7a0b0d23eb0f;p=ghc-hetmet.git

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 50b4501..7822d67 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -45,6 +45,7 @@ import Maybes		( expectJust )
 import ParserCoreUtils	( getCoreModuleName )
 import SrcLoc		( unLoc )
 import SrcLoc		( Located(..) )
+import FastString
 
 import Control.Exception as Exception
 import Data.IORef	( readIORef, writeIORef, IORef )
@@ -304,11 +305,11 @@ link LinkBinary dflags batch_attempt_linking hpt
                                Right t -> any (t <) other_times
 
         if not (dopt Opt_ForceRecomp dflags) && not linking_needed
-           then do debugTraceMsg dflags 2 (text exe_file <+> ptext SLIT("is up to date, linking not required."))
+           then do debugTraceMsg dflags 2 (text exe_file <+> ptext (sLit "is up to date, linking not required."))
                    return Succeeded
            else do
 
-        debugTraceMsg dflags 1 (ptext SLIT("Linking") <+> text exe_file
+        debugTraceMsg dflags 1 (ptext (sLit "Linking") <+> text exe_file
                                  <+> text "...")
 
         -- Don't showPass in Batch mode; doLink will do that for us.