propellor spin

This commit is contained in:
Joey Hess 2014-07-07 01:48:13 -04:00
parent 54cbeaf9fa
commit 8298cb7875
Failed to extract signature
1 changed files with 1 additions and 0 deletions

View File

@ -59,6 +59,7 @@ colorLine intensity color msg = do
errorMessage :: String -> IO a errorMessage :: String -> IO a
errorMessage s = do errorMessage s = do
liftIO $ colorLine Vivid Red $ "** error: " ++ s liftIO $ colorLine Vivid Red $ "** error: " ++ s
hFlush stdout
error "Cannot continue!" error "Cannot continue!"
-- | Causes a debug message to be displayed when PROPELLOR_DEBUG=1 -- | Causes a debug message to be displayed when PROPELLOR_DEBUG=1