summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-11-19 21:51:52 -0400
committerJoey Hess2014-11-19 21:51:52 -0400
commitb7d78e679ab94a93732f48f4446c1b55bf3dae32 (patch)
treefcc0b6f325b87cfd32b8b31a30ea346e83fbf93e
parent7c11d6801865a75af98dff0209b09a642d813411 (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.hs8
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 = "* "