From e563b8cdf617a9545919472f2f37bef6050e4e88 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 20:23:23 -0400 Subject: propellor spin --- Property.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'Property.hs') diff --git a/Property.hs b/Property.hs index e83c75de..9361de02 100644 --- a/Property.hs +++ b/Property.hs @@ -116,3 +116,10 @@ ensureProperties' ps = ensure ps NoChange putStrLn "done" setSGR [] ensure ls (combineResult r rs) + +warningMessage :: String -> IO () +warningMessage s = do + setSGR [SetColor Foreground Vivid Red] + putStrLn $ "** warning: " ++ s + setSGR [] + hFlush stdout -- cgit v1.3-2-g0d8e