On 06 April 2005 16:16, Volker Wysk wrote:
> The following program demonstrates the bug:
>
> import GHC.Handle
> import GHC.IOBase
> import GHC.Conc
> import IO
>
> main = do
>h <- openFile "/tmp/out" WriteMode
>hDuplicateTo h stdout
>
>fdh <- getfd h
>fdstdout <- getfd stdout
>
Hello.
The following program demonstrates the bug:
import GHC.Handle
import GHC.IOBase
import GHC.Conc
import IO
main = do
h <- openFile "/tmp/out" WriteMode
hDuplicateTo h stdout
fdh <- getfd h
fdstdout <- getfd stdout
hPutStrLn stderr ("h: " ++ show fdh ++ "\nstdout: " ++ sh