From c9ec0b00012e5eb447ff021091f86efe31be8abf Mon Sep 17 00:00:00 2001
From: Ryan Scott <ryan.gl.scott@gmail.com>
Date: Tue, 17 Apr 2018 12:17:25 -0400
Subject: [PATCH] Fix tests after #59

---
 tests/fileStatus.hs           | 2 +-
 tests/fileStatusByteString.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/fileStatus.hs b/tests/fileStatus.hs
index 262d396..7311421 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 ec492b3..0125363 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') $
-- 
GitLab