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

can't rely on TERM; use hIsTerminalDevice 

This calls an ioctl, I don't think it's very expensive.
This commit is contained in:
Joey Hess 2014-11-18 00:28:46 -04:00
parent d609e47fca
commit e6ff8bfc47
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Propellor/Message.hs
View File

@ -6,7 +6,6 @@ import System.Console.ANSI
import System.IO import System.IO
import System.Log.Logger import System.Log.Logger
import "mtl" Control.Monad.Reader import "mtl" Control.Monad.Reader
import Data.Maybe
import Control.Applicative import Control.Applicative
import Propellor.Types import Propellor.Types
@ -18,7 +17,7 @@ data MessageHandle
| TextMessageHandle | TextMessageHandle
mkMessageHandle :: IO MessageHandle mkMessageHandle :: IO MessageHandle
mkMessageHandle = ifM (isJust <$> getEnv "TERM") mkMessageHandle = ifM (hIsTerminalDevice stdout)
( return ConsoleMessageHandle ( return ConsoleMessageHandle
, return TextMessageHandle , return TextMessageHandle
) )