diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/fileStatus.hs | 5 | ||||
-rw-r--r-- | tests/fileStatusByteString.hs | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/tests/fileStatus.hs b/tests/fileStatus.hs index e1d1661..262d396 100644 --- a/tests/fileStatus.hs +++ b/tests/fileStatus.hs @@ -83,7 +83,7 @@ getStatus f = do return (fs, ls) --- Yay for 17-element tuples! +-- Yay for 20-element tuples! statusElements fs = (,) (deviceID fs ,fileMode fs @@ -93,8 +93,11 @@ statusElements fs = (,) ,specialDeviceID fs ,fileSize fs ,accessTime fs + ,accessTimeHiRes fs ,modificationTime fs + ,modificationTimeHiRes fs ,statusChangeTime fs + ,statusChangeTimeHiRes fs ) (isBlockDevice fs ,isCharacterDevice fs diff --git a/tests/fileStatusByteString.hs b/tests/fileStatusByteString.hs index 35d52d8..ec492b3 100644 --- a/tests/fileStatusByteString.hs +++ b/tests/fileStatusByteString.hs @@ -82,7 +82,7 @@ getStatus f = do return (fs, ls) --- Yay for 17-element tuples! +-- Yay for 20-element tuples! statusElements fs = (,) (deviceID fs ,fileMode fs @@ -92,8 +92,11 @@ statusElements fs = (,) ,specialDeviceID fs ,fileSize fs ,accessTime fs + ,accessTimeHiRes fs ,modificationTime fs + ,modificationTimeHiRes fs ,statusChangeTime fs + ,statusChangeTimeHiRes fs ) (isBlockDevice fs ,isCharacterDevice fs |