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

propellor spin

This commit is contained in:
Joey Hess 2014-11-19 21:50:49 -04:00
parent d130e7e628
commit 7c11d68018
Failed to extract signature
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Propellor/Message.hs
View File

@ -15,7 +15,6 @@ import Control.Applicative
import Propellor.Types import Propellor.Types
import Utility.Monad import Utility.Monad
import Utility.Env import Utility.Env
import Utility.FileSystemEncoding
data MessageHandle data MessageHandle
= ConsoleMessageHandle = ConsoleMessageHandle
@ -23,7 +22,6 @@ data MessageHandle
mkMessageHandle :: IO MessageHandle mkMessageHandle :: IO MessageHandle
mkMessageHandle = do mkMessageHandle = do
fileEncoding stdout
ifM (hIsTerminalDevice stdout <||> (isJust <$> getEnv "PROPELLOR_CONSOLE")) ifM (hIsTerminalDevice stdout <||> (isJust <$> getEnv "PROPELLOR_CONSOLE"))
( return ConsoleMessageHandle ( return ConsoleMessageHandle
, return TextMessageHandle , return TextMessageHandle
@ -117,6 +115,5 @@ checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG"
setLevel DEBUG . setHandlers [f] setLevel DEBUG . setHandlers [f]
go _ = noop go _ = noop
-- Unicode propellor.
propellorSigel :: String propellorSigel :: String
propellorSigel = "ꕤ " propellorSigel = "* "