Join GitHub today
GitHub is home to over 36 million developers working together to host and review code, manage projects, and build software together.Sign up
fatal typing error with local module + functor + polymorphic variant #5057
Original bug ID: 5057
$ cat bug.ml
module TT = struct
let () =
$ ocamlc -c bug.ml
$ ocamlc -version
This is a minimized example, originally occurred in real sensible code.
Comment author: @garrigue
The correct code should be "f `A" :-)
There was a bug in the handling of levels inside polymorphic variant fields.
let f flag =