print git last modified as well as HTTP date

This commit is contained in:
Hannes Mehnert 2024-11-14 16:35:56 +01:00
parent 6dab71a9ac
commit 7e09f08767

View file

@ -678,7 +678,7 @@ stamp: %S
(KV.free disk.Disk.dev) (KV.free disk.Disk.dev)
!archives !archives
!remaining_downloads !remaining_downloads
(Ptime.to_rfc3339 ?tz_offset_s:None !last_git) (ptime_to_http_date !last_git)
(match !last_git_status with Ok x -> "ok with " ^ string_of_int x ^ " changes" | Error msg -> "error " ^ msg) (match !last_git_status with Ok x -> "ok with " ^ string_of_int x ^ " changes" | Error msg -> "error " ^ msg)
in in
let sort_by_ts a b = Ptime.compare b a in let sort_by_ts a b = Ptime.compare b a in