diff options
| author |  Marios Titas <redneb@gmx.com> | 2012-06-13 02:52:03 -0400 |
|---|---|---|
| committer |  Paolo Capriotti <p.capriotti@gmail.com> | 2012-07-17 16:42:13 +0100 |
| commit | 9acb33c819356a49068ec041c38e438d335e9781 (patch) | |
| tree | 470f4104a42dd64f2763aed6d34cea1d5611136c /tests | |
| parent | ba7961f118f42ba9db7e5fba017270a257852ff3 (diff) | |
Extract high resolution timestamps from FileStatus
Signed-off-by: Paolo Capriotti <p.capriotti@gmail.com>
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 |