Commit c7a0c197 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

Library: Use renderBox

parent cbd6aef9
...@@ -46,11 +46,12 @@ buildPackageLibrary _ target @ (PartialTarget stage pkg) = do ...@@ -46,11 +46,12 @@ buildPackageLibrary _ target @ (PartialTarget stage pkg) = do
else build $ fullTarget target Ar objs [a] else build $ fullTarget target Ar objs [a]
synopsis <- interpretPartial target $ getPkgData Synopsis synopsis <- interpretPartial target $ getPkgData Synopsis
putSuccess $ "/--------\n| Successfully built package library '" putSuccess $ renderBox
++ pkgName pkg [ "Successfully built package library '"
++ "' (stage " ++ show stage ++ ", way "++ show way ++ ")." ++ pkgName pkg
putSuccess $ "| Package synopsis: " ++ "' (stage " ++ show stage ++ ", way "++ show way ++ ")."
++ dropWhileEnd isPunctuation synopsis ++ "." ++ "\n\\--------" , "Package synopsis: " ++ dropWhileEnd isPunctuation synopsis ++ "."
]
-- TODO: this looks fragile as haskell objects can match this rule if their -- 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. -- names start with "HS" and they are on top of the module hierarchy.
......
Markdown is supported
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