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: ++ show
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
hPutStrLn