[commit: ghc] wip/nfs-locking: Library: Use renderBox (c7a0c19)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:26:41 UTC 2017


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

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

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

commit c7a0c197ec98a64089af06a9efd0a8f41bfddead
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Dec 20 21:46:19 2015 +0100

    Library: Use renderBox


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

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

diff --git a/src/Rules/Library.hs b/src/Rules/Library.hs
index 088ac8d..134e2be 100644
--- a/src/Rules/Library.hs
+++ b/src/Rules/Library.hs
@@ -46,11 +46,12 @@ buildPackageLibrary _ target @ (PartialTarget stage pkg) = do
         else build $ fullTarget target Ar objs [a]
 
         synopsis <- interpretPartial target $ getPkgData Synopsis
-        putSuccess $ "/--------\n| Successfully built package library '"
-            ++ pkgName pkg
-            ++ "' (stage " ++ show stage ++ ", way "++ show way ++ ")."
-        putSuccess $ "| Package synopsis: "
-            ++ dropWhileEnd isPunctuation synopsis ++ "." ++ "\n\\--------"
+        putSuccess $ renderBox
+            [ "Successfully built package library '"
+              ++ pkgName pkg
+              ++ "' (stage " ++ show stage ++ ", way "++ show way ++ ")."
+            , "Package synopsis: " ++ dropWhileEnd isPunctuation synopsis ++ "."
+            ]
 
     -- TODO: this looks fragile as haskell objects can match this rule if their
     -- names start with "HS" and they are on top of the module hierarchy.



More information about the ghc-commits mailing list