containers.top: remove printers on structural types (#71)

This commit is contained in:
Simon Cruanes 2017-01-26 15:50:18 +01:00
parent 61f1ca3231
commit 5e7cfed9b8

View file

@ -15,22 +15,15 @@ let install_printer s =
() ()
let install_printers = List.iter install_printer let install_printers = List.iter install_printer
let pp_rw_vector pp_x out (v: _ CCVector.vector) = CCVector.pp pp_x out v
let pp_ro_vector pp_x out (v: _ CCVector.ro_vector) = CCVector.pp pp_x out v
let pp_klist (ppx:Format.formatter -> 'a -> unit) out l = CCKList.pp ppx out l
let () = let () =
install_printers install_printers
[ "CCHashtbl.pp" [ "CCHashtbl.pp"
; "Containers_top.pp_rw_vector"
; "Containers_top.pp_ro_vector"
; "CCBV.pp" ; "CCBV.pp"
; "CCDeque.pp" ; "CCDeque.pp"
; "CCFQueue.pp" ; "CCFQueue.pp"
; "CCIntMap.pp" ; "CCIntMap.pp"
; "CCPersistentArray.pp" ; "CCPersistentArray.pp"
; "CCBigstring.pp" ; "CCBigstring.pp"
; "Containers_top.pp_klist"
; "CCKTree.pp" ; "CCKTree.pp"
; "CCSexpM.pp" ; "CCSexpM.pp"
] ]