diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Message.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs index e964c664..576e58ee 100644 --- a/src/Propellor/Message.hs +++ b/src/Propellor/Message.hs @@ -41,7 +41,7 @@ data MessageHandle = MessageHandle globalMessageHandle :: MVar MessageHandle globalMessageHandle = unsafePerformIO $ newMVar =<< MessageHandle - <$> hIsTerminalDevice stdout + <$> catchDefaultIO False (hIsTerminalDevice stdout) -- | Gets the global MessageHandle. getMessageHandle :: IO MessageHandle |