From e02f802ac848fe9395d9a7019b4041eca814b0c9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Apr 2014 11:59:48 -0400 Subject: add PROPELLOR_DEBUG --- Propellor/Message.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'Propellor/Message.hs') diff --git a/Propellor/Message.hs b/Propellor/Message.hs index 90163649..c15661a7 100644 --- a/Propellor/Message.hs +++ b/Propellor/Message.hs @@ -2,6 +2,7 @@ module Propellor.Message where import System.Console.ANSI import System.IO +import System.Log.Logger import Propellor.Types @@ -35,3 +36,7 @@ errorMessage :: String -> IO a errorMessage s = do warningMessage s error "Propellor failed!" + +-- | Causes a debug message to be displayed when PROPELLOR_DEBUG=1 +debug :: [String] -> IO () +debug = debugM "propellor" . unwords -- cgit v1.3-2-g0d8e