cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unicode ahoy

This commit is contained in:
Joey Hess 2014-11-19 21:20:19 -04:00
parent 205d192559
commit b136609cb5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Propellor/Message.hs
View File

@ -59,6 +59,7 @@ actionMessage' mhn desc a = do
liftIO $ do liftIO $ do
whenConsole h $ whenConsole h $
setTitle "propellor: running" setTitle "propellor: running"
putStr propellorSigel
showhn h mhn showhn h mhn
putStr $ desc ++ " ... " putStr $ desc ++ " ... "
let (msg, intensity, color) = getActionResult r let (msg, intensity, color) = getActionResult r
@ -78,12 +79,12 @@ actionMessage' mhn desc a = do
warningMessage :: MonadIO m => String -> m () warningMessage :: MonadIO m => String -> m ()
warningMessage s = liftIO $ do warningMessage s = liftIO $ do
h <- mkMessageHandle h <- mkMessageHandle
colorLine h Vivid Magenta $ "** warning: " ++ s colorLine h Vivid Magenta $ propellorSigel ++ "** warning: " ++ s
errorMessage :: MonadIO m => String -> m a errorMessage :: MonadIO m => String -> m a
errorMessage s = liftIO $ do errorMessage s = liftIO $ do
h <- mkMessageHandle h <- mkMessageHandle
colorLine h Vivid Red $ "** error: " ++ s colorLine h Vivid Red $ propellorSigel ++ "** error: " ++ s
error "Cannot continue!" error "Cannot continue!"
colorLine :: MessageHandle -> ColorIntensity -> Color -> String -> IO () colorLine :: MessageHandle -> ColorIntensity -> Color -> String -> IO ()
@ -112,3 +113,7 @@ checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG"
updateGlobalLogger rootLoggerName $ updateGlobalLogger rootLoggerName $
setLevel DEBUG . setHandlers [f] setLevel DEBUG . setHandlers [f]
go _ = noop go _ = noop
-- Unicode propellor.
propellorSigel :: String
propellorSigel = "ꕤ "