diff --git a/tests/fileStatus.hs b/tests/fileStatus.hs
index 262d396be5aab8e6ca21ef424145ee2827e7e17e..7311421700d33730186c2ed5104dc40644b04818 100644
--- a/tests/fileStatus.hs
+++ b/tests/fileStatus.hs
@@ -71,7 +71,7 @@ getStatus f = do
   fs  <- getFileStatus f
   ls  <- getSymbolicLinkStatus f
 
-  fd  <- openFd f ReadOnly Nothing defaultFileFlags
+  fd  <- openFd f ReadOnly defaultFileFlags
   fs' <- getFdStatus fd
 
   when (statusElements fs /= statusElements fs') $
diff --git a/tests/fileStatusByteString.hs b/tests/fileStatusByteString.hs
index ec492b32eadeea2a852b0dfcbcf4d2337553dd45..0125363446453db034357e53d2c6a0dfc796cca6 100644
--- a/tests/fileStatusByteString.hs
+++ b/tests/fileStatusByteString.hs
@@ -70,7 +70,7 @@ getStatus f = do
   fs  <- getFileStatus f
   ls  <- getSymbolicLinkStatus f
 
-  fd  <- openFd f ReadOnly Nothing defaultFileFlags
+  fd  <- openFd f ReadOnly defaultFileFlags
   fs' <- getFdStatus fd
 
   when (statusElements fs /= statusElements fs') $