summaryrefslogtreecommitdiff
path: root/Property.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Property.hs')
-rw-r--r--Property.hs7
1 files changed, 7 insertions, 0 deletions
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