@@ -1 +1 @@
-Subproject commit 13567c5c5c60625289132cc0216b9e6ff9bb4698
+Subproject commit b01bd55ca1ed60f848053817442cc9c687f908f1
@@ -788,8 +788,7 @@ let clone com =
};
}
-let file_time file =
- try (Unix.stat file).Unix.st_mtime with _ -> 0.
+let file_time file = Extc.filetime file
let file_extension file =
match List.rev (ExtString.String.nsplit file ".") with