Fix tests after #59
authorRyan Scott <ryan.gl.scott@gmail.com>
Tue, 17 Apr 2018 16:17:25 +0000 (12:17 -0400)
committerRyan Scott <ryan.gl.scott@gmail.com>
Tue, 17 Apr 2018 16:17:25 +0000 (12:17 -0400)
tests/fileStatus.hs
tests/fileStatusByteString.hs

index 262d396..7311421 100644 (file)
@@ -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') $
index ec492b3..0125363 100644 (file)
@@ -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') $