Unflushed output?

[Andy Gill]

The following program does not print Hello:

import System

main = die "Hello\n"

die :: String -> IO ()
die s = putStrLn s >> exitWith (ExitFailure 1)

Andy Gill