module Serokell.Util.ANSI
( Color(..)
, colorize
, withColoredMessages
) where
import System.Console.ANSI (Color (..), ColorIntensity (Vivid),
ConsoleLayer (Foreground), SGR (Reset, SetColor),
setSGRCode)
import Universum
colorize :: Color -> Text -> Text
colorize color msg =
toText (setSGRCode [SetColor Foreground Vivid color]) <>
msg <>
toText (setSGRCode [Reset])
withColoredMessages :: MonadIO m => Color -> Text -> m a -> m a
withColoredMessages color activity action = do
putStrLn (colorize color ("Entered " <> activity))
res <- action
putStrLn (colorize color ("Finished " <> activity))
return res