diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs index afbed1c..4721449 100644 --- a/src/Propellor/Message.hs +++ b/src/Propellor/Message.hs @@ -59,6 +59,7 @@ colorLine intensity color msg = do errorMessage :: String -> IO a errorMessage s = do liftIO $ colorLine Vivid Red $ "** error: " ++ s + hFlush stdout error "Cannot continue!" -- | Causes a debug message to be displayed when PROPELLOR_DEBUG=1