Cr_comment.PrivateSourcetype header := Header.tval create :
path:Volgo.Vcs.Path_in_repo.t ->
whole_loc:Loc.t ->
content_start_offset:int ->
header:(header, Crs_stdlib.Dyn.t) Crs_stdlib.Result.t ->
comment_prefix:string ->
digest_of_condensed_content:Digest_hex.t ->
content:string ->
t