diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-19 21:51:52 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-19 21:51:52 -0400 |
| commit | b7d78e679ab94a93732f48f4446c1b55bf3dae32 (patch) | |
| tree | fcc0b6f325b87cfd32b8b31a30ea346e83fbf93e | |
| parent | 7c11d6801865a75af98dff0209b09a642d813411 (diff) | |
sigel didn't work out
Unicode output failed in docker, due to no locales, and would be generally
shakey from haskell in all the environments propellor needs to run in.
| -rw-r--r-- | src/Propellor/Message.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs index 7e386541..09a92538 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 = "* " |