[commit: ghc] wip/nfs-locking: Complete Advanced Render Box (231a5ce)

[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/231a5ce27baa03e0750e991b5d6af3b81d9cde29/ghc

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

commit 231a5ce27baa03e0750e991b5d6af3b81d9cde29
Author: Moritz Angermann <moritz.angermann at gmail.com>
Date:   Thu Jan 14 14:16:41 2016 +0800

    Complete Advanced Render Box
    
    Should fix #134 for good.


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

231a5ce27baa03e0750e991b5d6af3b81d9cde29
 src/Base.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Base.hs b/src/Base.hs
index a46031c..b9c7f72 100644
--- a/src/Base.hs
+++ b/src/Base.hs
@@ -115,11 +115,16 @@ a -/- b = unifyPath $ a </> b
 
 infixr 6 -/-
 
+-- | A wrapper around shakes @putNormal@ that substitutes
+-- any message for a fullstop if @buildInfo@ is @Dot at .
+putNormal' :: String -> Action ()
+putNormal' = if buildInfo == Dot then putNormal . const "." else putNormal
+
 -- | A more colourful version of Shake's putNormal
 putColoured :: Color -> String -> Action ()
 putColoured colour msg = do
     liftIO $ setSGR [SetColor Foreground Vivid colour]
-    putNormal msg
+    putNormal' msg
     liftIO $ setSGR []
     liftIO $ hFlush stdout