- high <- (#peek FILETIME,dwHighDateTime) ft :: IO CLong
- low <- (#peek FILETIME,dwLowDateTime) ft :: IO CLong
- -- Convert 100-ns units to picosecs (10^-12)
- -- => multiply by 10^5.
+ high <- (#peek FILETIME,dwHighDateTime) ft :: IO Word32
+ low <- (#peek FILETIME,dwLowDateTime) ft :: IO Word32
+ -- Convert 100-ns units to picosecs (10^-12)
+ -- => multiply by 10^5.