time_profile_t.ml1 2 3 4 5 6 7 8 9 10(* Auto-generated from "time_profile.atd" *) [@@@ocaml.warning "-27-32-33-35-39"] type time_pattern = Time_pattern_t.time_pattern type period = (time_pattern * time_pattern) type data = { periods: period list } type t = (string * data)