CCUnit.ml
containers
containers.bencode
containers.codegen
containers.monomorphic
containers.top
containers.unix
1 2 3 4 5 6 7 8 9 10 11 12 13 [@@@ifge 4.08] include Unit [@@@else_] type t = unit let[@inline] equal (_:t) (_:t) = true let[@inline] compare (_:t) (_:t) = 0 let to_string () = "()" [@@@endif]
1 2 3 4 5 6 7 8 9 10 11 12 13
[@@@ifge 4.08] include Unit [@@@else_] type t = unit let[@inline] equal (_:t) (_:t) = true let[@inline] compare (_:t) (_:t) = 0 let to_string () = "()" [@@@endif]