diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs index 7e38654..09a9253 100644 --- a/src/Propellor/Message.hs +++ b/src/Propellor/Message.hs @@ -60,7 +60,6 @@ actionMessage' mhn desc a = do liftIO $ do whenConsole h $ setTitle "propellor: running" - putStr propellorSigel showhn h mhn putStr $ desc ++ " ... " let (msg, intensity, color) = getActionResult r @@ -80,12 +79,12 @@ actionMessage' mhn desc a = do warningMessage :: MonadIO m => String -> m () warningMessage s = liftIO $ do h <- mkMessageHandle - colorLine h Vivid Magenta $ propellorSigel ++ "** warning: " ++ s + colorLine h Vivid Magenta $ "** warning: " ++ s errorMessage :: MonadIO m => String -> m a errorMessage s = liftIO $ do h <- mkMessageHandle - colorLine h Vivid Red $ propellorSigel ++ "** error: " ++ s + colorLine h Vivid Red $ "** error: " ++ s error "Cannot continue!" colorLine :: MessageHandle -> ColorIntensity -> Color -> String -> IO () @@ -114,6 +113,3 @@ checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG" updateGlobalLogger rootLoggerName $ setLevel DEBUG . setHandlers [f] go _ = noop - -propellorSigel :: String -propellorSigel = "* "