infix.ml
timere
timere.tzdb
timere.tzlocal
timere_tzdb_full
timere_tzdb_none
timere_tzlocal_none
timere_tzlocal_unix
timere_tzlocal_utc
1 2 3 4 5 let ( & ) a b = Time.inter [ a; b ] let ( ||| ) a b = Time.union [ a; b ] let ( %> ) (f1 : 'a -> 'b) (f2 : 'b -> 'c) : 'a -> 'c = fun x -> x |> f1 |> f2
1 2 3 4 5
let ( & ) a b = Time.inter [ a; b ] let ( ||| ) a b = Time.union [ a; b ] let ( %> ) (f1 : 'a -> 'b) (f2 : 'b -> 'c) : 'a -> 'c = fun x -> x |> f1 |> f2