let
date_of_file filename =
try
Some
((
Unix
.stat filename).
Unix
.st_mtime)
with
_
->
None