ocsigen/deriving — pull request #6 by chambart (2013-08-28 13:45:16+00:00)
Title: Handle private row types in some particular case

This allows to handle private row types in the particular case of:

```ocaml
module type A = sig
type t = private [> `A ]
deriving (Show)
end

module Make(M : A) = struct
type truc = Plop of M.t
deriving (Show)

let chose x = Plop x
end

module MA = struct
type t = [ `A | `B ]
deriving (Show)
end

module M = Make(MA)

let _ = print_endline (Show.show(M.chose `B))
```