[darcs-devel] unix-compat with support for hi res timestamps

[Ganesh Sittampalam]

This is the build output for your unix-compat (GHC 8.6.5)

[1 of 9] Compiling System.PosixCompat.Internal.Time (
src\System\PosixCompat\Internal\Time.hs,
C:\msys64\home\ganesh\darcs\screened\dist-newstyle\build\x86_64-windows\ghc-8.6.5\unix-compat-0.5.2\build\System\PosixCompat\Internal\Time.o
)

src\System\PosixCompat\Internal\Time.hs:23:1: warning: [-Wunused-imports]
    The import of `Data.Time.Clock' is redundant
      except perhaps to import instances from `Data.Time.Clock'
    To import instances alone, use: import Data.Time.Clock()
   |
23 | import Data.Time.Clock (UTCTime)
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

src\System\PosixCompat\Internal\Time.hs:24:1: warning: [-Wunused-imports]
    The import of `utcTimeToPOSIXSeconds'
    from module `Data.Time.Clock.POSIX' is redundant
   |
24 | import Data.Time.Clock.POSIX (POSIXTime, getPOSIXTime,
utcTimeToPOSIXSeconds)
   |
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 9] Compiling System.PosixCompat.Temp (
src\System\PosixCompat\Temp.hs,
C:\msys64\home\ganesh\darcs\screened\dist-newstyle\build\x86_64-windows\ghc-8.6.5\unix-compat-0.5.2\build\System\PosixCompat\Temp.o
)
[3 of 9] Compiling System.PosixCompat.Time (
src\System\PosixCompat\Time.hs,
C:\msys64\home\ganesh\darcs\screened\dist-newstyle\build\x86_64-windows\ghc-8.6.5\unix-compat-0.5.2\build\System\PosixCompat\Time.o
)
[4 of 9] Compiling System.PosixCompat.Types (
src\System\PosixCompat\Types.hs,
C:\msys64\home\ganesh\darcs\screened\dist-newstyle\build\x86_64-windows\ghc-8.6.5\unix-compat-0.5.2\build\System\PosixCompat\Types.o
)
[5 of 9] Compiling System.PosixCompat.Files (
C:\msys64\home\ganesh\darcs\screened\dist-newstyle\build\x86_64-windows\ghc-8.6.5\unix-compat-0.5.2\build\System\PosixCompat\Files.hs,
C:\msys64\home\ganesh\darcs\screened\dist-newstyle\build\x86_64-windows\ghc-8.6.5\unix-compat-0.5.2\build\System\PosixCompat\Files.o
)

src\System\PosixCompat\Files.hsc:333:35: error:
    * Couldn't match type `GHC.Word.Word64' with `COff'
      Expected type: FileOffset
        Actual type: System.Win32.Types.DDWORD
    * In the `fileSize' field of a record
      In the second argument of `($)', namely
        `FileStatus
           {deviceID = fromIntegral (bhfiVolumeSerialNumber info),
            fileID = fromIntegral (bhfiFileIndex info),
            fileMode = typ .|. perm,
            linkCount = fromIntegral (bhfiNumberOfLinks info), fileOwner
= 0,
            fileGroup = 0, specialDeviceID = 0, fileSize = bhfiSize info,
            accessTime = posixTimeToEpochTime atime,
            modificationTime = posixTimeToEpochTime mtime,
            statusChangeTime = posixTimeToEpochTime mtime,
            accessTimeHiRes = atime, modificationTimeHiRes = mtime,
            statusChangeTimeHiRes = ctime}'
      In a stmt of a 'do' block:
        return
          $ FileStatus
              {deviceID = fromIntegral (bhfiVolumeSerialNumber info),
               fileID = fromIntegral (bhfiFileIndex info),
               fileMode = typ .|. perm,
               linkCount = fromIntegral (bhfiNumberOfLinks info),
fileOwner = 0,
               fileGroup = 0, specialDeviceID = 0, fileSize = bhfiSize info,
               accessTime = posixTimeToEpochTime atime,
               modificationTime = posixTimeToEpochTime mtime,
               statusChangeTime = posixTimeToEpochTime mtime,
               accessTimeHiRes = atime, modificationTimeHiRes = mtime,
               statusChangeTimeHiRes = ctime}
    |
333 |              , fileSize         = bhfiSize info
    |                                   ^^^^^^^^^^^^^