add PROPELLOR_DEBUG

1 files changed, 5 insertions, 0 deletions

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