Test 4808: Follow change in GHC.IO.FD.openFile definition
authorIan Lynagh <igloo@earth.li>
Tue, 29 Mar 2011 17:53:56 +0000 (17:53 +0000)
committerIan Lynagh <igloo@earth.li>
Tue, 29 Mar 2011 17:53:56 +0000 (17:53 +0000)
testsuite/tests/ghc-regress/lib/IO/4808.hs

index 174b1c0..97ca344 100644 (file)
@@ -3,10 +3,10 @@ import GHC.IO.Handle
 import GHC.IO.FD as FD
 
 main = do
-  (fd, _) <- FD.openFile "4808.hs" ReadWriteMode
+  (fd, _) <- FD.openFile "4808.hs" ReadWriteMode False
   hdl <- mkDuplexHandle fd "4808.hs" Nothing nativeNewlineMode
   hClose hdl
-  (fd2, _) <- FD.openFile "4808.hs" ReadWriteMode
+  (fd2, _) <- FD.openFile "4808.hs" ReadWriteMode False
   print (fdFD fd == fdFD fd2) -- should be True
   hGetLine hdl >>= print -- should fail with an exception