propellor spin
This commit is contained in:
parent
54cbeaf9fa
commit
8298cb7875
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue