{-# LANGUAGE OverloadedStrings #-}moduleUtil(printErr)whereimportControl.Monad(when)importqualifiedSystem.Posix.TerminalasUniximportqualifiedSystem.Posix.IOasUnixprintErr::String->IO()printErrmsg=doisTTY<-Unix.queryTerminalUnix.stdOutputwhenisTTY$putStr"\x1b[91m"putStrmsgwhenisTTY$putStr"\x1b[39m"putStrLn""