Commit 773f03b3 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Simplify some code

We were pointlessly going from String to SDoc and back again
parent 02aef112
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment