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
else build $ fullTarget target Ar objs [a]
synopsis <- interpretPartial target $ getPkgData Synopsis
putSuccess $ "/--------\n| Successfully built package library '"
putSuccess $ renderBox
[ "Successfully built package library '"
++ pkgName pkg
++ "' (stage " ++ show stage ++ ", way "++ show way ++ ")."
putSuccess $ "| Package synopsis: "
++ dropWhileEnd isPunctuation synopsis ++ "." ++ "\n\\--------"
, "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.
......
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