summaryrefslogtreecommitdiff
path: root/src/Propellor/Message.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-19 21:51:52 -0400
committerJoey Hess2014-11-19 21:51:52 -0400
commitb7d78e679ab94a93732f48f4446c1b55bf3dae32 (patch)
treefcc0b6f325b87cfd32b8b31a30ea346e83fbf93e /src/Propellor/Message.hs
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.
Diffstat (limited to 'src/Propellor/Message.hs')
-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 = "* "