From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 16:34:06 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in DriverPipeline
X-Git-Tag: 2008-05-28~208
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3e7ab539c9fd5cbc925254d848d8f5e001b68253

(F)SLIT -> (f)sLit in DriverPipeline
---

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 59535f0..7822d67 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -305,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.