[commit: ghc] wip/nfs-locking: Program: Use renderBox (cbd6aef)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/cbd6aef9b8d6697da710d119deb05277822c5e31/ghc

>---------------------------------------------------------------

commit cbd6aef9b8d6697da710d119deb05277822c5e31
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Dec 20 21:43:28 2015 +0100

    Program: Use renderBox


>---------------------------------------------------------------

cbd6aef9b8d6697da710d119deb05277822c5e31
 src/Rules/Program.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/Rules/Program.hs b/src/Rules/Program.hs
index 8e3ec77..2ff5ef0 100644
--- a/src/Rules/Program.hs
+++ b/src/Rules/Program.hs
@@ -47,8 +47,9 @@ buildProgram _ target @ (PartialTarget stage pkg) = do
         need $ objs ++ libs
         build $ fullTargetWithWay target (Ghc stage) vanilla objs [bin]
         synopsis <- interpretPartial target $ getPkgData Synopsis
-        putSuccess $ "/--------\n| Successfully built program '"
-            ++ pkgName pkg ++ "' (stage " ++ show stage ++ ")."
-        putSuccess $ "| Executable: " ++ bin
-        putSuccess $ "| Package synopsis: "
-            ++ dropWhileEnd isPunctuation synopsis ++ "." ++ "\n\\--------"
+        putSuccess $ renderBox
+            [ "Successfully built program '"
+              ++ pkgName pkg ++ "' (stage " ++ show stage ++ ")."
+            , "Executable: " ++ bin
+            , "Package synopsis: " ++ dropWhileEnd isPunctuation synopsis ++ "."
+            ]