{-# LANGUAGE OverloadedStrings #-}

module Util
( printErr
) where

import           Control.Monad (when)
import qualified System.Posix.Terminal as Unix
import qualified System.Posix.IO as Unix

printErr :: String -> IO ()
printErr msg = do
  isTTY <- Unix.queryTerminal Unix.stdOutput
  when isTTY $ putStr "\x1b[91m"
  putStr msg
  when isTTY $ putStr "\x1b[39m"
  putStrLn ""