diff options
| -rw-r--r-- | libraries/base/GHC/IO/Windows/Handle.hsc | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libraries/base/GHC/IO/Windows/Handle.hsc b/libraries/base/GHC/IO/Windows/Handle.hsc index 4d7e3e393f..7b39691181 100644 --- a/libraries/base/GHC/IO/Windows/Handle.hsc +++ b/libraries/base/GHC/IO/Windows/Handle.hsc @@ -951,9 +951,13 @@ foreign import ccall unsafe "lockFile" foreign import ccall unsafe "unlockFile" unlockFile :: CUIntPtr -> IO CInt +-- | Returns -1 on error. Otherwise writes two values representing +-- the file into the given ptrs. foreign import ccall unsafe "get_unique_file_info_hwnd" c_getUniqueFileInfo :: HANDLE -> Ptr Word64 -> Ptr Word64 -> IO () +-- | getUniqueFileInfo assumes the C call to getUniqueFileInfo +-- succeeds. getUniqueFileInfo :: RawHandle a => a -> IO (Word64, Word64) getUniqueFileInfo handle = do with 0 $ \devptr -> do |