diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 15:29:09 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 15:29:09 +0000 |
| commit | 0111a6850470ed851a0ddc1c66644a45c5fa54d9 (patch) | |
| tree | 27cdad2513455ada532b91e66e7370709734b241 | |
| parent | 52f600c8ea0bf0d9b4c01570e80d70bfa65c43ba (diff) | |
| download | haskell-0111a6850470ed851a0ddc1c66644a45c5fa54d9.tar.gz | |
(F)SLIT -> (f)sLit in SysTools
| -rw-r--r-- | compiler/main/SysTools.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 97a5ea7bf6..e5f1a3156f 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} |