@@ -120,8 +120,8 @@ getModificationTimeRule vfs =
120120 getModTime f =
121121#ifdef mingw32_HOST_OS
122122 do time <- Dir.getModificationTime f
123− let !day = toModifiedJulianDay $ utctDay time
124− !dayTime = diffTimeToPicoseconds $ utctDayTime time
123+ let !day = fromInteger $ toModifiedJulianDay $ utctDay time
124+ !dayTime = fromInteger $ diffTimeToPicoseconds $ utctDayTime time
125125 pure (day, dayTime)
126126#else
127127 withCString f $ \f' ->