Skip to content
Snippets Groups Projects
Commit c9ec0b00 authored by Ryan Scott's avatar Ryan Scott
Browse files

Fix tests after #59

parent e6c0efe2
No related branches found
No related tags found
No related merge requests found
...@@ -71,7 +71,7 @@ getStatus f = do ...@@ -71,7 +71,7 @@ getStatus f = do
fs <- getFileStatus f fs <- getFileStatus f
ls <- getSymbolicLinkStatus f ls <- getSymbolicLinkStatus f
fd <- openFd f ReadOnly Nothing defaultFileFlags fd <- openFd f ReadOnly defaultFileFlags
fs' <- getFdStatus fd fs' <- getFdStatus fd
when (statusElements fs /= statusElements fs') $ when (statusElements fs /= statusElements fs') $
......
...@@ -70,7 +70,7 @@ getStatus f = do ...@@ -70,7 +70,7 @@ getStatus f = do
fs <- getFileStatus f fs <- getFileStatus f
ls <- getSymbolicLinkStatus f ls <- getSymbolicLinkStatus f
fd <- openFd f ReadOnly Nothing defaultFileFlags fd <- openFd f ReadOnly defaultFileFlags
fs' <- getFdStatus fd fs' <- getFdStatus fd
when (statusElements fs /= statusElements fs') $ when (statusElements fs /= statusElements fs') $
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment