Commit 12844c10 authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files

add time in compile desc

parent 67a89c5d
......@@ -359,7 +359,7 @@ module Corpus_desc = struct
let date =
if List.exists (fun suf -> CCString.suffix ~suf name) ["latest"; "dev"; "master"; "conv"]
then let t = Unix.gmtime (Unix.time ()) in
sprintf " last update: %d/%02d/%02d" (t.Unix.tm_year + 1900) (t.Unix.tm_mon + 1) t.Unix.tm_mday
sprintf " updated: %d/%02d/%02d %02d:%02d" (t.Unix.tm_year + 1900) (t.Unix.tm_mon + 1) t.Unix.tm_mday t.Unix.tm_hour t.Unix.tm_min
else "" in
let valid =
if CCString.suffix ~suf:"conv" name
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment