From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 15:29:09 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in SysTools
X-Git-Tag: 2008-05-28~253
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0111a6850470ed851a0ddc1c66644a45c5fa54d9

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

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index 97a5ea7..e5f1a31 100644
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -619,7 +619,7 @@ getTempDir dflags@(DynFlags{tmpDir=tmp_dir})
                          in do createDirectory dirname
                                let mapping' = addToFM mapping tmp_dir dirname
                                writeIORef v_DirsToClean mapping'
-                               debugTraceMsg dflags 2 (ptext SLIT("Created temporary directory:") <+> text dirname)
+                               debugTraceMsg dflags 2 (ptext (sLit "Created temporary directory:") <+> text dirname)
                                return dirname
                             `IO.catch` \e ->
                                     if isAlreadyExistsError e
@@ -663,8 +663,8 @@ removeWith :: DynFlags -> (FilePath -> IO ()) -> FilePath -> IO ()
 removeWith dflags remover f = remover f `IO.catch`
   (\e ->
    let msg = if isDoesNotExistError e
-             then ptext SLIT("Warning: deleting non-existent") <+> text f
-             else ptext SLIT("Warning: exception raised when deleting")
+             then ptext (sLit "Warning: deleting non-existent") <+> text f
+             else ptext (sLit "Warning: exception raised when deleting")
                                             <+> text f <> colon
                $$ text (show e)
    in debugTraceMsg dflags 2 msg
@@ -858,7 +858,7 @@ traceCmd dflags phase_name cmd_line action
 	}}
   where
     handle_exn verb exn = do { debugTraceMsg dflags 2 (char '\n')
-			     ; debugTraceMsg dflags 2 (ptext SLIT("Failed:") <+> text cmd_line <+> text (show exn))
+			     ; debugTraceMsg dflags 2 (ptext (sLit "Failed:") <+> text cmd_line <+> text (show exn))
 	          	     ; throwDyn (PhaseFailed phase_name (ExitFailure 1)) }
 \end{code}