Complete Advanced Render Box
authorMoritz Angermann <moritz.angermann@gmail.com>
Thu, 14 Jan 2016 06:16:41 +0000 (14:16 +0800)
committerMoritz Angermann <moritz.angermann@gmail.com>
Thu, 14 Jan 2016 06:16:41 +0000 (14:16 +0800)
Should fix #134 for good.

src/Base.hs

index a46031c..b9c7f72 100644 (file)
@@ -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@.
+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