[project @ 2005-05-09 09:12:02 by simonmar]

make this test independent of the FD value (fix test with -prof)

testsuite/tests/ghc-regress/lib/IO/hDuplicateTo001.hs

@@ -9,7 +9,7 @@ main = do
    
    fdh <- getfd h
    fdstdout <- getfd stdout
-   hPutStrLn stderr ("h: " ++ show fdh ++ "\nstdout: " ++ show fdstdout)
+   hPutStrLn stderr ("h: " ++ show (fdh /= fdstdout) ++ "\nstdout: " ++ show fdstdout)
 
    hClose h
    putStrLn "bla"

testsuite/tests/ghc-regress/lib/IO/hDuplicateTo001.stderr

-h: 3
+h: True
 stdout: 1