Error.hs

module Unused.CLI.Views.Error
    ( errorHeader
    ) where

import Unused.CLI.Util

errorHeader :: String -> IO ()
errorHeader s = do
    setSGR [SetColor Background Vivid Red]
    setSGR [SetColor Foreground Vivid White]
    setSGR [SetConsoleIntensity BoldIntensity]

    putStrLn $ "\n" ++ s ++ "\n"

    setSGR [Reset]