From b136609cb5adb48a994ec81df0b91d98e73c1be6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 19 Nov 2014 21:20:19 -0400 Subject: unicode ahoy --- src/Propellor/Message.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs index a1e510ab..a5d4d2ca 100644 --- a/src/Propellor/Message.hs +++ b/src/Propellor/Message.hs @@ -59,6 +59,7 @@ 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 @@ -78,12 +79,12 @@ actionMessage' mhn desc a = do warningMessage :: MonadIO m => String -> m () warningMessage s = liftIO $ do h <- mkMessageHandle - colorLine h Vivid Magenta $ "** warning: " ++ s + colorLine h Vivid Magenta $ propellorSigel ++ "** warning: " ++ s errorMessage :: MonadIO m => String -> m a errorMessage s = liftIO $ do h <- mkMessageHandle - colorLine h Vivid Red $ "** error: " ++ s + colorLine h Vivid Red $ propellorSigel ++ "** error: " ++ s error "Cannot continue!" colorLine :: MessageHandle -> ColorIntensity -> Color -> String -> IO () @@ -112,3 +113,7 @@ checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG" updateGlobalLogger rootLoggerName $ setLevel DEBUG . setHandlers [f] go _ = noop + +-- Unicode propellor. +propellorSigel :: String +propellorSigel = "ꕤ " -- cgit v1.2.3