Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/773f03b37480990af3e25ff8f847b690a24d5f5e >--------------------------------------------------------------- commit 773f03b37480990af3e25ff8f847b690a24d5f5e Author: Ian Lynagh <[email protected]> Date: Thu Jun 14 19:41:57 2012 +0100 Simplify some code We were pointlessly going from String to SDoc and back again >--------------------------------------------------------------- compiler/main/DriverPipeline.hs | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index be06fbc..4770679 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -326,8 +326,7 @@ link' dflags batch_attempt_linking hpt return Succeeded else do - compilationProgressMsg dflags $ showSDoc dflags $ - (ptext (sLit "Linking") <+> text exe_file <+> text "...") + compilationProgressMsg dflags ("Linking " ++ exe_file ++ " ...") -- Don't showPass in Batch mode; doLink will do that for us. let link = case ghcLink dflags of _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
