/* ----------------------------------------------------------------------------
   (c) The University of Glasgow 2006
   
   Useful Win32 bits
   ------------------------------------------------------------------------- */

#if defined(_WIN32)

#include "HsBase.h"

int get_unique_file_info(int fd, HsWord64 *dev, HsWord64 *ino)
{
    HANDLE h = (HANDLE)_get_osfhandle(fd);
    BY_HANDLE_FILE_INFORMATION info;

    if (GetFileInformationByHandle(h, &info))
    {
        *dev = info.dwVolumeSerialNumber;
        *ino = info.nFileIndexLow
             | ((HsWord64)info.nFileIndexHigh << 32);

        return 0;
    }

    return -1;
}

#endif

/* ----------------------------------------------------------------------------
   (c) The University of Glasgow 2006
   
   Useful Win32 bits
   ------------------------------------------------------------------------- */

#if defined(_WIN32)

#include "HsBase.h"

#endif

Remove our customed `get_unique_file_info` on Windows platform.
Remove our customed `get_unique_file_info` on Windows platform.

The function `get_unique_file_info` was added into base 5 years ago,
https://github.com/ghc/ghc/blame/ba597c1dd1daf9643b72dc7aeace8d6b3fce84eb/libraries/base/cbits/Win32Utils.c#L128,
and first appeared in base-4.6.0.

Signed-off-by: Tao He <9e9d50aa3fb60f0eb719baf23d12c62f0c16e40a@gmail.com>
