diff options
Diffstat (limited to 'Propellor/Message.hs')
| -rw-r--r-- | Propellor/Message.hs | 5 |
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 |